Pregunta5.R

ener<-subset(day,mnth=="1")
feb<-subset(day,mnth=="2")
mar<-subset(day,mnth=="3")
abr<-subset(day,mnth=="4")
may<-subset(day,mnth=="5")
jun<-subset(day,mnth=="6")
jul<-subset(day,mnth=="7")
agos<-subset(day,mnth=="8")
sept<-subset(day,mnth=="9")
oct<-subset(day,mnth=="10")
nov<-subset(day,mnth=="11")
dic<-subset(day,mnth=="12")
Cmedia1<-mean(ener$casual)
Cmedia2<-mean(feb$casual)
Cmedia3<-mean(mar$casual)
Cmedia4<-mean(abr$casual)
Cmedia5<-mean(may$casual)
Cmedia6<-mean(jun$casual)
Cmedia7<-mean(jul$casual)
Cmedia8<-mean(agos$casual)
Cmedia9<-mean(sept$casual)
Cmedia10<-mean(oct$casual)
Cmedia11<-mean(nov$casual)
Cmedia12<-mean(dic$casual)
Rmedia1<-mean(ener$registered)
Rmedia2<-mean(feb$registered)
Rmedia3<-mean(mar$registered)
Rmedia4<-mean(abr$registered)
Rmedia5<-mean(may$registered)
Rmedia6<-mean(jun$registered)
Rmedia7<-mean(jul$registered)
Rmedia8<-mean(agos$registered)
Rmedia9<-mean(sept$registered)
Rmedia10<-mean(oct$registered)
Rmedia11<-mean(nov$registered)
Rmedia12<-mean(dic$registered)
R<-c(Rmedia1,Rmedia2,Rmedia3,Rmedia4,Rmedia5,Rmedia6,Rmedia7,Rmedia8,Rmedia9,Rmedia10,Rmedia11,Rmedia12)
C<-c(Cmedia1,Cmedia2,Cmedia3,Cmedia4,Cmedia5,Cmedia6,Cmedia7,Cmedia8,Cmedia9,Cmedia10,Cmedia11,Cmedia12)
plot(R, xlab="Months", ylab="Registered")
jpeg(filename="/Users/MaferCordova/Desktop/Bike-Sharing-Dataset/registered.jpeg")
plot(R, xlab="Months", ylab="Registered",main="Variacion de Usuarios registrados por mes")
dev.off()
plot(C, xlab="Months", ylab="Casual")
jpeg(filename="/Users/MaferCordova/Desktop/Bike-Sharing-Dataset/casual.jpeg")
plot(C, xlab="Months", ylab="Casual", main="Variacion de Usuarios casuales por mes")
dev.off()
sd (R) #885.313#
sd(C) #403.1812#