Displaying 1 result from an estimated 1 matches for "atestoutput".
Did you mean:
testoutput
2000 Aug 06
1
Trying to "pretty up" output from R job
...lse(indices*sapply(data,is.numeric),indices,NA))
mean<-sapply(data[,indices],mean)
sd<-sapply(data[,indices],sd)
dir<-system("pwd",TRUE)
newOutput<-rbind(mean,sd)
transNewOutput<-t(newOutput)
transNewOutput<-rbind(dir,transNewOutput)
write.table(transNewOutput,file="Atestoutput",quote=FALSE, sep="\t")
The output file looks like this:
mean sd
dir /home/pauljohn/swarm/src /home/pauljohn/swarm/src
T 732.1 148.618520536522
Run 49.5 29.011491975882
Seed 499366074.13 296739559.579976
IntAct 43.85 5.592879672432
Change 0...