#' @export
#'
RPT_r2 <- function(model, adj=FALSE){
if(adj) {
out <- summary(model)$r.squared
} else{
out <- summary(model)$adj.r.squared
}
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.