Description Usage Arguments Examples
External n-fold cross-validation
1 | 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 |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ##---- 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
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.