write.csv(mydat, "mydat.csv")
system("gzip mydat.csv", wait=FALSE)
Thursday, August 23, 2007
Execute system commands within an R Script
To execute a system command from within an R script, just use system(). This is handy for zipping large output files on the fly.
Friday, August 17, 2007
Offset in glm ()
To add an offset to the linear predictor of a generalized linear model (or models from the survival package such as coxph and clogit), use offset(x) in the formula. This will add an offset to the linear predictor with known coefficient 1.
Thursday, August 16, 2007
Including arguments in R CMD BATCH mode
When you have multiple computers or processors at your disposal and wish to run the same script with different arguments, use the following at the command line (here described for Linux; remove the linebreak, it is just there for display purposes):
Where test.R is the R script file you wish to run and test.out is a text file to include the screen output of the R terminal. A key point here is that each argument must have no spaces because --args is space delimited.
To include the variables listed in --args, adapt the following code from test.R:
$ R CMD BATCH --no-save --no-restore '--args a=1 b=c(2,5,6)'
test.R test.out &
Where test.R is the R script file you wish to run and test.out is a text file to include the screen output of the R terminal. A key point here is that each argument must have no spaces because --args is space delimited.
To include the variables listed in --args, adapt the following code from test.R:
This produces the following in test.out:
##First read in the arguments listed at the command line
args=(commandArgs(TRUE))
##args is now a list of character vectors
## First check to see if arguments are passed.
## Then cycle through each element of the list and evaluate the expressions.
if(length(args)==0){
print("No arguments supplied.")
##supply default values
a = 1
b = c(1,1,1)
}else{
for(i in 1:length(args)){
eval(parse(text=args[[i]]))
}
}
print(a*2)
print(b*3)
> print(a*2)
[1] 2
> print(b*3)
[1] 6 15 18
Subscribe to:
Posts (Atom)