definición de funciones

Crear una función llamada HolaMundo que imprima el texto “Hola mundo”


hm <- function(){ print('Hola Mundo')}
hm()

Crear una función que devuelva la sumatoria de los números enteros comprendidos entre 1 y un parámetro x a definir.


sumatoria_enteros <- function(x){
  Vector <- 1:x
  return(sum(Vector))
}

Sumatoria_enteros(10)

Ejercicios sobre purrr

library(purrr)

Ej 1 Para cada columna de mtcars, calcular la media. Devolver una lista

Ej 2 Hacer lo mismo que en 1, pero devolver un vector nombrado

Ej 3 Calcular la media, pero podando el 5% de los valores más altos y bajos

Ej 4 Dividir el dataset de por la variable cyl como una lista y calcular el numero de filas por elemento de la lista

Ej 5 Para cada elemento de la lista de 4, calcular la media de cada columna. Devolver los resultados como un dataframe con un registro por cada elemento de la lista (osea, 3)

LS0tCnRpdGxlOiBQcm9ncmFtYWNpb24gRnVuY2lvbmFsCm91dHB1dDoKICBodG1sX25vdGVib29rOgogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzCmRhdGU6ICIiCnN1YnRpdGxlOiBQcsOhY3RpY2EgaW5kZXBlbmRpZW50ZQotLS0KCiMjIyBkZWZpbmljacOzbiBkZSBmdW5jaW9uZXMKCkNyZWFyIHVuYSAqKmZ1bmNpw7NuKiogbGxhbWFkYSBfSG9sYU11bmRvXyBxdWUgaW1wcmltYSBlbCB0ZXh0byAiSG9sYSBtdW5kbyIKCmBgYHtyfQoKaG0gPC0gZnVuY3Rpb24oKXsgcHJpbnQoJ0hvbGEgTXVuZG8nKX0KaG0oKQpgYGAKCkNyZWFyIHVuYSAqKmZ1bmNpw7NuKiogcXVlIGRldnVlbHZhIGxhIHN1bWF0b3JpYSBkZSBsb3MgbsO6bWVyb3MgZW50ZXJvcyBjb21wcmVuZGlkb3MgZW50cmUgMSB5IHVuIHBhcsOhbWV0cm8gX3hfIGEgZGVmaW5pci4KYGBge3J9CgpzdW1hdG9yaWFfZW50ZXJvcyA8LSBmdW5jdGlvbih4KXsKICBWZWN0b3IgPC0gMTp4CiAgcmV0dXJuKHN1bShWZWN0b3IpKQp9CgpTdW1hdG9yaWFfZW50ZXJvcygxMCkKCmBgYAoKCiMjIyBFamVyY2ljaW9zIHNvYnJlIHB1cnJyCgpgYGB7cn0KbGlicmFyeShwdXJycikKYGBgCgpfX0VqIDFfXyBQYXJhIGNhZGEgY29sdW1uYSBkZSBtdGNhcnMsIGNhbGN1bGFyIGxhIG1lZGlhLiBEZXZvbHZlciB1bmEgbGlzdGEKCmBgYHtyfQoKYGBgCgpfX0VqIDJfXyBIYWNlciBsbyBtaXNtbyBxdWUgZW4gMSwgcGVybyBkZXZvbHZlciB1biB2ZWN0b3Igbm9tYnJhZG8KCmBgYHtyfQoKYGBgCgpfX0VqIDNfXyBDYWxjdWxhciBsYSBtZWRpYSwgcGVybyBwb2RhbmRvIGVsIDUlIGRlIGxvcyB2YWxvcmVzIG3DoXMgYWx0b3MgeSBiYWpvcwoKYGBge3J9CgpgYGAKCl9fRWogNF9fIERpdmlkaXIgZWwgZGF0YXNldCBkZSBwb3IgbGEgdmFyaWFibGUgY3lsIGNvbW8gdW5hIGxpc3RhIHkgY2FsY3VsYXIgZWwgbnVtZXJvIGRlIGZpbGFzIHBvciBlbGVtZW50byBkZSBsYSBsaXN0YQoKYGBge3J9CgpgYGAKCl9fRWogNV9fIFBhcmEgY2FkYSBlbGVtZW50byBkZSBsYSBsaXN0YSBkZSBfNF8sIGNhbGN1bGFyIGxhIG1lZGlhIGRlIGNhZGEgY29sdW1uYS4gRGV2b2x2ZXIgbG9zIHJlc3VsdGFkb3MgY29tbyB1biBkYXRhZnJhbWUgY29uIHVuIHJlZ2lzdHJvIHBvciBjYWRhIGVsZW1lbnRvIGRlIGxhIGxpc3RhIChvc2VhLCAzKQoKYGBge3J9CgpgYGAKCg==