.Rhistory

setwd("/Users/happyrabbit/Documents/GitHub/CE_JSM2017")
bookdown::render_book("index.Rmd", "bookdown::gitbook")
setwd("/Users/happyrabbit/Documents/GitHub/CE_JSM2017")
bookdown::render_book("index.Rmd", "bookdown::gitbook")
sim.dat<-readr::read_csv("https://raw.githubusercontent.com/happyrabbit/DataScientistR/master/Data/SegData.csv")
library(dplyr)
sim.dat%>%
group_by(gender)%>%
summarise(Avg_online_trans=mean(online_trans))
ave_exp <- sim.dat %>%
filter(!is.na(income)) %>%
group_by(segment) %>%
summarise(
ave_online_exp = mean(online_exp),
n = n() ) %>%
filter(n > 200)
ave_exp
ave_exp <- filter(
summarise(
group_by(
filter(
sim.dat,
!is.na(income)
),
segment
),
ave_online_exp = mean(online_exp),
n = n()
),
n > 200
)
ave_exp
system.time(topic<-data.table::fread("https://raw.githubusercontent.com/happyrabbit/DataScientistR/master/Data/topic.csv"))
setwd("/Users/happyrabbit/Documents/GitHub/CE_JSM2017")
bookdown::render_book("index.Rmd", "bookdown::gitbook")
bookdown::render_book("index.Rmd", "bookdown::gitbook")
setwd("/Users/happyrabbit/Documents/GitHub/CE_JSM2017")
bookdown::render_book("index.Rmd", "bookdown::gitbook")
install.packages(rticles)
install.packages("rticles")
library(rticles)
install.packages("rmarkdown")
Sys.getenv("PATH")
render("/Users/happyrabbit/Desktop/test.Rmd")
library(rmarkdown)
library(rmarkdown)
render("/Users/happyrabbit/Desktop/test.Rmd")
getwd()
source("Rcode/00-course-setup.r")
source("Rcode/00-course-setup.r")
read_csv("2015,2016,2017
1,2,3
4,5,6")
system.time(topic<-data.table::fread("https://raw.githubusercontent.com/happyrabbit/DataScientistR/master/Data/topic.csv"))