ObtieneRangosDelModelo_aj <- function(VariablesMuestraTransformadas, VariablesCasoTransformadas) {
ValoresMinimos <- t(as.matrix(apply(rbind(VariablesMuestraTransformadas, VariablesCasoTransformadas), 2, min)))
ValoresMaximos <- t(as.matrix(apply(rbind(VariablesMuestraTransformadas, VariablesCasoTransformadas), 2, max)))
Rangos <- ValoresMaximos - ValoresMinimos
Rangos[Rangos==0] <- 1
rownames(Rangos) <- "1"
Rangos
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.