To build model
cmf_krr_train(act_train_fname = "activity-train.txt", act_colnum = 2, sep = ",", kernels_train_fname = "ligands-kernels-train.RData", model_fname = "ligands-model.RData", ...)
act_train_fname | "activity-train.txt" |
---|---|
act_colnum | 2 |
sep | "," |
kernels_train_fname | "ligands-kernels-train.RData" |
model_fname | "ligands-model.RData" |
… |
##---- 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_train_fname = "activity-train.txt", act_colnum = 2, sep = ",", kernels_train_fname = "ligands-kernels-train.RData", model_fname = "ligands-model.RData", ...) { act <- read.table(act_train_fname, header = TRUE, sep = sep) y <- act[, act_colnum] load(kernels_train_fname) model <- cmf_krr_train_mem(y = y, kernels = kernels, ...) save(model, file = model_fname) }#> function (act_train_fname = "activity-train.txt", act_colnum = 2, #> sep = ",", kernels_train_fname = "ligands-kernels-train.RData", #> model_fname = "ligands-model.RData", ...) #> { #> act <- read.table(act_train_fname, header = TRUE, sep = sep) #> y <- act[, act_colnum] #> load(kernels_train_fname) #> model <- cmf_krr_train_mem(y = y, kernels = kernels, ...) #> save(model, file = model_fname) #> } #> <environment: 0x10e6a5778>