data0<-read.csv("C:\\Users\\Administrator\\Desktop\\xl1.csv")
dim(data0)
data0[,1]
bianma1<-data0[1:30,2:12]
bianma2<-data0[31:60,2:12]
bianma1
colnames(bianma1)
vec.bianma1 <- c(as.matrix(bianma1))
length(vec.bianma1)
vec.bianma2 <- c(as.matrix(bianma2))
length(vec.bianma2)
data1<-cbind(vec.bianma1,vec.bianma2)
rownames(data1)<-paste0(rep(colnames(bianma1),rep(30,11)),'_',1:30)
colnames(data1)<-paste0('bianma',1:2)
data1
write.csv(data1,file='C:\\Users\\Administrator\\Desktop\\data1.csv')
计算kappa值
最新推荐文章于 2023-08-26 12:03:55 发布