Skip to content
Prev 353170 / 398498 Next

Populate data frame for meta-analysis

Hi Jerry,
Try this:

jl.df<-read.table(text="ID,score,success,failure
study1,1,35,85
study1,2,46,83
study2,1,78,246
study2,2,45,96",
sep=",",
header=TRUE)

nrows<-dim(jl.df)[1]
jlexp.df<-data.frame()
for(row in 1:nrows) {
 success_rows<-data.frame(ID=rep(jl.df$ID[row],jl.df$success[row]),
  score=rep(jl.df$score[row],jl.df$success[row]),
  outcome=rep("success",jl.df$success[row]))
 failure_rows<-data.frame(ID=rep(jl.df$ID[row],jl.df$failure[row]),
  score=rep(jl.df$score[row],jl.df$failure[row]),
  outcome=rep("failure",jl.df$failure[row]))
 jlexp.df<-rbind(jlexp.df,success_rows,failure_rows)
}

Jim
On Tue, Jul 28, 2015 at 2:06 PM, Jerry <josephlockhart at hotmail.com> wrote: