Ira,
obj_name- load(arun.RData)
Pred1- get(obj_name[1])
Actual1- get(obj_name[2])
dat2-
Hi,
May be you can try this:
obj_name- load(arun.RData)
Pred1- get(obj_name[1])
Actual1- get(obj_name[2])
library(reshape2)
dat-cbind(melt(Pred1,id.vars=S1),value2=melt(Actual1,id.vars=S1)[,3]) #
to reshape to long form
colnames(dat)[3:4]- c(Predict,Actual)
dat$variable-
Ira,
You may try also with ?ddply()
dat2-
data.frame(S1=rep(Pred1[,1],ncol(Pred1)-1),variable=rep(colnames(Pred1)[-1],each=nrow(Pred1)),Predict=unlist(Pred1[,-1],use.names=FALSE),Actual=unlist(Actual1[,-1],use.names=FALSE),stringsAsFactors=FALSE)
identical(dat,dat2)
#[1] TRUE
dat2New-
3 matches
Mail list logo