格兰杰因果关系检验r语言_R语言卡方检验代码

格兰杰因果关系检验r语⾔_R语⾔卡⽅检验代码

先放个图，虽然还不是很好看，需要加⼯，但我觉得总⽐SPSS那种⼀组⼀组的复制粘贴要⽅便的多国家风尚网

#某⼈从晚上10点写到凌晨3点。。。。。。。

rm(list = ls())

library(openxlsx)

ceshi<-read.xlsx("nrsj.xlsx", sheet =1)

laoli<-NULL

for (i in (2:ncol(ceshi))){

newdat<-ceshi[,i]高甘油三酯血症

ceshi.data <- data.frame(newdat, ceshi$Disease)

kuangzi=table(ceshi.data)

kuangzi

mydata1<-matrix(data=NA,ncol=ncol(kuangzi),nrow=nrow(kuangzi)) #创建⼀个和⼀样的空⽩矩阵。

#采⽤循环结果和as.character函数，修改中的数据格式。

for(j in 1:length(kuangzi)/nrow(kuangzi) ){

mydata1[,j]<-as.character(kuangzi[,j])知识与能力训练

}

#修改mydata1的格式。

mydata1<-as.data.frame(mydata1)

colnames(mydata1)<-colnames(kuangzi)#重新给赋值

红红的樱桃

河南省新冠疫情rownames(mydata1)<-rownames(kuangzi)

qq<-st(kuangzi)

chas<-data.frame('x2'=sult,3),'p.value'=sult,3))

臣char2<-cbind(mydata1,chas)

laoli<-rbind(laoli,colnames(ceshi[i]),char2)

}

laoli<-cbind(row.names(laoli),laoli)

write.xlsx(laoli, "kafang.xlsx", asTable = FALSE)

以上是撸了⼀晚上的代码。。。。。。⽼天我上⼀次输代码还是在游戏的控制台⾥。。。。

====================================================

声明⼀点：我不是⽣信或者信息⼯程的科班出⾝，我的专业是消化内科，从来没有系统学过R语⾔，只是我的⽇常⼯作中需要处理⼀些Excel表格，我就会琢磨看⼀下有没有省事的⽅法，这些⽅法包括但不限于R语⾔，很多时候我会选择⽤Excel⾃带的公式来解决问题。

我所写的⽂章都是我⽤来解决我⾃⼰的⼯作中实际遇到的问题，所以和其他的R语⾔⼤神不⼀样，我

⼀般不会⽤R⾥⾯⾃带的数据来做演⽰，⽽是⽤和我⼯作中需要处理的类似数据做演⽰。

所有展⽰的数据都是我那随机数⽣成的，就是rand（），randbetween（）再加上Ctrl+H替换⽣成的。

最后欢迎各位多多交流。

本文发布于:2024-09-21 00:40:42，感谢您对本站的认可！

标签：修改处理作中代码需要河南省

留言与评论（共有 0 条评论）