table(t2$g13)
b <- c()
for(i in 1:nrow(t2)){if (t2$g13[i,]==1| t2$g13[i,]==0){
b <-c(b, sum(t2[i,],na.rm = T)/(38-sum(is.na(t2[i,]))))}
else if (t2$g13[i,]==2){b <-c(b, sum(t2[i,],na.rm = T)/(39-sum(is.na(t2[i,]))))}
}
t2$FI3<-b
显示Error in '[.defult' (t2$g13, i, ):量度数目不对
需要怎么该？求大神指教，感谢！