# NOT RUN {
# example for est_lm_basic
data(data_drug)
data_drug <- as.matrix(data_drug)
S <- data_drug[,1:5]-1
yv <- data_drug[,6]
n <- sum(yv)
# Search Basic LM model
res <- search.model.LM("basic", kv = 1:4, S, yv, mod = 1)
summary(res)
# }
Run the code above in your browser using DataLab