# Project: dataTrain # Title: "02.pipeline.R" # Author: Iulen Ibanez Banos (iulen.ibanez@datacy.es) # Last modified: April 17, 2020 # Output: - # 0. LED---- # Carga de la(s) libraria(s) necesaria(s) library(dplyr) # Limpieza del espacio de trabajo rm(list = ls()) # Establecimiento del directorio de trabajo setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) getwd() # 1. Data load---- data <- read.csv2("data/players4.csv", encoding="UTF-8") # 2. Data prep---- data2 <- data %>% dplyr::group_by(posicion) %>% dplyr::summarise(pesoM = mean(peso.kg.), alturaM = mean(altura.cm.), edadM = mean(edad)) %>% dplyr::arrange(edadM) %>% dplyr::ungroup()