Displaying 1 result from an estimated 1 matches for "transnewoutput".
2000 Aug 06
1
Trying to "pretty up" output from R job
...a<-read.table("lastline.txt",header=T,as.is = TRUE)
indices<-1:dim(data)[2]
indices<-na.omit(ifelse(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...