# sorts models by highest model_score first
sort_models <- function(model_list) {
# each model has a parameters and a varest property
if (length(model_list) <= 1) {
model_list
} else {
score_list <- sapply(model_list,function(x) model_score(x$varest))
sortres <- sort(score_list,index.return=TRUE)
res <- model_list[sortres$ix]
class(res) <- class(model_list)
res
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.