Reporte de Sostenibilidad 2013 Reporte de Sostenibilidad 2013
Reporte
1
rm(list=ls()) library(dplyr) library(ggplot2) require(xts) #Se leen los datos desde el archivo de orígen donde se encuentran las entradas finales después de la depuració completo <- read.csv2("Estudio.csv"); #Introduzca la linea a estudiar lin <- "P1" linea.est <- filter(completo, Línea==lin); produc<- select(linea.est, Producto) %>% distinct; produc <- produc[,1]; p.size <- length(produc); fechas <- matrix(nrow=2,ncol=2) #Introduzca el año y mes de inicio del reporte deseado fechas[1,1] <- 2013 fechas[1,2] <- 1 #Introduzca el año y mes de fin del reporte deseado fechas[2,1] <- 2015 fechas[2,2] <- 7
-
Upload
carlos-alfredo-ramirez-pena -
Category
Documents
-
view
212 -
download
0
description
Codigo en R
Transcript of Reporte
![Page 1: Reporte](https://reader036.fdocumento.com/reader036/viewer/2022083006/563db812550346aa9a904d7f/html5/thumbnails/1.jpg)
rm(list=ls())
library(dplyr)
library(ggplot2)
require(xts)
#Se leen los datos desde el archivo de orígen donde se encuentran las entradas finales después de la depuració
completo <- read.csv2("Estudio.csv");
#Introduzca la linea a estudiar
lin <- "P1"
linea.est <- filter(completo, Línea==lin);
produc<- select(linea.est, Producto) %>% distinct;
produc <- produc[,1];
p.size <- length(produc);
fechas <- matrix(nrow=2,ncol=2)
#Introduzca el año y mes de inicio del reporte deseado
fechas[1,1] <- 2013
fechas[1,2] <- 1
#Introduzca el año y mes de fin del reporte deseado
fechas[2,1] <- 2015
fechas[2,2] <- 7