writing a file using both cat() and paste()
Taka Matzmoto wrote:
Hi R users
I like to create a ASCII type file using cat() and paste()
x <- round(runif(30),3)
cat("vector =( ", paste(x,sep=""), " )\n", file = "vector.dat",sep=",")
when I open vector.dat it was a long ugly file
vector =(
,0.463,0.515,0.202,0.232,0.852,0.367,0.432,0.74,0.413,0.022,0.302,0.114,0.583,0.002,0.919,0.066,0.829,0.405,0.363,0.665,0.109,0.38,0.187,0.322,0.582,0.011,0.586,0.112,0.873,0.671,
)
Also there was some problems right after opening parenthesis and before the
closing parenthesis. Two comma were there
I like to to have a nice formatted one like below. That is, 5 random values
per a line
vector =( 0.463,0.515,0.202,0.232,0.852,
0.367,0.432,0.74,0.413,0.022,
0.302,0.114,0.583,0.002,0.919,
0.066,0.829,0.405,0.363,0.665,
0.109,0.38,0.187,0.322,0.582,
0.011,0.586,0.112,0.873,0.671)
First, you might want to avoid using "vector", as that is the name of an
R function. Say you have a 30 element data vector as above. If you
wanted to write a fairly general function to do this, here is a start:
vector2file<-function(x,file="",values.per.line=5) {
if(nchar(file)) sink(file)
cat(deparse(substitute(x)),"<-c(\n")
xlen<-length(x)
for(i in 1:xlen) {
cat(x[i])
if(i<xlen) cat(",")
if(i%%values.per.line == 0) cat("\n")
}
cat(")")
if(i%%values.per.line) cat("\n")
if(nchar(file))sink()
}
Jim