Open ben-domingue opened 3 months ago
library(readxl)
df <- read_excel("Student Assessment Data.xlsx"); df
control_pretest=df[df$Condition=="Control", 23:102]; control_pretest
control_posttest=df[df$Condition=="Control", 114:193] ; control_posttest
treatment_pretest=df[df$Condition=="Treatment", 23:102] ; treatment_pretest
treatment_posttest=df[df$Condition=="Treatment", 114:193] ; treatment_posttest
x=control_pretest
id<-1:nrow(x)
L<-list()
for (i in 1:ncol(x)) L[[i]]<-data.frame(id=id, item=colnames(x)[i], resp=x[,i])
for (i in 1:ncol(x)) colnames(L[[i]])<-c("id", "item", "resp")
df<-data.frame(do.call("rbind",L))
save(df,file='control_pretest.Rdata')
x=control_posttest
id<-1:nrow(x)
L<-list()
for (i in 1:ncol(x)) L[[i]]<-data.frame(id=id, item=colnames(x)[i], resp=x[,i])
for (i in 1:ncol(x)) colnames(L[[i]])<-c("id", "item", "resp")
df<-data.frame(do.call("rbind",L))
save(df,file='control_posttest.Rdata')
x=treatment_pretest
id<-1:nrow(x)
L<-list()
for (i in 1:ncol(x)) L[[i]]<-data.frame(id=id, item=colnames(x)[i], resp=x[,i])
for (i in 1:ncol(x)) colnames(L[[i]])<-c("id", "item", "resp")
df<-data.frame(do.call("rbind",L))
save(df,file='treatment_pretest.Rdata')
x=treatment_posttest
id<-1:nrow(x)
L<-list()
for (i in 1:ncol(x)) L[[i]]<-data.frame(id=id, item=colnames(x)[i], resp=x[,i])
for (i in 1:ncol(x)) colnames(L[[i]])<-c("id", "item", "resp")
df<-data.frame(do.call("rbind",L))
save(df,file='treatment_posttest.Rdata')
This one has Control, Treatment, Pretest, Posttest. How am I supposed to do?
What I did is that I separated into four datasets and then made it into long form. control_pretest, control_posttest, treatment_pretest, and treatment_posttest. But not sure it is correct.
this is great! two things:
hi @rn2407stanford let's do the following.
JREE paper. need to determine if data is reported at item-level
https://www.tandfonline.com/doi/full/10.1080/19345747.2021.1969710