svg(filename='Rplots.svg',width=6,height=5,pointsize=12,
onefile=T,family='courier',bg='ghostwhite',
antialias=c('default','none','gray','subpixel'))user<-'https://raw.githubusercontent.com/OlgaBelitskaya/'
file<-paste0(user,'machine_learning_engineer_nd009/')
file<-paste0(file,'master/Machine_Learning_Engineer_ND_P3/')
file<-paste0(file,'customers.csv')
customers<-read.csv(file)
matplot(c(1:440),customers[,c(3,4,5,6,7,8)],type='l')
legend('topright',colnames(customers[,c(3,4,5,6,7,8)]), col=seq_len(6),pch=13,cex=.8)
grid(); dev.off(); summary(customers)"""))
No comments:
Post a Comment