# NOT RUN {
library(BALD)
#define the log of sample size function
logsamplesize <- function(x) {
log(length(x))
}
#assign the log of sample size function as penalty function
lossDevOptions(logsplinePenaltyFunction = logsamplesize)
# }
Run the code above in your browser using DataLab