practica8

fn.mostrar.datos.vector.ordenados<-function(argmivector,argmodo)
{
  print("Datos del vector media, maximo minimo y ordenado")
 print(paste("Media: ",round(mean(argmivector),2)))
  print(paste("M??ximo: ",max(argmivector)))
  print(paste("M??nimo: ",min(argmivector)))
  if (argmodo == 'A') {
    print(sort(argmivector, decreasing = FALSE))
  } else {
    print(sort(argmivector, decreasing = TRUE))
  }
}
fn.mostrar.datos.vector.ordenados(c(7,3,6,7,8,9,6,5,7,8,1,3,4,6,0,4,5,8,4,5,6), 'A')

## [1] "Datos del vector media, maximo minimo y ordenado"
## [1] "Media:  5.33"
## [1] "M??ximo:  9"
## [1] "M??nimo:  0"
##  [1] 0 1 3 3 4 4 4 5 5 5 6 6 6 6 7 7 7 8 8 8 9

## [1] "Datos del vector media, maximo minimo y ordenado"
## [1] "Media:  5.33"
## [1] "M??ximo:  9"
## [1] "M??nimo:  0"
##  [1] 0 1 3 3 4 4 4 5 5 5 6 6 6 6 7 7 7 8 8 8 9