Nivel <- function(profi, pontosdecorte = seq(075,450,25)){
maxlabels = length(pontosdecorte)
pontosdecorte <- c(-Inf,pontosdecorte,Inf)
profiniveis <- cut(profi, pontosdecorte, labels=0:maxlabels, right=FALSE)
profiniveis
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.