External n-fold cross-validation with reshuffings
cmf_krr_ecvr(act_all_fname = "activity-all.txt", act_colnum = 2, sep = ",", kernels_all_fname = "ligands-kernels-all.RData", ecvr_fname = "ligands-ecvr.RData", ...)
act_all_fname | |
---|---|
act_colnum | |
sep | |
kernels_all_fname | |
ecvr_fname | |
… |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (act_all_fname = "activity-all.txt", act_colnum = 2, sep = ",", kernels_all_fname = "ligands-kernels-all.RData", ecvr_fname = "ligands-ecvr.RData", ...) { act <- read.table(act_all_fname, header = TRUE, sep = sep) y <- act[, act_colnum] load(kernels_all_fname) ecvr <- cmf_krr_ecvr_mem(y = y, kernels = kernels, ...) save(ecvr, file = ecvr_fname) ecvr }#> function (act_all_fname = "activity-all.txt", act_colnum = 2, #> sep = ",", kernels_all_fname = "ligands-kernels-all.RData", #> ecvr_fname = "ligands-ecvr.RData", ...) #> { #> act <- read.table(act_all_fname, header = TRUE, sep = sep) #> y <- act[, act_colnum] #> load(kernels_all_fname) #> ecvr <- cmf_krr_ecvr_mem(y = y, kernels = kernels, ...) #> save(ecvr, file = ecvr_fname) #> ecvr #> } #> <environment: 0x10e88d8e0>