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==