practica 8 funciones en R

title: “Funciones” output: html_document — #Practicas 8 Funciones que muestran análisis ##Objetivo. Crear una función que muestra la media, el valor mas alto y bajo de cualquier vector ##Descripcíon. Crear una función que recibe un argumento tipo vector y muestra la media, el valor mas alto y bajo del vector.

##Crea funciones
fn.showmsg <- function(msg){
#print (msg) ##sugerencia mostracion
#print() o cat()
  msg
  }

  
fn.showmsg(c(2,3,4,6,8))

## [1] 2 3 4 6 8

fn.showmsg('hola saludo desde la funcion ')

## [1] "hola saludo desde la funcion "

datos <- data.frame(nombres = c("Oscar", "Paty", "Lulu"), edades = c(20,34,56))
datos

##   nombres edades
## 1   Oscar     20
## 2    Paty     34
## 3    Lulu     56

fn.showmsg(datos)

##   nombres edades
## 1   Oscar     20
## 2    Paty     34
## 3    Lulu     56

###Creando una funcion con argumentos varios

fn.varias.listas <- function(...) {
 l <- list(...)
 l
 print(l)
}

####ejecutar la funcion de varios argumentos tipos listas

fn.varias.listas(c(3,4,5,6,4), c("Ruben", "Mary", "Jorgue"))

## [[1]]
## [1] 3 4 5 6 4
## 
## [[2]]
## [1] "Ruben"  "Mary"   "Jorgue"

fn.media.listas <- function(...) {
  l <- list(...) # Lista porque son de varios longitudes
 # l
  
  print("Las medias de cada conjunto de datos (listas):")
  print(l)
  print("Es ... :")
  for (i in 1:length(l)) {
     media <- mean(l[[i]]) # La media de cada lista
     print(media)   # Utilizar cat o print() dentro del for
  }
  
}  
fn.media.listas(c(2,4,5,7), c(30,40,90), c(78,98,56),datos$edades)

## [1] "Las medias de cada conjunto de datos (listas):"
## [[1]]
## [1] 2 4 5 7
## 
## [[2]]
## [1] 30 40 90
## 
## [[3]]
## [1] 78 98 56
## 
## [[4]]
## [1] 20 34 56
## 
## [1] "Es ... :"
## [1] 4.5
## [1] 53.33333
## [1] 77.33333
## [1] 36.66667

Crear na función que recibe un vector numérico y muestra valores media, mas alto y bajo de un vector así como devolver el vector ordenado.

fnshow.datos.vector  <- function (argmivector, argmodo ) {
  print("Datos del vector. Media, Máximo, mínimo 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))
  }
} # cIERRA LA FUNCION
fnshow.datos.vector(c(3,4,5,6), 'A')

## [1] "Datos del vector. Media, Máximo, mínimo y ordenado"
## [1] "Media:  4.5"
## [1] "Máximo:  6"
## [1] "Mínimo:  3"
## [1] 3 4 5 6