data(tritest)
Data("data.raw", as.data.frame(tritest))
cols <- list()
cols[[1]] <- list(id = "X", index = 1, fun = "DATA[["X"]]")
cols[[2]] <- list(id = "Y", index = 2, fun = "DATA[["Y"]]")
EvalFunction("DATA[["X"]]", cols)
cols[[1]]$digits <- 0
EvalFunction("DATA[["X"]]", cols)
EvalFunction("DATA[["X"]] + DATA[["Y"]]", cols)
EvalFunction("rnorm(12)", cols)
Run the code above in your browser using DataLab