R/ordena.R

In ljofre/epg3308: Analisis Descritivo y Simulacion de Variables Aleatorias

#' @title Ordena
#' @description Ordena de menor a mayor una variable de tipo continua.
#' @param x Nombre de la variable.
#' @examples
#' data("albahaca")
#' ordena(albahaca$produccion)
#' @export
#'
ordena<-function(x){
x-stats::na.omit(x)
n<-length(x)
i<-1
while(i<=n){
   min<-i
   j<-i+1
   while(j<=n){
     if (x[min]>x[j])
        {min<-j}
     j<-j+1}
   aux<-x[min]
   x[min]<-x[i]
   x[i]<-aux
   i<-i+1}
   return(x)
}