library(plyr)
library(psych)
Data <- read.csv("C:/Users/Jose Godoy/Desktop/Chaparra/R/Chaparra.csv", sep = ";")
Productos <- count(Data[,2])
for (i in nrow(Productos)){
  modelo <- lm(Demanda ~ ï..Mes, data = Data[Data[,2] == Productos[[i,1]],])
  plot(Data[Data[,2] == Productos[[i,1]],])
  abline(modelo)
}

prueba <- (Data[Data[,2] == Productos[[1,1]],3])


###
modelo <- lm(Demanda ~ ï..Mes, data = Data[Data[,2] == Productos[[1,1]],])
plot(Data[Data[,2] == Productos[[1,1]],1],Data[Data[,2] == Productos[[1,1]],3], xlab = "Mes", ylab = "Demanda")
abline(modelo)

modelo2 <- lm(Demanda ~ ï..Mes, data = Data[Data[,2] == Productos[[2,1]],])
plot(Data[Data[,2] == Productos[[2,1]],1],Data[Data[,2] == Productos[[2,1]],3], xlab = "Mes", ylab = "Demanda")
abline(modelo2)


modelo23 <- lm(Demanda ~ ï..Mes, data = Data[Data[,2] == "COJIN 50x50 TNT",])
plot(Data[Data[,2] == "COJIN 50x50 TNT",1],Data[Data[,2] == "COJIN 50x50 TNT",3], xlab = "Mes", ylab = "Demanda", ylim = c(0,150))
abline(modelo23)