sorting_result <- function(result, concept = "mse", ascendig = T) {
if(ascendig)
return(result[order(result[concept]), ])
else
return(result[order(-result[concept]), ])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.