Displaying 2 results from an estimated 2 matches for "newoutput".
Did you mean:
new_output
2001 Aug 13
1
Processing all *.dat worked. Thanks
...les(pattern="*.dat$")
createSummary <-function(dsName){
data<-read.table(dsName,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)
newOutput<-rbind(mean,sd)
newOutput<-round(newOutput,digits=6)
outputdsname<-c(paste(dsName,".summary",sep=""))
write.table(t(newOutput),file=outputdsname,quote=FALSE,
sep="\t",col.names=FALSE)
}
processData <-function(dat){
for (i in 1:length(dat))
{...
2000 Aug 06
1
Trying to "pretty up" output from R job
...ll. Here is
what I have:
data<-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...