Closed rn2407stanford closed 1 month ago
x=read.csv("responses.csv") id<-1:nrow(x) L<-list() for (i in 2:ncol(x)) L[[i]]<-data.frame(id=x[,1],item=colnames(x)[i],resp=x[,i]) df<-data.frame(do.call("rbind",L)) save(df,file='face_identification_jeckeln2023.Rdata')