calcMaxBasisDim <-
function(bicMat, basis_seq = seq(3,51,2)){
optBasisDim <- basis_seq[max(apply(bicMat, 2, which.min))]
return(optBasisDim)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.