Displaying 1 result from an estimated 1 matches for "outputdsnam".
Did you mean:
outputdsname
2001 Aug 13
1
Processing all *.dat worked. Thanks
...ta<-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))
{
createSummary(dat[[i]])
}
}
processData(myDat)
--
Paul E. Johnson...