External n-fold cross-validation

cmf_krr_ecv(nfolds = 5, act_all_fname = "activity-all.txt", act_colnum = 2, sep = ",", kernels_all_fname = "ligands-kernels-all.RData", ecv_fname = "ligands-ecv.RData", ...)

Arguments

nfolds

act_all_fname

act_colnum

sep

kernels_all_fname

ecv_fname

Details

Value

References

Note

See also

Examples

##---- 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 (nfolds = 5, act_all_fname = "activity-all.txt", act_colnum = 2, sep = ",", kernels_all_fname = "ligands-kernels-all.RData", ecv_fname = "ligands-ecv.RData", ...) { act <- read.table(act_all_fname, header = TRUE, sep = sep) y <- act[, act_colnum] load(kernels_all_fname) ecv <- cmf_krr_ecv_mem(nfolds = nfolds, y = y, kernels = kernels, ...) save(ecv, file = ecv_fname) ecv }
#> function (nfolds = 5, act_all_fname = "activity-all.txt", act_colnum = 2, #> sep = ",", kernels_all_fname = "ligands-kernels-all.RData", #> ecv_fname = "ligands-ecv.RData", ...) #> { #> act <- read.table(act_all_fname, header = TRUE, sep = sep) #> y <- act[, act_colnum] #> load(kernels_all_fname) #> ecv <- cmf_krr_ecv_mem(nfolds = nfolds, y = y, kernels = kernels, #> ...) #> save(ecv, file = ecv_fname) #> ecv #> } #> <environment: 0x1058fa9c0>