From 57dcf944a679468df356eb2deb767945defc0b9e Mon Sep 17 00:00:00 2001 From: Edward Wang Date: Wed, 21 Sep 2016 14:10:14 -0400 Subject: [PATCH 1/3] complete commit --- .gitignore | 4 + Class 4 - Swirl.Rproj | 13 ++ lesson1.csv | 369 ++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 386 insertions(+) create mode 100644 .gitignore create mode 100644 Class 4 - Swirl.Rproj create mode 100644 lesson1.csv diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..5b6a065 --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +.Rproj.user +.Rhistory +.RData +.Ruserdata diff --git a/Class 4 - Swirl.Rproj b/Class 4 - Swirl.Rproj new file mode 100644 index 0000000..8e3c2eb --- /dev/null +++ b/Class 4 - Swirl.Rproj @@ -0,0 +1,13 @@ +Version: 1.0 + +RestoreWorkspace: Default +SaveWorkspace: Default +AlwaysSaveHistory: Default + +EnableCodeIndexing: Yes +UseSpacesForTab: Yes +NumSpacesForTab: 2 +Encoding: UTF-8 + +RnwWeave: Sweave +LaTeX: pdfLaTeX diff --git a/lesson1.csv b/lesson1.csv new file mode 100644 index 0000000..e4687d1 --- /dev/null +++ b/lesson1.csv @@ -0,0 +1,369 @@ +"time","answer","id" +"1473777912604","?qnorm","YOUR NAME" +"1473777946948","qnorm(150, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","YOUR NAME" +"1473777972462","qnorm(0, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","YOUR NAME" +"1473777979697","qnorm(10, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","YOUR NAME" +"1473777992969","qnorm(1, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","YOUR NAME" +"1473778027330","rnotm(10, mean = 10, sd = 20)","YOUR NAME" +"1473778033349","rnorm(10, mean = 10, sd = 20)","YOUR NAME" +"1473780322150","rnorm(5, mean = 10, sd = 10)","YOUR NAME" +"1473781615556","rnorm(10, mean = 10, sd = 30)","YOUR NAME" +"1473783403501","rnotm(20, mean = 20, sd = 20)","YOUR NAME" +"1473783410952","rnorm(20, mean = 20, sd = 20)","YOUR NAME" +"1473796866872","install.packages(ggplot2)","YOUR NAME" +"1473797510492","pkgs <- c(","YOUR NAME" +"1473797510500","dplyr, gapminder, ggplot2, jsonlite, Lahman,","YOUR NAME" +"1473797510501","lubridate, modelr, nycflights13, purrr, readr,","YOUR NAME" +"1473797510501","stringr, tibble, tidyr","YOUR NAME" +"1473797510502",")","YOUR NAME" +"1473797510503","install.packages(pkgs)","YOUR NAME" +"1473797764367","install.packages(RColorBrewer)","YOUR NAME" +"1473797839342","1+2","YOUR NAME" +"1473797839344","3*5","YOUR NAME" +"1473797839345","pi","YOUR NAME" +"1473797839346","3.5^3","YOUR NAME" +"1473797839346","sqrt(9)","YOUR NAME" +"1473797886455","1+2","YOUR NAME" +"1473797886463","3*5","YOUR NAME" +"1473797886464","pi","YOUR NAME" +"1473797886465","3.5^3","YOUR NAME" +"1473797886465","sqrt(9)","YOUR NAME" +"1473797897585","1+2","YOUR NAME" +"1473797897594","3*5","YOUR NAME" +"1473797897594","pi","YOUR NAME" +"1473797897594","3.5^3","YOUR NAME" +"1473797897595","sqrt(9)","YOUR NAME" +"1473797930787","height<-c(64, 67, 68, 70, 65)","YOUR NAME" +"1473797930797","weight<-c(120, 140, 165, 190, 130)","YOUR NAME" +"1473797930798","summary(height)","YOUR NAME" +"1473797930804","weight","YOUR NAME" +"1473797930805","height","YOUR NAME" +"1473797930805","dat1=cbind(weight, height)","YOUR NAME" +"1473797930806","dat1","YOUR NAME" +"1473797978468","plot(weight~height, data=dat1, pch=16)","YOUR NAME" +"1473798056906","plot(1","YOUR NAME" +"20, 1","20, pch=1","YOUR NAME" +"20, col=1","6)","YOUR NAME" +"1473798464897","plot(1","YOUR NAME" +"20, 1","20, pch=1","YOUR NAME" +"20, col=1","10)","YOUR NAME" +"1473798473059","plot(1","YOUR NAME" +"20, 1","20, pch=1","YOUR NAME" +"20, col=1)","","YOUR NAME" +"1473798481978","plot(1","YOUR NAME" +"20, 1","20, pch=1","YOUR NAME" +"20, col=1","6)","YOUR NAME" +"1473798491183","plot(1","YOUR NAME" +"20, 1","20, pch=1, col=1","YOUR NAME" +"6)","","YOUR NAME" +"1473798496847","plot(1","YOUR NAME" +"20, 1","20, pch=1","YOUR NAME" +"5, col=1","6)","YOUR NAME" +"1473798852353","library(RColorBrewer)","YOUR NAME" +"1473798852377","col.use=brewer.pal(5, RdYlBu)","YOUR NAME" +"1473798852380","plot(runif(50, 0, 1), runif(50, 0, 1), pch=c(8, 18), cex=2, col=col.use)","YOUR NAME" +"1473798856503","library(RColorBrewer)","YOUR NAME" +"1473798856511","col.use=brewer.pal(5, RdYlBu)","YOUR NAME" +"1473798856512","plot(runif(50, 0, 1), runif(50, 0, 1), pch=c(8, 18), cex=2, col=col.use)","YOUR NAME" +"1473799153130","rep(c(1,2,3), each=3)","YOUR NAME" +"1473799153140","rep(c(1,2,3), c(2,5,3))","YOUR NAME" +"1473799153141","rep(c(2,4,6), 4)","YOUR NAME" +"1473799167058","rep(c(1,2,3), each=3)","YOUR NAME" +"1473799167067","rep(c(1,2,3), c(2,5))","YOUR NAME" +"1473799167068","rep(c(2,4,6), 4)","YOUR NAME" +"1473799176709","rep(c(1,2,3), each=3)","YOUR NAME" +"1473799176718","rep(c(1,2,3), c(2,5,1))","YOUR NAME" +"1473799176719","rep(c(2,4,6), 4)","YOUR NAME" +"1473799205261","x <- c(1, 23, 2, 3, 12, 18, 6, 9)","YOUR NAME" +"1473799205270","x","YOUR NAME" +"1473799205271","mean(x)","YOUR NAME" +"1473799205273","median(x)","YOUR NAME" +"1473799205274","var(x)","YOUR NAME" +"1473799205275","sd(x)","YOUR NAME" +"1473799205277","par(mfrow=c(1,2))","YOUR NAME" +"1473799205278","boxplot(x)","YOUR NAME" +"1473799205312","hist(x)","YOUR NAME" +"1473799344117","x <- seq(-1,1,31)","YOUR NAME" +"1473799352675","x <- seq(-1,1,31)","YOUR NAME" +"1473799352684","x","YOUR NAME" +"1473799364072","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799364082","x","YOUR NAME" +"1473799442270","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799442279","x","YOUR NAME" +"1473799442281","y <- sin(x)","YOUR NAME" +"1473799442282","plot(x,y,pch=diamond,col=1","YOUR NAME" +"30)","","YOUR NAME" +"1473799470346","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799470354","x","YOUR NAME" +"1473799470356","y <- sin(x)","YOUR NAME" +"1473799470356","plot(x,y,pch=c(diamond),col=1","YOUR NAME" +"30)","","YOUR NAME" +"1473799519833","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799519834","x","YOUR NAME" +"1473799519835","y <- sin(x)","YOUR NAME" +"1473799519835","plot(x,y,pch=1,col=1","YOUR NAME" +"30)","","YOUR NAME" +"1473799529818","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799529820","x","YOUR NAME" +"1473799529821","y <- sin(x)","YOUR NAME" +"1473799529822","plot(x,y,pch=2,col=1","YOUR NAME" +"30)","","YOUR NAME" +"1473799533921","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799533922","x","YOUR NAME" +"1473799533924","y <- sin(x)","YOUR NAME" +"1473799533924","plot(x,y,pch=3,col=1","YOUR NAME" +"30)","","YOUR NAME" +"1473799540324","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799540325","x","YOUR NAME" +"1473799540326","y <- sin(x)","YOUR NAME" +"1473799540326","plot(x,y,pch=1","YOUR NAME" +"5,col=1","30)","YOUR NAME" +"1473799548189","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799548198","x","YOUR NAME" +"1473799548199","y <- sin(x)","YOUR NAME" +"1473799548200","plot(x,y,pch=5,col=1","YOUR NAME" +"30)","","YOUR NAME" +"1473799563343","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799563352","x","YOUR NAME" +"1473799563353","y <- sin(x)","YOUR NAME" +"1473799563354","plot(x,y,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799579069","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799579077","x","YOUR NAME" +"1473799579078","y <- sin(x)","YOUR NAME" +"1473799579078","plot(x,y,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799579114","help(plot)","YOUR NAME" +"1473799592168","help(plot)","YOUR NAME" +"1473799638463","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799638472","x","YOUR NAME" +"1473799638473","y <- sin(x)","YOUR NAME" +"1473799638474","plot(x,y,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799638492","","YOUR NAME" +"1473799657730","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799657739","x","YOUR NAME" +"1473799657740","y <- sin(x)","YOUR NAME" +"1473799657741","plot(x,y,type=p,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799657776","","YOUR NAME" +"1473799762058","plot(x,y,type=p,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799786798","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799786807","x","YOUR NAME" +"1473799786808","y <- sin(x)","YOUR NAME" +"1473799786809","plot(x,y,type=l,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799786844","","YOUR NAME" +"1473799793580","x <- seq(-1,1,len=31)","YOUR NAME" +"1473799793581","x","YOUR NAME" +"1473799793582","y <- sin(x)","YOUR NAME" +"1473799793582","plot(x,y,type=p,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799793595","","YOUR NAME" +"1473799858502","plot(x,y,type=p,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799867848","help(plot)","YOUR NAME" +"1473799883567","plot(x,y,type=b,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799892770","help(plot)","YOUR NAME" +"1473799910946","plot(x,y,type=b,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473799916693","help(plot)","YOUR NAME" +"1473799932150","","YOUR NAME" +"1473799935160","```","YOUR NAME" +"1473799950929","plot(x,y,type=l,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473800067353","plot(x,y,type=h,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473800075715","plot(x,y,type=l,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473800231269","curve(sin(x), -1, 1)","YOUR NAME" +"1473800235104","","YOUR NAME" +"1473800235830","```","YOUR NAME" +"1473800254102","plot(x,y,type=h,pch=5,col=1","YOUR NAME" +"7)","","YOUR NAME" +"1473800325716","library(dplyr)","YOUR NAME" +"1473800326158","library(readr)","YOUR NAME" +"1473800326183","library(DT)","YOUR NAME" +"1473800326185","library(RColorBrewer)","YOUR NAME" +"1473800343545","install.packages(DT)","YOUR NAME" +"1473800355045","library(dplyr)","YOUR NAME" +"1473800363540","library(readr)","YOUR NAME" +"1473800366879","library(DT)","YOUR NAME" +"1473800370164","library(RColorBrewer)","YOUR NAME" +"1473800375450","library(dplyr)","YOUR NAME" +"1473800375460","library(readr)","YOUR NAME" +"1473800375462","library(DT)","YOUR NAME" +"1473800375463","library(RColorBrewer)","YOUR NAME" +"1473800386855","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" +"1473800487686","library(dplyr)","YOUR NAME" +"1473800488125","library(readr)","YOUR NAME" +"1473800488152","library(DT)","YOUR NAME" +"1473800488205","library(RColorBrewer)","YOUR NAME" +"1473800501674","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" +"1473800583276","setwd(~/Desktop/IDS/tutorials)","YOUR NAME" +"1473800644176","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" +"1473800710541","datatable(head(BaseballSalary,50), options = list(scrollX=T, pageLength = 8))","YOUR NAME" +"1473801201080","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1473801207149","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1473801217912","quit","YOUR NAME" +"1473801226125","q()","YOUR NAME" +"1473801231325","nclass = 50,","YOUR NAME" +"1473801237472","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1473801242387","col.use=brewer.pal(10, RdYlBu)","YOUR NAME" +"1473801242395","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1473801242397","main=salaries in 1985,","YOUR NAME" +"1473801242398","xlab=annual salary,","YOUR NAME" +"1473801242399","col=col.use,","YOUR NAME" +"1473801242399","nclass = 50)","YOUR NAME" +"1473801242400","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1473801242400","main=salaries in 2004,","YOUR NAME" +"1473801242400","xlab=annual salary,","YOUR NAME" +"1473801242401","col=col.use,","YOUR NAME" +"1473801242401","nclass = 50)","YOUR NAME" +"1473801242460","par(mfrow=c(2,1))","YOUR NAME" +"1473801242461","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1473801242461","main=salaries in 1985,","YOUR NAME" +"1473801242461","xlab=annual salary,","YOUR NAME" +"1473801242462","col=col.use,","YOUR NAME" +"1473801242462","nclass = 50,","YOUR NAME" +"1473801242463","ylim=c(0, 250))","YOUR NAME" +"1473801242504","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1473801242505","col=col.use,","YOUR NAME" +"1473801242505","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","YOUR NAME" +"1473801242506","main=salaries in 2004,","YOUR NAME" +"1473801242506","xlab=annual salary,","YOUR NAME" +"1473801242506","xlim=c(0, 2000000),","YOUR NAME" +"1473801242507","ylim=c(0,250),","YOUR NAME" +"1473801242507","freq=T)","YOUR NAME" +"1473801246063","col.use=brewer.pal(10, RdYlBu)","YOUR NAME" +"1473801246076","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1473801246077","main=salaries in 1985,","YOUR NAME" +"1473801246077","xlab=annual salary,","YOUR NAME" +"1473801246078","col=col.use,","YOUR NAME" +"1473801246079","nclass = 50)","YOUR NAME" +"1473801246100","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1473801246101","main=salaries in 2004,","YOUR NAME" +"1473801246101","xlab=annual salary,","YOUR NAME" +"1473801246101","col=col.use,","YOUR NAME" +"1473801246101","nclass = 50)","YOUR NAME" +"1473801246143","par(mfrow=c(2,1))","YOUR NAME" +"1473801246144","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1473801246144","main=salaries in 1985,","YOUR NAME" +"1473801246144","xlab=annual salary,","YOUR NAME" +"1473801246145","col=col.use,","YOUR NAME" +"1473801246145","nclass = 50,","YOUR NAME" +"1473801246145","ylim=c(0, 250))","YOUR NAME" +"1473801246187","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1473801246187","col=col.use,","YOUR NAME" +"1473801246188","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","YOUR NAME" +"1473801246188","main=salaries in 2004,","YOUR NAME" +"1473801246188","xlab=annual salary,","YOUR NAME" +"1473801246189","xlim=c(0, 2000000),","YOUR NAME" +"1473801246189","ylim=c(0,250),","YOUR NAME" +"1473801246190","freq=T)","YOUR NAME" +"1473801256564","col.use=brewer.pal(10, RdYlBu)","YOUR NAME" +"1473801256573","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1473801256574","main=salaries in 1985,","YOUR NAME" +"1473801256575","xlab=annual salary,","YOUR NAME" +"1473801256575","col=col.use,","YOUR NAME" +"1473801256576","nclass = 50)","YOUR NAME" +"1473801256620","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1473801256621","main=salaries in 2004,","YOUR NAME" +"1473801256621","xlab=annual salary,","YOUR NAME" +"1473801256621","col=col.use,","YOUR NAME" +"1473801256622","nclass = 50)","YOUR NAME" +"1473801256640","par(mfrow=c(2,1))","YOUR NAME" +"1473801256640","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1473801256640","main=salaries in 1985,","YOUR NAME" +"1473801256641","xlab=annual salary,","YOUR NAME" +"1473801256641","col=col.use,","YOUR NAME" +"1473801256641","nclass = 50,","YOUR NAME" +"1473801256642","ylim=c(0, 250))","YOUR NAME" +"1473801256684","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1473801256685","col=col.use,","YOUR NAME" +"1473801256685","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","YOUR NAME" +"1473801256686","main=salaries in 2004,","YOUR NAME" +"1473801256686","xlab=annual salary,","YOUR NAME" +"1473801256686","xlim=c(0, 2000000),","YOUR NAME" +"1473801256687","ylim=c(0,250),","YOUR NAME" +"1473801256687","freq=T)","YOUR NAME" +"1473801516297","par(mfrow=c(1,1))","YOUR NAME" +"1473801516305","plot(salary~as.factor(year), data=BaseballSalary, col=col.use)","YOUR NAME" +"1474401913050","library(dplyr)","YOUR NAME" +"1474401913639","library(readr)","YOUR NAME" +"1474401913671","library(DT)","YOUR NAME" +"1474401913742","library(RColorBrewer)","YOUR NAME" +"1474401992118","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","YOUR NAME" +"1474401992132","BS2004=filter(BaseballSalary, year==2004)","YOUR NAME" +"1474401992134","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","YOUR NAME" +"1474401992135","BS2004[which.max(BS2004$salary),]","YOUR NAME" +"1474402003235","library(dplyr)","YOUR NAME" +"1474402003245","library(readr)","YOUR NAME" +"1474402003246","library(DT)","YOUR NAME" +"1474402003247","library(RColorBrewer)","YOUR NAME" +"1474402011638","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","YOUR NAME" +"1474402011649","BS2004=filter(BaseballSalary, year==2004)","YOUR NAME" +"1474402011650","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","YOUR NAME" +"1474402011652","BS2004[which.max(BS2004$salary),]","YOUR NAME" +"1474402029386","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" +"1474402038045","setwd(~/Desktop/IDS/tutorials)","YOUR NAME" +"1474402041193","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" +"1474402045823","dim(BaseballSalary)","YOUR NAME" +"1474402045825","datatable(head(BaseballSalary,50), options = list(scrollX=T, pageLength = 8))","YOUR NAME" +"1474402049850","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","YOUR NAME" +"1474402049860","BS2004=filter(BaseballSalary, year==2004)","YOUR NAME" +"1474402049900","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","YOUR NAME" +"1474402049915","BS2004[which.max(BS2004$salary),]","YOUR NAME" +"1474402057272","col.use=brewer.pal(10, RdYlBu)","YOUR NAME" +"1474402057284","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1474402057284","main=salaries in 1985,","YOUR NAME" +"1474402057285","xlab=annual salary,","YOUR NAME" +"1474402057285","col=col.use,","YOUR NAME" +"1474402057286","nclass = 50)","YOUR NAME" +"1474402057350","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1474402057350","main=salaries in 2004,","YOUR NAME" +"1474402057351","xlab=annual salary,","YOUR NAME" +"1474402057351","col=col.use,","YOUR NAME" +"1474402057352","nclass = 50)","YOUR NAME" +"1474402057406","par(mfrow=c(2,1))","YOUR NAME" +"1474402057407","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" +"1474402057407","main=salaries in 1985,","YOUR NAME" +"1474402057408","xlab=annual salary,","YOUR NAME" +"1474402057408","col=col.use,","YOUR NAME" +"1474402057408","nclass = 50,","YOUR NAME" +"1474402057409","ylim=c(0, 250))","YOUR NAME" +"1474402057454","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" +"1474402057455","col=col.use,","YOUR NAME" +"1474402057456","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","YOUR NAME" +"1474402057456","main=salaries in 2004,","YOUR NAME" +"1474402057457","xlab=annual salary,","YOUR NAME" +"1474402057457","xlim=c(0, 2000000),","YOUR NAME" +"1474402057457","ylim=c(0,250),","YOUR NAME" +"1474402057458","freq=T)","YOUR NAME" +"1474403310207","library(dplyr)","YOUR NAME" +"1474403310210","library(readr)","YOUR NAME" +"1474403310211","library(DT)","YOUR NAME" +"1474403310212","library(RColorBrewer)","YOUR NAME" +"1474403314736","mlb2014=read_csv(file=data/mlb2014.csv)","YOUR NAME" +"1474403323675","mlb2014=read_csv(file=data/mlb2014.csv, na=c(, -, NA))","YOUR NAME" +"1474403327571","dim(mlb2014)","YOUR NAME" +"1474403327579","datatable(select(sample_n(mlb2014,50), ends_with(G)), options = list(scrollX=T, pageLength = 5))","YOUR NAME" +"1474403513055","table(mlb2014$pos1)","YOUR NAME" +"1474403513058","table(mlb2014$bats)","YOUR NAME" +"1474403513059","table(mlb2014$pos1, mlb2014$bats)","YOUR NAME" +"1474403584076","dim(mlb2014)","YOUR NAME" +"1474403584086","datatable(select(sample_n(mlb2014,50), ends_with(G)), options = list(scrollX=T, pageLength = 5))","YOUR NAME" +"1474404654801","hist(mlb2014$slg)","YOUR NAME" +"1474404654900","plot(as.factor(mlb2014$pos1), mlb2014$slg, col=col.use)","YOUR NAME" +"1474404654962","summary(lm(slg~as.factor(pos1), data=mlb2014))","YOUR NAME" +"1474404655021","anova(lm(slg~as.factor(pos1), data=mlb2014))","YOUR NAME" +"1474405248771","hist(mlb2014$age)","YOUR NAME" +"1474405248821","plot(obp~age, data=mlb2014)","YOUR NAME" +"1474405248850","summary(lm(obp~age, data=mlb2014))","YOUR NAME" +"1474405248883","cor.test(~age+obp, data=mlb2014)","YOUR NAME" +"1474481253940","install.packages(swirl)","YOUR NAME" +"1474481273941","library(swirl)","YOUR NAME" +"1474481281681","swirl()","YOUR NAME" +"1474481368383","H <-read.table(~/.rstudio-desktop/history_database, sep=:, fill=T, stringsAsFactors=F)","YOUR NAME" From 1118ba86b05d71e5a0df7315de14d279e0dabea3 Mon Sep 17 00:00:00 2001 From: Edward Wang Date: Wed, 21 Sep 2016 14:15:51 -0400 Subject: [PATCH 2/3] change "YOUR NAME" to "Xiangyu Wang" --- lesson1.csv | 742 ++++++++++++++++++++++++++-------------------------- 1 file changed, 374 insertions(+), 368 deletions(-) diff --git a/lesson1.csv b/lesson1.csv index e4687d1..2408126 100644 --- a/lesson1.csv +++ b/lesson1.csv @@ -1,369 +1,375 @@ "time","answer","id" -"1473777912604","?qnorm","YOUR NAME" -"1473777946948","qnorm(150, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","YOUR NAME" -"1473777972462","qnorm(0, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","YOUR NAME" -"1473777979697","qnorm(10, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","YOUR NAME" -"1473777992969","qnorm(1, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","YOUR NAME" -"1473778027330","rnotm(10, mean = 10, sd = 20)","YOUR NAME" -"1473778033349","rnorm(10, mean = 10, sd = 20)","YOUR NAME" -"1473780322150","rnorm(5, mean = 10, sd = 10)","YOUR NAME" -"1473781615556","rnorm(10, mean = 10, sd = 30)","YOUR NAME" -"1473783403501","rnotm(20, mean = 20, sd = 20)","YOUR NAME" -"1473783410952","rnorm(20, mean = 20, sd = 20)","YOUR NAME" -"1473796866872","install.packages(ggplot2)","YOUR NAME" -"1473797510492","pkgs <- c(","YOUR NAME" -"1473797510500","dplyr, gapminder, ggplot2, jsonlite, Lahman,","YOUR NAME" -"1473797510501","lubridate, modelr, nycflights13, purrr, readr,","YOUR NAME" -"1473797510501","stringr, tibble, tidyr","YOUR NAME" -"1473797510502",")","YOUR NAME" -"1473797510503","install.packages(pkgs)","YOUR NAME" -"1473797764367","install.packages(RColorBrewer)","YOUR NAME" -"1473797839342","1+2","YOUR NAME" -"1473797839344","3*5","YOUR NAME" -"1473797839345","pi","YOUR NAME" -"1473797839346","3.5^3","YOUR NAME" -"1473797839346","sqrt(9)","YOUR NAME" -"1473797886455","1+2","YOUR NAME" -"1473797886463","3*5","YOUR NAME" -"1473797886464","pi","YOUR NAME" -"1473797886465","3.5^3","YOUR NAME" -"1473797886465","sqrt(9)","YOUR NAME" -"1473797897585","1+2","YOUR NAME" -"1473797897594","3*5","YOUR NAME" -"1473797897594","pi","YOUR NAME" -"1473797897594","3.5^3","YOUR NAME" -"1473797897595","sqrt(9)","YOUR NAME" -"1473797930787","height<-c(64, 67, 68, 70, 65)","YOUR NAME" -"1473797930797","weight<-c(120, 140, 165, 190, 130)","YOUR NAME" -"1473797930798","summary(height)","YOUR NAME" -"1473797930804","weight","YOUR NAME" -"1473797930805","height","YOUR NAME" -"1473797930805","dat1=cbind(weight, height)","YOUR NAME" -"1473797930806","dat1","YOUR NAME" -"1473797978468","plot(weight~height, data=dat1, pch=16)","YOUR NAME" -"1473798056906","plot(1","YOUR NAME" -"20, 1","20, pch=1","YOUR NAME" -"20, col=1","6)","YOUR NAME" -"1473798464897","plot(1","YOUR NAME" -"20, 1","20, pch=1","YOUR NAME" -"20, col=1","10)","YOUR NAME" -"1473798473059","plot(1","YOUR NAME" -"20, 1","20, pch=1","YOUR NAME" -"20, col=1)","","YOUR NAME" -"1473798481978","plot(1","YOUR NAME" -"20, 1","20, pch=1","YOUR NAME" -"20, col=1","6)","YOUR NAME" -"1473798491183","plot(1","YOUR NAME" -"20, 1","20, pch=1, col=1","YOUR NAME" -"6)","","YOUR NAME" -"1473798496847","plot(1","YOUR NAME" -"20, 1","20, pch=1","YOUR NAME" -"5, col=1","6)","YOUR NAME" -"1473798852353","library(RColorBrewer)","YOUR NAME" -"1473798852377","col.use=brewer.pal(5, RdYlBu)","YOUR NAME" -"1473798852380","plot(runif(50, 0, 1), runif(50, 0, 1), pch=c(8, 18), cex=2, col=col.use)","YOUR NAME" -"1473798856503","library(RColorBrewer)","YOUR NAME" -"1473798856511","col.use=brewer.pal(5, RdYlBu)","YOUR NAME" -"1473798856512","plot(runif(50, 0, 1), runif(50, 0, 1), pch=c(8, 18), cex=2, col=col.use)","YOUR NAME" -"1473799153130","rep(c(1,2,3), each=3)","YOUR NAME" -"1473799153140","rep(c(1,2,3), c(2,5,3))","YOUR NAME" -"1473799153141","rep(c(2,4,6), 4)","YOUR NAME" -"1473799167058","rep(c(1,2,3), each=3)","YOUR NAME" -"1473799167067","rep(c(1,2,3), c(2,5))","YOUR NAME" -"1473799167068","rep(c(2,4,6), 4)","YOUR NAME" -"1473799176709","rep(c(1,2,3), each=3)","YOUR NAME" -"1473799176718","rep(c(1,2,3), c(2,5,1))","YOUR NAME" -"1473799176719","rep(c(2,4,6), 4)","YOUR NAME" -"1473799205261","x <- c(1, 23, 2, 3, 12, 18, 6, 9)","YOUR NAME" -"1473799205270","x","YOUR NAME" -"1473799205271","mean(x)","YOUR NAME" -"1473799205273","median(x)","YOUR NAME" -"1473799205274","var(x)","YOUR NAME" -"1473799205275","sd(x)","YOUR NAME" -"1473799205277","par(mfrow=c(1,2))","YOUR NAME" -"1473799205278","boxplot(x)","YOUR NAME" -"1473799205312","hist(x)","YOUR NAME" -"1473799344117","x <- seq(-1,1,31)","YOUR NAME" -"1473799352675","x <- seq(-1,1,31)","YOUR NAME" -"1473799352684","x","YOUR NAME" -"1473799364072","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799364082","x","YOUR NAME" -"1473799442270","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799442279","x","YOUR NAME" -"1473799442281","y <- sin(x)","YOUR NAME" -"1473799442282","plot(x,y,pch=diamond,col=1","YOUR NAME" -"30)","","YOUR NAME" -"1473799470346","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799470354","x","YOUR NAME" -"1473799470356","y <- sin(x)","YOUR NAME" -"1473799470356","plot(x,y,pch=c(diamond),col=1","YOUR NAME" -"30)","","YOUR NAME" -"1473799519833","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799519834","x","YOUR NAME" -"1473799519835","y <- sin(x)","YOUR NAME" -"1473799519835","plot(x,y,pch=1,col=1","YOUR NAME" -"30)","","YOUR NAME" -"1473799529818","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799529820","x","YOUR NAME" -"1473799529821","y <- sin(x)","YOUR NAME" -"1473799529822","plot(x,y,pch=2,col=1","YOUR NAME" -"30)","","YOUR NAME" -"1473799533921","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799533922","x","YOUR NAME" -"1473799533924","y <- sin(x)","YOUR NAME" -"1473799533924","plot(x,y,pch=3,col=1","YOUR NAME" -"30)","","YOUR NAME" -"1473799540324","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799540325","x","YOUR NAME" -"1473799540326","y <- sin(x)","YOUR NAME" -"1473799540326","plot(x,y,pch=1","YOUR NAME" -"5,col=1","30)","YOUR NAME" -"1473799548189","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799548198","x","YOUR NAME" -"1473799548199","y <- sin(x)","YOUR NAME" -"1473799548200","plot(x,y,pch=5,col=1","YOUR NAME" -"30)","","YOUR NAME" -"1473799563343","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799563352","x","YOUR NAME" -"1473799563353","y <- sin(x)","YOUR NAME" -"1473799563354","plot(x,y,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799579069","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799579077","x","YOUR NAME" -"1473799579078","y <- sin(x)","YOUR NAME" -"1473799579078","plot(x,y,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799579114","help(plot)","YOUR NAME" -"1473799592168","help(plot)","YOUR NAME" -"1473799638463","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799638472","x","YOUR NAME" -"1473799638473","y <- sin(x)","YOUR NAME" -"1473799638474","plot(x,y,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799638492","","YOUR NAME" -"1473799657730","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799657739","x","YOUR NAME" -"1473799657740","y <- sin(x)","YOUR NAME" -"1473799657741","plot(x,y,type=p,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799657776","","YOUR NAME" -"1473799762058","plot(x,y,type=p,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799786798","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799786807","x","YOUR NAME" -"1473799786808","y <- sin(x)","YOUR NAME" -"1473799786809","plot(x,y,type=l,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799786844","","YOUR NAME" -"1473799793580","x <- seq(-1,1,len=31)","YOUR NAME" -"1473799793581","x","YOUR NAME" -"1473799793582","y <- sin(x)","YOUR NAME" -"1473799793582","plot(x,y,type=p,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799793595","","YOUR NAME" -"1473799858502","plot(x,y,type=p,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799867848","help(plot)","YOUR NAME" -"1473799883567","plot(x,y,type=b,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799892770","help(plot)","YOUR NAME" -"1473799910946","plot(x,y,type=b,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473799916693","help(plot)","YOUR NAME" -"1473799932150","","YOUR NAME" -"1473799935160","```","YOUR NAME" -"1473799950929","plot(x,y,type=l,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473800067353","plot(x,y,type=h,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473800075715","plot(x,y,type=l,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473800231269","curve(sin(x), -1, 1)","YOUR NAME" -"1473800235104","","YOUR NAME" -"1473800235830","```","YOUR NAME" -"1473800254102","plot(x,y,type=h,pch=5,col=1","YOUR NAME" -"7)","","YOUR NAME" -"1473800325716","library(dplyr)","YOUR NAME" -"1473800326158","library(readr)","YOUR NAME" -"1473800326183","library(DT)","YOUR NAME" -"1473800326185","library(RColorBrewer)","YOUR NAME" -"1473800343545","install.packages(DT)","YOUR NAME" -"1473800355045","library(dplyr)","YOUR NAME" -"1473800363540","library(readr)","YOUR NAME" -"1473800366879","library(DT)","YOUR NAME" -"1473800370164","library(RColorBrewer)","YOUR NAME" -"1473800375450","library(dplyr)","YOUR NAME" -"1473800375460","library(readr)","YOUR NAME" -"1473800375462","library(DT)","YOUR NAME" -"1473800375463","library(RColorBrewer)","YOUR NAME" -"1473800386855","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" -"1473800487686","library(dplyr)","YOUR NAME" -"1473800488125","library(readr)","YOUR NAME" -"1473800488152","library(DT)","YOUR NAME" -"1473800488205","library(RColorBrewer)","YOUR NAME" -"1473800501674","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" -"1473800583276","setwd(~/Desktop/IDS/tutorials)","YOUR NAME" -"1473800644176","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" -"1473800710541","datatable(head(BaseballSalary,50), options = list(scrollX=T, pageLength = 8))","YOUR NAME" -"1473801201080","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1473801207149","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1473801217912","quit","YOUR NAME" -"1473801226125","q()","YOUR NAME" -"1473801231325","nclass = 50,","YOUR NAME" -"1473801237472","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1473801242387","col.use=brewer.pal(10, RdYlBu)","YOUR NAME" -"1473801242395","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1473801242397","main=salaries in 1985,","YOUR NAME" -"1473801242398","xlab=annual salary,","YOUR NAME" -"1473801242399","col=col.use,","YOUR NAME" -"1473801242399","nclass = 50)","YOUR NAME" -"1473801242400","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1473801242400","main=salaries in 2004,","YOUR NAME" -"1473801242400","xlab=annual salary,","YOUR NAME" -"1473801242401","col=col.use,","YOUR NAME" -"1473801242401","nclass = 50)","YOUR NAME" -"1473801242460","par(mfrow=c(2,1))","YOUR NAME" -"1473801242461","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1473801242461","main=salaries in 1985,","YOUR NAME" -"1473801242461","xlab=annual salary,","YOUR NAME" -"1473801242462","col=col.use,","YOUR NAME" -"1473801242462","nclass = 50,","YOUR NAME" -"1473801242463","ylim=c(0, 250))","YOUR NAME" -"1473801242504","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1473801242505","col=col.use,","YOUR NAME" -"1473801242505","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","YOUR NAME" -"1473801242506","main=salaries in 2004,","YOUR NAME" -"1473801242506","xlab=annual salary,","YOUR NAME" -"1473801242506","xlim=c(0, 2000000),","YOUR NAME" -"1473801242507","ylim=c(0,250),","YOUR NAME" -"1473801242507","freq=T)","YOUR NAME" -"1473801246063","col.use=brewer.pal(10, RdYlBu)","YOUR NAME" -"1473801246076","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1473801246077","main=salaries in 1985,","YOUR NAME" -"1473801246077","xlab=annual salary,","YOUR NAME" -"1473801246078","col=col.use,","YOUR NAME" -"1473801246079","nclass = 50)","YOUR NAME" -"1473801246100","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1473801246101","main=salaries in 2004,","YOUR NAME" -"1473801246101","xlab=annual salary,","YOUR NAME" -"1473801246101","col=col.use,","YOUR NAME" -"1473801246101","nclass = 50)","YOUR NAME" -"1473801246143","par(mfrow=c(2,1))","YOUR NAME" -"1473801246144","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1473801246144","main=salaries in 1985,","YOUR NAME" -"1473801246144","xlab=annual salary,","YOUR NAME" -"1473801246145","col=col.use,","YOUR NAME" -"1473801246145","nclass = 50,","YOUR NAME" -"1473801246145","ylim=c(0, 250))","YOUR NAME" -"1473801246187","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1473801246187","col=col.use,","YOUR NAME" -"1473801246188","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","YOUR NAME" -"1473801246188","main=salaries in 2004,","YOUR NAME" -"1473801246188","xlab=annual salary,","YOUR NAME" -"1473801246189","xlim=c(0, 2000000),","YOUR NAME" -"1473801246189","ylim=c(0,250),","YOUR NAME" -"1473801246190","freq=T)","YOUR NAME" -"1473801256564","col.use=brewer.pal(10, RdYlBu)","YOUR NAME" -"1473801256573","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1473801256574","main=salaries in 1985,","YOUR NAME" -"1473801256575","xlab=annual salary,","YOUR NAME" -"1473801256575","col=col.use,","YOUR NAME" -"1473801256576","nclass = 50)","YOUR NAME" -"1473801256620","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1473801256621","main=salaries in 2004,","YOUR NAME" -"1473801256621","xlab=annual salary,","YOUR NAME" -"1473801256621","col=col.use,","YOUR NAME" -"1473801256622","nclass = 50)","YOUR NAME" -"1473801256640","par(mfrow=c(2,1))","YOUR NAME" -"1473801256640","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1473801256640","main=salaries in 1985,","YOUR NAME" -"1473801256641","xlab=annual salary,","YOUR NAME" -"1473801256641","col=col.use,","YOUR NAME" -"1473801256641","nclass = 50,","YOUR NAME" -"1473801256642","ylim=c(0, 250))","YOUR NAME" -"1473801256684","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1473801256685","col=col.use,","YOUR NAME" -"1473801256685","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","YOUR NAME" -"1473801256686","main=salaries in 2004,","YOUR NAME" -"1473801256686","xlab=annual salary,","YOUR NAME" -"1473801256686","xlim=c(0, 2000000),","YOUR NAME" -"1473801256687","ylim=c(0,250),","YOUR NAME" -"1473801256687","freq=T)","YOUR NAME" -"1473801516297","par(mfrow=c(1,1))","YOUR NAME" -"1473801516305","plot(salary~as.factor(year), data=BaseballSalary, col=col.use)","YOUR NAME" -"1474401913050","library(dplyr)","YOUR NAME" -"1474401913639","library(readr)","YOUR NAME" -"1474401913671","library(DT)","YOUR NAME" -"1474401913742","library(RColorBrewer)","YOUR NAME" -"1474401992118","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","YOUR NAME" -"1474401992132","BS2004=filter(BaseballSalary, year==2004)","YOUR NAME" -"1474401992134","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","YOUR NAME" -"1474401992135","BS2004[which.max(BS2004$salary),]","YOUR NAME" -"1474402003235","library(dplyr)","YOUR NAME" -"1474402003245","library(readr)","YOUR NAME" -"1474402003246","library(DT)","YOUR NAME" -"1474402003247","library(RColorBrewer)","YOUR NAME" -"1474402011638","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","YOUR NAME" -"1474402011649","BS2004=filter(BaseballSalary, year==2004)","YOUR NAME" -"1474402011650","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","YOUR NAME" -"1474402011652","BS2004[which.max(BS2004$salary),]","YOUR NAME" -"1474402029386","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" -"1474402038045","setwd(~/Desktop/IDS/tutorials)","YOUR NAME" -"1474402041193","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","YOUR NAME" -"1474402045823","dim(BaseballSalary)","YOUR NAME" -"1474402045825","datatable(head(BaseballSalary,50), options = list(scrollX=T, pageLength = 8))","YOUR NAME" -"1474402049850","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","YOUR NAME" -"1474402049860","BS2004=filter(BaseballSalary, year==2004)","YOUR NAME" -"1474402049900","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","YOUR NAME" -"1474402049915","BS2004[which.max(BS2004$salary),]","YOUR NAME" -"1474402057272","col.use=brewer.pal(10, RdYlBu)","YOUR NAME" -"1474402057284","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1474402057284","main=salaries in 1985,","YOUR NAME" -"1474402057285","xlab=annual salary,","YOUR NAME" -"1474402057285","col=col.use,","YOUR NAME" -"1474402057286","nclass = 50)","YOUR NAME" -"1474402057350","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1474402057350","main=salaries in 2004,","YOUR NAME" -"1474402057351","xlab=annual salary,","YOUR NAME" -"1474402057351","col=col.use,","YOUR NAME" -"1474402057352","nclass = 50)","YOUR NAME" -"1474402057406","par(mfrow=c(2,1))","YOUR NAME" -"1474402057407","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","YOUR NAME" -"1474402057407","main=salaries in 1985,","YOUR NAME" -"1474402057408","xlab=annual salary,","YOUR NAME" -"1474402057408","col=col.use,","YOUR NAME" -"1474402057408","nclass = 50,","YOUR NAME" -"1474402057409","ylim=c(0, 250))","YOUR NAME" -"1474402057454","hist(filter(BaseballSalary, year==2004)$salary,","YOUR NAME" -"1474402057455","col=col.use,","YOUR NAME" -"1474402057456","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","YOUR NAME" -"1474402057456","main=salaries in 2004,","YOUR NAME" -"1474402057457","xlab=annual salary,","YOUR NAME" -"1474402057457","xlim=c(0, 2000000),","YOUR NAME" -"1474402057457","ylim=c(0,250),","YOUR NAME" -"1474402057458","freq=T)","YOUR NAME" -"1474403310207","library(dplyr)","YOUR NAME" -"1474403310210","library(readr)","YOUR NAME" -"1474403310211","library(DT)","YOUR NAME" -"1474403310212","library(RColorBrewer)","YOUR NAME" -"1474403314736","mlb2014=read_csv(file=data/mlb2014.csv)","YOUR NAME" -"1474403323675","mlb2014=read_csv(file=data/mlb2014.csv, na=c(, -, NA))","YOUR NAME" -"1474403327571","dim(mlb2014)","YOUR NAME" -"1474403327579","datatable(select(sample_n(mlb2014,50), ends_with(G)), options = list(scrollX=T, pageLength = 5))","YOUR NAME" -"1474403513055","table(mlb2014$pos1)","YOUR NAME" -"1474403513058","table(mlb2014$bats)","YOUR NAME" -"1474403513059","table(mlb2014$pos1, mlb2014$bats)","YOUR NAME" -"1474403584076","dim(mlb2014)","YOUR NAME" -"1474403584086","datatable(select(sample_n(mlb2014,50), ends_with(G)), options = list(scrollX=T, pageLength = 5))","YOUR NAME" -"1474404654801","hist(mlb2014$slg)","YOUR NAME" -"1474404654900","plot(as.factor(mlb2014$pos1), mlb2014$slg, col=col.use)","YOUR NAME" -"1474404654962","summary(lm(slg~as.factor(pos1), data=mlb2014))","YOUR NAME" -"1474404655021","anova(lm(slg~as.factor(pos1), data=mlb2014))","YOUR NAME" -"1474405248771","hist(mlb2014$age)","YOUR NAME" -"1474405248821","plot(obp~age, data=mlb2014)","YOUR NAME" -"1474405248850","summary(lm(obp~age, data=mlb2014))","YOUR NAME" -"1474405248883","cor.test(~age+obp, data=mlb2014)","YOUR NAME" -"1474481253940","install.packages(swirl)","YOUR NAME" -"1474481273941","library(swirl)","YOUR NAME" -"1474481281681","swirl()","YOUR NAME" -"1474481368383","H <-read.table(~/.rstudio-desktop/history_database, sep=:, fill=T, stringsAsFactors=F)","YOUR NAME" +"1473777912604","?qnorm","Xiangyu Wang" +"1473777946948","qnorm(150, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","Xiangyu Wang" +"1473777972462","qnorm(0, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","Xiangyu Wang" +"1473777979697","qnorm(10, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","Xiangyu Wang" +"1473777992969","qnorm(1, mean = 100, sd = 20, lower.tail = TRUE, log.p=FALSE)","Xiangyu Wang" +"1473778027330","rnotm(10, mean = 10, sd = 20)","Xiangyu Wang" +"1473778033349","rnorm(10, mean = 10, sd = 20)","Xiangyu Wang" +"1473780322150","rnorm(5, mean = 10, sd = 10)","Xiangyu Wang" +"1473781615556","rnorm(10, mean = 10, sd = 30)","Xiangyu Wang" +"1473783403501","rnotm(20, mean = 20, sd = 20)","Xiangyu Wang" +"1473783410952","rnorm(20, mean = 20, sd = 20)","Xiangyu Wang" +"1473796866872","install.packages(ggplot2)","Xiangyu Wang" +"1473797510492","pkgs <- c(","Xiangyu Wang" +"1473797510500","dplyr, gapminder, ggplot2, jsonlite, Lahman,","Xiangyu Wang" +"1473797510501","lubridate, modelr, nycflights13, purrr, readr,","Xiangyu Wang" +"1473797510501","stringr, tibble, tidyr","Xiangyu Wang" +"1473797510502",")","Xiangyu Wang" +"1473797510503","install.packages(pkgs)","Xiangyu Wang" +"1473797764367","install.packages(RColorBrewer)","Xiangyu Wang" +"1473797839342","1+2","Xiangyu Wang" +"1473797839344","3*5","Xiangyu Wang" +"1473797839345","pi","Xiangyu Wang" +"1473797839346","3.5^3","Xiangyu Wang" +"1473797839346","sqrt(9)","Xiangyu Wang" +"1473797886455","1+2","Xiangyu Wang" +"1473797886463","3*5","Xiangyu Wang" +"1473797886464","pi","Xiangyu Wang" +"1473797886465","3.5^3","Xiangyu Wang" +"1473797886465","sqrt(9)","Xiangyu Wang" +"1473797897585","1+2","Xiangyu Wang" +"1473797897594","3*5","Xiangyu Wang" +"1473797897594","pi","Xiangyu Wang" +"1473797897594","3.5^3","Xiangyu Wang" +"1473797897595","sqrt(9)","Xiangyu Wang" +"1473797930787","height<-c(64, 67, 68, 70, 65)","Xiangyu Wang" +"1473797930797","weight<-c(120, 140, 165, 190, 130)","Xiangyu Wang" +"1473797930798","summary(height)","Xiangyu Wang" +"1473797930804","weight","Xiangyu Wang" +"1473797930805","height","Xiangyu Wang" +"1473797930805","dat1=cbind(weight, height)","Xiangyu Wang" +"1473797930806","dat1","Xiangyu Wang" +"1473797978468","plot(weight~height, data=dat1, pch=16)","Xiangyu Wang" +"1473798056906","plot(1","Xiangyu Wang" +"20, 1","20, pch=1","Xiangyu Wang" +"20, col=1","6)","Xiangyu Wang" +"1473798464897","plot(1","Xiangyu Wang" +"20, 1","20, pch=1","Xiangyu Wang" +"20, col=1","10)","Xiangyu Wang" +"1473798473059","plot(1","Xiangyu Wang" +"20, 1","20, pch=1","Xiangyu Wang" +"20, col=1)","","Xiangyu Wang" +"1473798481978","plot(1","Xiangyu Wang" +"20, 1","20, pch=1","Xiangyu Wang" +"20, col=1","6)","Xiangyu Wang" +"1473798491183","plot(1","Xiangyu Wang" +"20, 1","20, pch=1, col=1","Xiangyu Wang" +"6)","","Xiangyu Wang" +"1473798496847","plot(1","Xiangyu Wang" +"20, 1","20, pch=1","Xiangyu Wang" +"5, col=1","6)","Xiangyu Wang" +"1473798852353","library(RColorBrewer)","Xiangyu Wang" +"1473798852377","col.use=brewer.pal(5, RdYlBu)","Xiangyu Wang" +"1473798852380","plot(runif(50, 0, 1), runif(50, 0, 1), pch=c(8, 18), cex=2, col=col.use)","Xiangyu Wang" +"1473798856503","library(RColorBrewer)","Xiangyu Wang" +"1473798856511","col.use=brewer.pal(5, RdYlBu)","Xiangyu Wang" +"1473798856512","plot(runif(50, 0, 1), runif(50, 0, 1), pch=c(8, 18), cex=2, col=col.use)","Xiangyu Wang" +"1473799153130","rep(c(1,2,3), each=3)","Xiangyu Wang" +"1473799153140","rep(c(1,2,3), c(2,5,3))","Xiangyu Wang" +"1473799153141","rep(c(2,4,6), 4)","Xiangyu Wang" +"1473799167058","rep(c(1,2,3), each=3)","Xiangyu Wang" +"1473799167067","rep(c(1,2,3), c(2,5))","Xiangyu Wang" +"1473799167068","rep(c(2,4,6), 4)","Xiangyu Wang" +"1473799176709","rep(c(1,2,3), each=3)","Xiangyu Wang" +"1473799176718","rep(c(1,2,3), c(2,5,1))","Xiangyu Wang" +"1473799176719","rep(c(2,4,6), 4)","Xiangyu Wang" +"1473799205261","x <- c(1, 23, 2, 3, 12, 18, 6, 9)","Xiangyu Wang" +"1473799205270","x","Xiangyu Wang" +"1473799205271","mean(x)","Xiangyu Wang" +"1473799205273","median(x)","Xiangyu Wang" +"1473799205274","var(x)","Xiangyu Wang" +"1473799205275","sd(x)","Xiangyu Wang" +"1473799205277","par(mfrow=c(1,2))","Xiangyu Wang" +"1473799205278","boxplot(x)","Xiangyu Wang" +"1473799205312","hist(x)","Xiangyu Wang" +"1473799344117","x <- seq(-1,1,31)","Xiangyu Wang" +"1473799352675","x <- seq(-1,1,31)","Xiangyu Wang" +"1473799352684","x","Xiangyu Wang" +"1473799364072","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799364082","x","Xiangyu Wang" +"1473799442270","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799442279","x","Xiangyu Wang" +"1473799442281","y <- sin(x)","Xiangyu Wang" +"1473799442282","plot(x,y,pch=diamond,col=1","Xiangyu Wang" +"30)","","Xiangyu Wang" +"1473799470346","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799470354","x","Xiangyu Wang" +"1473799470356","y <- sin(x)","Xiangyu Wang" +"1473799470356","plot(x,y,pch=c(diamond),col=1","Xiangyu Wang" +"30)","","Xiangyu Wang" +"1473799519833","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799519834","x","Xiangyu Wang" +"1473799519835","y <- sin(x)","Xiangyu Wang" +"1473799519835","plot(x,y,pch=1,col=1","Xiangyu Wang" +"30)","","Xiangyu Wang" +"1473799529818","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799529820","x","Xiangyu Wang" +"1473799529821","y <- sin(x)","Xiangyu Wang" +"1473799529822","plot(x,y,pch=2,col=1","Xiangyu Wang" +"30)","","Xiangyu Wang" +"1473799533921","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799533922","x","Xiangyu Wang" +"1473799533924","y <- sin(x)","Xiangyu Wang" +"1473799533924","plot(x,y,pch=3,col=1","Xiangyu Wang" +"30)","","Xiangyu Wang" +"1473799540324","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799540325","x","Xiangyu Wang" +"1473799540326","y <- sin(x)","Xiangyu Wang" +"1473799540326","plot(x,y,pch=1","Xiangyu Wang" +"5,col=1","30)","Xiangyu Wang" +"1473799548189","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799548198","x","Xiangyu Wang" +"1473799548199","y <- sin(x)","Xiangyu Wang" +"1473799548200","plot(x,y,pch=5,col=1","Xiangyu Wang" +"30)","","Xiangyu Wang" +"1473799563343","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799563352","x","Xiangyu Wang" +"1473799563353","y <- sin(x)","Xiangyu Wang" +"1473799563354","plot(x,y,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799579069","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799579077","x","Xiangyu Wang" +"1473799579078","y <- sin(x)","Xiangyu Wang" +"1473799579078","plot(x,y,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799579114","help(plot)","Xiangyu Wang" +"1473799592168","help(plot)","Xiangyu Wang" +"1473799638463","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799638472","x","Xiangyu Wang" +"1473799638473","y <- sin(x)","Xiangyu Wang" +"1473799638474","plot(x,y,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799638492","","Xiangyu Wang" +"1473799657730","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799657739","x","Xiangyu Wang" +"1473799657740","y <- sin(x)","Xiangyu Wang" +"1473799657741","plot(x,y,type=p,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799657776","","Xiangyu Wang" +"1473799762058","plot(x,y,type=p,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799786798","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799786807","x","Xiangyu Wang" +"1473799786808","y <- sin(x)","Xiangyu Wang" +"1473799786809","plot(x,y,type=l,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799786844","","Xiangyu Wang" +"1473799793580","x <- seq(-1,1,len=31)","Xiangyu Wang" +"1473799793581","x","Xiangyu Wang" +"1473799793582","y <- sin(x)","Xiangyu Wang" +"1473799793582","plot(x,y,type=p,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799793595","","Xiangyu Wang" +"1473799858502","plot(x,y,type=p,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799867848","help(plot)","Xiangyu Wang" +"1473799883567","plot(x,y,type=b,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799892770","help(plot)","Xiangyu Wang" +"1473799910946","plot(x,y,type=b,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473799916693","help(plot)","Xiangyu Wang" +"1473799932150","","Xiangyu Wang" +"1473799935160","```","Xiangyu Wang" +"1473799950929","plot(x,y,type=l,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473800067353","plot(x,y,type=h,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473800075715","plot(x,y,type=l,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473800231269","curve(sin(x), -1, 1)","Xiangyu Wang" +"1473800235104","","Xiangyu Wang" +"1473800235830","```","Xiangyu Wang" +"1473800254102","plot(x,y,type=h,pch=5,col=1","Xiangyu Wang" +"7)","","Xiangyu Wang" +"1473800325716","library(dplyr)","Xiangyu Wang" +"1473800326158","library(readr)","Xiangyu Wang" +"1473800326183","library(DT)","Xiangyu Wang" +"1473800326185","library(RColorBrewer)","Xiangyu Wang" +"1473800343545","install.packages(DT)","Xiangyu Wang" +"1473800355045","library(dplyr)","Xiangyu Wang" +"1473800363540","library(readr)","Xiangyu Wang" +"1473800366879","library(DT)","Xiangyu Wang" +"1473800370164","library(RColorBrewer)","Xiangyu Wang" +"1473800375450","library(dplyr)","Xiangyu Wang" +"1473800375460","library(readr)","Xiangyu Wang" +"1473800375462","library(DT)","Xiangyu Wang" +"1473800375463","library(RColorBrewer)","Xiangyu Wang" +"1473800386855","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","Xiangyu Wang" +"1473800487686","library(dplyr)","Xiangyu Wang" +"1473800488125","library(readr)","Xiangyu Wang" +"1473800488152","library(DT)","Xiangyu Wang" +"1473800488205","library(RColorBrewer)","Xiangyu Wang" +"1473800501674","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","Xiangyu Wang" +"1473800583276","setwd(~/Desktop/IDS/tutorials)","Xiangyu Wang" +"1473800644176","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","Xiangyu Wang" +"1473800710541","datatable(head(BaseballSalary,50), options = list(scrollX=T, pageLength = 8))","Xiangyu Wang" +"1473801201080","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1473801207149","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1473801217912","quit","Xiangyu Wang" +"1473801226125","q()","Xiangyu Wang" +"1473801231325","nclass = 50,","Xiangyu Wang" +"1473801237472","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1473801242387","col.use=brewer.pal(10, RdYlBu)","Xiangyu Wang" +"1473801242395","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1473801242397","main=salaries in 1985,","Xiangyu Wang" +"1473801242398","xlab=annual salary,","Xiangyu Wang" +"1473801242399","col=col.use,","Xiangyu Wang" +"1473801242399","nclass = 50)","Xiangyu Wang" +"1473801242400","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1473801242400","main=salaries in 2004,","Xiangyu Wang" +"1473801242400","xlab=annual salary,","Xiangyu Wang" +"1473801242401","col=col.use,","Xiangyu Wang" +"1473801242401","nclass = 50)","Xiangyu Wang" +"1473801242460","par(mfrow=c(2,1))","Xiangyu Wang" +"1473801242461","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1473801242461","main=salaries in 1985,","Xiangyu Wang" +"1473801242461","xlab=annual salary,","Xiangyu Wang" +"1473801242462","col=col.use,","Xiangyu Wang" +"1473801242462","nclass = 50,","Xiangyu Wang" +"1473801242463","ylim=c(0, 250))","Xiangyu Wang" +"1473801242504","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1473801242505","col=col.use,","Xiangyu Wang" +"1473801242505","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","Xiangyu Wang" +"1473801242506","main=salaries in 2004,","Xiangyu Wang" +"1473801242506","xlab=annual salary,","Xiangyu Wang" +"1473801242506","xlim=c(0, 2000000),","Xiangyu Wang" +"1473801242507","ylim=c(0,250),","Xiangyu Wang" +"1473801242507","freq=T)","Xiangyu Wang" +"1473801246063","col.use=brewer.pal(10, RdYlBu)","Xiangyu Wang" +"1473801246076","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1473801246077","main=salaries in 1985,","Xiangyu Wang" +"1473801246077","xlab=annual salary,","Xiangyu Wang" +"1473801246078","col=col.use,","Xiangyu Wang" +"1473801246079","nclass = 50)","Xiangyu Wang" +"1473801246100","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1473801246101","main=salaries in 2004,","Xiangyu Wang" +"1473801246101","xlab=annual salary,","Xiangyu Wang" +"1473801246101","col=col.use,","Xiangyu Wang" +"1473801246101","nclass = 50)","Xiangyu Wang" +"1473801246143","par(mfrow=c(2,1))","Xiangyu Wang" +"1473801246144","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1473801246144","main=salaries in 1985,","Xiangyu Wang" +"1473801246144","xlab=annual salary,","Xiangyu Wang" +"1473801246145","col=col.use,","Xiangyu Wang" +"1473801246145","nclass = 50,","Xiangyu Wang" +"1473801246145","ylim=c(0, 250))","Xiangyu Wang" +"1473801246187","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1473801246187","col=col.use,","Xiangyu Wang" +"1473801246188","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","Xiangyu Wang" +"1473801246188","main=salaries in 2004,","Xiangyu Wang" +"1473801246188","xlab=annual salary,","Xiangyu Wang" +"1473801246189","xlim=c(0, 2000000),","Xiangyu Wang" +"1473801246189","ylim=c(0,250),","Xiangyu Wang" +"1473801246190","freq=T)","Xiangyu Wang" +"1473801256564","col.use=brewer.pal(10, RdYlBu)","Xiangyu Wang" +"1473801256573","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1473801256574","main=salaries in 1985,","Xiangyu Wang" +"1473801256575","xlab=annual salary,","Xiangyu Wang" +"1473801256575","col=col.use,","Xiangyu Wang" +"1473801256576","nclass = 50)","Xiangyu Wang" +"1473801256620","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1473801256621","main=salaries in 2004,","Xiangyu Wang" +"1473801256621","xlab=annual salary,","Xiangyu Wang" +"1473801256621","col=col.use,","Xiangyu Wang" +"1473801256622","nclass = 50)","Xiangyu Wang" +"1473801256640","par(mfrow=c(2,1))","Xiangyu Wang" +"1473801256640","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1473801256640","main=salaries in 1985,","Xiangyu Wang" +"1473801256641","xlab=annual salary,","Xiangyu Wang" +"1473801256641","col=col.use,","Xiangyu Wang" +"1473801256641","nclass = 50,","Xiangyu Wang" +"1473801256642","ylim=c(0, 250))","Xiangyu Wang" +"1473801256684","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1473801256685","col=col.use,","Xiangyu Wang" +"1473801256685","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","Xiangyu Wang" +"1473801256686","main=salaries in 2004,","Xiangyu Wang" +"1473801256686","xlab=annual salary,","Xiangyu Wang" +"1473801256686","xlim=c(0, 2000000),","Xiangyu Wang" +"1473801256687","ylim=c(0,250),","Xiangyu Wang" +"1473801256687","freq=T)","Xiangyu Wang" +"1473801516297","par(mfrow=c(1,1))","Xiangyu Wang" +"1473801516305","plot(salary~as.factor(year), data=BaseballSalary, col=col.use)","Xiangyu Wang" +"1474401913050","library(dplyr)","Xiangyu Wang" +"1474401913639","library(readr)","Xiangyu Wang" +"1474401913671","library(DT)","Xiangyu Wang" +"1474401913742","library(RColorBrewer)","Xiangyu Wang" +"1474401992118","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","Xiangyu Wang" +"1474401992132","BS2004=filter(BaseballSalary, year==2004)","Xiangyu Wang" +"1474401992134","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","Xiangyu Wang" +"1474401992135","BS2004[which.max(BS2004$salary),]","Xiangyu Wang" +"1474402003235","library(dplyr)","Xiangyu Wang" +"1474402003245","library(readr)","Xiangyu Wang" +"1474402003246","library(DT)","Xiangyu Wang" +"1474402003247","library(RColorBrewer)","Xiangyu Wang" +"1474402011638","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","Xiangyu Wang" +"1474402011649","BS2004=filter(BaseballSalary, year==2004)","Xiangyu Wang" +"1474402011650","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","Xiangyu Wang" +"1474402011652","BS2004[which.max(BS2004$salary),]","Xiangyu Wang" +"1474402029386","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","Xiangyu Wang" +"1474402038045","setwd(~/Desktop/IDS/tutorials)","Xiangyu Wang" +"1474402041193","BaseballSalary=read_csv(file=data/BaseballSalary.csv)","Xiangyu Wang" +"1474402045823","dim(BaseballSalary)","Xiangyu Wang" +"1474402045825","datatable(head(BaseballSalary,50), options = list(scrollX=T, pageLength = 8))","Xiangyu Wang" +"1474402049850","datatable(filter(BSTeamYear, year==2004), options = list(scrollX=T, pageLength = 10))","Xiangyu Wang" +"1474402049860","BS2004=filter(BaseballSalary, year==2004)","Xiangyu Wang" +"1474402049900","plot(as.factor(BS2004$teamID), BS2004$salary, col=col.use, las=2)","Xiangyu Wang" +"1474402049915","BS2004[which.max(BS2004$salary),]","Xiangyu Wang" +"1474402057272","col.use=brewer.pal(10, RdYlBu)","Xiangyu Wang" +"1474402057284","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1474402057284","main=salaries in 1985,","Xiangyu Wang" +"1474402057285","xlab=annual salary,","Xiangyu Wang" +"1474402057285","col=col.use,","Xiangyu Wang" +"1474402057286","nclass = 50)","Xiangyu Wang" +"1474402057350","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1474402057350","main=salaries in 2004,","Xiangyu Wang" +"1474402057351","xlab=annual salary,","Xiangyu Wang" +"1474402057351","col=col.use,","Xiangyu Wang" +"1474402057352","nclass = 50)","Xiangyu Wang" +"1474402057406","par(mfrow=c(2,1))","Xiangyu Wang" +"1474402057407","hist.1985=hist(filter(BaseballSalary, year==1985)$salary,","Xiangyu Wang" +"1474402057407","main=salaries in 1985,","Xiangyu Wang" +"1474402057408","xlab=annual salary,","Xiangyu Wang" +"1474402057408","col=col.use,","Xiangyu Wang" +"1474402057408","nclass = 50,","Xiangyu Wang" +"1474402057409","ylim=c(0, 250))","Xiangyu Wang" +"1474402057454","hist(filter(BaseballSalary, year==2004)$salary,","Xiangyu Wang" +"1474402057455","col=col.use,","Xiangyu Wang" +"1474402057456","breaks=c(hist.1985$breaks, max(BaseballSalary$salary)),","Xiangyu Wang" +"1474402057456","main=salaries in 2004,","Xiangyu Wang" +"1474402057457","xlab=annual salary,","Xiangyu Wang" +"1474402057457","xlim=c(0, 2000000),","Xiangyu Wang" +"1474402057457","ylim=c(0,250),","Xiangyu Wang" +"1474402057458","freq=T)","Xiangyu Wang" +"1474403310207","library(dplyr)","Xiangyu Wang" +"1474403310210","library(readr)","Xiangyu Wang" +"1474403310211","library(DT)","Xiangyu Wang" +"1474403310212","library(RColorBrewer)","Xiangyu Wang" +"1474403314736","mlb2014=read_csv(file=data/mlb2014.csv)","Xiangyu Wang" +"1474403323675","mlb2014=read_csv(file=data/mlb2014.csv, na=c(, -, NA))","Xiangyu Wang" +"1474403327571","dim(mlb2014)","Xiangyu Wang" +"1474403327579","datatable(select(sample_n(mlb2014,50), ends_with(G)), options = list(scrollX=T, pageLength = 5))","Xiangyu Wang" +"1474403513055","table(mlb2014$pos1)","Xiangyu Wang" +"1474403513058","table(mlb2014$bats)","Xiangyu Wang" +"1474403513059","table(mlb2014$pos1, mlb2014$bats)","Xiangyu Wang" +"1474403584076","dim(mlb2014)","Xiangyu Wang" +"1474403584086","datatable(select(sample_n(mlb2014,50), ends_with(G)), options = list(scrollX=T, pageLength = 5))","Xiangyu Wang" +"1474404654801","hist(mlb2014$slg)","Xiangyu Wang" +"1474404654900","plot(as.factor(mlb2014$pos1), mlb2014$slg, col=col.use)","Xiangyu Wang" +"1474404654962","summary(lm(slg~as.factor(pos1), data=mlb2014))","Xiangyu Wang" +"1474404655021","anova(lm(slg~as.factor(pos1), data=mlb2014))","Xiangyu Wang" +"1474405248771","hist(mlb2014$age)","Xiangyu Wang" +"1474405248821","plot(obp~age, data=mlb2014)","Xiangyu Wang" +"1474405248850","summary(lm(obp~age, data=mlb2014))","Xiangyu Wang" +"1474405248883","cor.test(~age+obp, data=mlb2014)","Xiangyu Wang" +"1474481253940","install.packages(swirl)","Xiangyu Wang" +"1474481273941","library(swirl)","Xiangyu Wang" +"1474481281681","swirl()","Xiangyu Wang" +"1474481368383","H <-read.table(~/.rstudio-desktop/history_database, sep=:, fill=T, stringsAsFactors=F)","Xiangyu Wang" +"1474481368399","names(H) <- c(time, answer)","Xiangyu Wang" +"1474481368400","H$id <- YOUR NAME","Xiangyu Wang" +"1474481368401","write.csv(H, file = lesson1.csv, row.names = FALSE)","Xiangyu Wang" +"1474481504617","swirl()","Xiangyu Wang" +"1474481558661","swirl()","Xiangyu Wang" +"1474481706293","H <-read.table(~/.rstudio-desktop/history_database, sep=:, fill=T, stringsAsFactors=F)","Xiangyu Wang" From 904c834c28ad17d620a40b1cdb36921048a6f92f Mon Sep 17 00:00:00 2001 From: Edward Wang Date: Tue, 27 Sep 2016 11:50:09 -0400 Subject: [PATCH 3/3] ok --- Untitled.Rmd | 28 +++++++++ Untitled.html | 167 ++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 195 insertions(+) create mode 100644 Untitled.Rmd create mode 100644 Untitled.html diff --git a/Untitled.Rmd b/Untitled.Rmd new file mode 100644 index 0000000..edc4d00 --- /dev/null +++ b/Untitled.Rmd @@ -0,0 +1,28 @@ +--- +title: "Untitled" +output: html_document +--- + +```{r setup, include=FALSE} +knitr::opts_chunk$set(echo = TRUE) +``` + +## R Markdown + +This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see . + +When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this: + +```{r cars} +summary(cars) +``` + +## Including Plots + +You can also embed plots, for example: + +```{r pressure, echo=FALSE} +plot(pressure) +``` + +Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot. diff --git a/Untitled.html b/Untitled.html new file mode 100644 index 0000000..e448082 --- /dev/null +++ b/Untitled.html @@ -0,0 +1,167 @@ + + + + + + + + + + + + + +Untitled + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + + + +
+

R Markdown

+

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

+

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

+
summary(cars)
+
##      speed           dist       
+##  Min.   : 4.0   Min.   :  2.00  
+##  1st Qu.:12.0   1st Qu.: 26.00  
+##  Median :15.0   Median : 36.00  
+##  Mean   :15.4   Mean   : 42.98  
+##  3rd Qu.:19.0   3rd Qu.: 56.00  
+##  Max.   :25.0   Max.   :120.00
+
+
+

Including Plots

+

You can also embed plots, for example:

+

+

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

+
+ + + + +
+ + + + + + + +