d <- data.frame(cbind(x = 1, y = 1:10))
Data("data.raw", d)
cols <- list()
cols[[1]] <- list(id = "X", index = 1, fun = ""X"")
cols[[2]] <- list(id = "Y", index = 2, fun = ""Y"")
EvalFunction(""Y"", cols)
EvalFunction(""X" + "Y"", cols)
EvalFunction("rnorm(12)", cols)
Run the code above in your browser using DataLab