inst/example/iris.R

In yuliasidi/condor: HTCondor Cluster usage with R

#!/home/statsadmin/R/bin/Rscript

args <- commandArgs()

idx <- as.numeric(args[length(args)])

.libPaths('ysidi/lib')

library(dplyr)

source('iris_source.R')

set.seed(Sys.time())

saveRDS(iris%>%dplyr::sample_n(idx),
        file = sprintf('iris_%02d.rds',idx)
        )