# Load in data sets:
data("datlist", package = "csmpv")
tdat = datlist$training
vdat = datlist$validation
# The function saves files locally. You can define your own temporary directory.
# If not, tempdir() can be used to get the system's temporary directory.
temp_dir = tempdir()
# As an example, let's define Xvars, which will be used later:
Xvars = c("highIPI", "B.Symptoms", "MYC.IHC", "BCL2.IHC", "CD10.IHC", "BCL6.IHC")
# The function can work with multiple models and multiple outcome types.
# Here, we use XGBoost model with binary outcome as an example:
bxfit = XGBtraining(data = tdat, biomks = Xvars, Y = "DZsig",
outfile = paste0(temp_dir, "/binary_XGBoost"))
pbxfit = XGBtraining_predict(bxfit, newdata = vdat,
outfile = paste0(temp_dir, "/pred_binary_XGBoost"))
Y = bxfit$Y
outs = validation(predicted = pbxfit, outcomeType = "binary", trueY = vdat[,Y],
outfile = paste0(temp_dir, "/binary_XGBoost_validate"))
# You might save the files to the directory you want.
# To delete the "temp_dir", use the following:
unlink(temp_dir)
Run the code above in your browser using DataLab