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", ...)
nfolds | |
---|---|
act_all_fname | |
act_colnum | |
sep | |
kernels_all_fname | |
ecv_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 (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>