data-raw/build_model.R

library(devtools)
library(NLoN)

system.time(nlon.model <- NLoN::NLoNModel(nlon.data$text, nlon.data$rater2,
                                          cv="caret", repeats=10))
print(nlon.model$finalModel$lambdaOpt)

#devtools::use_data(nlon.model, overwrite=TRUE)
M3SOulu/NLoN documentation built on June 20, 2022, 6 p.m.