我写了一些非常非常难看的代码来执行数据转换。我知道它可能会被矢量化并显著提高速度,但我不确定如何实现。
我拥有的数据如下所示:
scores<-as.data.frame(cbind(c(1,2,3,3,1,2,3,1,2,1,2,3),c(5,5,5,5,6,6,6,7,7,8,8,8),
c(0,1,1,1,1,0,1,.5,"fickle",1,2.2,1),c(1,1,1,2,1,1,1,1,1,1,1,1)))
names(dat)<-c("name","question_id","correct","