Displaying 1 result from an estimated 1 matches for "jm1_data".
Did you mean:
hmm_data
2009 Apr 21
1
Functions in lists or arrays?
...0
b["LOC_TOTAL",0] <- 73
}
#...
And then using something like this function:
# Dispatch a function from its name
dispatch <- function(f, x) {
eval(call(f, x))
}
to evaluate each rule over all the data rows:
# Read training+validation data
dat <- read.csv("jm1_data(training+validation).csv")
mat <- NULL
clt <- NULL
# Evaluate each rule against the dataset
for (i in models) {
# Get the rules for the model
rules <- eval(substitute(foo[,1], list(foo=as.name(i))))
cls <- eval(substitute(foo[,2], list(foo=as.name(i))))...