Publications by Wing Siang Chang (s3918329)
A3 Draft 4 25-2-22
library(ggplot2) library(dplyr) library(readr) library(here) library(magrittr) library(psych) STEPS AND CONCLUSIONS The questions raised by the executive at WNW are: Question 1 Is the new recommendation engine algorithm worth rolling out to all their subscribers? Question 2 Is there any bias in the data collection? Question3 How cou...
13158 sym R (11887 sym/34 pcs)
A3 Draft 3 25-2-22
library(ggplot2) library(dplyr) library(readr) library(here) library(magrittr) library(psych) #Steps and Conclusions The questions raised by executive at WNW are: Question 1 if the new recommendation engine algorithm is worth rolling out to all their subscribers? Question 2 Is there any bias in the data collection? Question3 How coul...
13075 sym R (11879 sym/34 pcs)
A3 Draft 2 25-2-22
library(ggplot2) library(dplyr) library(readr) library(here) library(magrittr) library(psych) STEPS AND CONCLUSIONS The questions raised by the executive at WNW are: Question 1 if the new recommendation engine algorithm is worth rolling out to all their subscribers? Question 2 Is there any bias in the data collection? Question3 How ...
13187 sym R (11879 sym/34 pcs)
A3 24-2-22 Draft 1
library(ggplot2) # for data visualisation library(dplyr) # for data wrangling library(readr) # for reading data library(here) # for file paths library(magrittr) # for pipes #library("reshape2") # Load reshape2 library("psych") # for scatter matrix Load Streaming data stream <- "streaming_data.csv" #col_names ...
1498 sym R (16916 sym/43 pcs) 14 img
A3 Draft 3 21-2-22
library(ggplot2) # for data visualisation library(dplyr) # for data wrangling library(readr) # for reading data library(here) # for file paths library(magrittr) # for pipes library("reshape2") # Load reshape2 library("psych") # for scatter matrix Load Streaming data stream <- "streaming_data.csv" col_names <-...
1801 sym R (16468 sym/42 pcs) 12 img
A3 Draft 2 21-2-22
Libraries library(ggplot2) # for data visualisation library(dplyr) # for data wrangling library(readr) # for reading data library(here) # for file paths library(magrittr) # for pipes #library("ggpubr") # for creating and customizing 'ggplot2'- based #publication ready plots. #theme_set(theme_pubr()) library("reshape2") ...
2316 sym R (17737 sym/45 pcs) 11 img
A3Draft1
Libraries Load Streaming data The following chunk will load the pre-cleaned Stream data. # load stream dataset ‘data.frame’: 1000 obs. of 8 variables: $ date : chr “01-Jul” “01-Jul” “01-Jul” “01-Jul” … $ gender : num 0 0 0 1 1 1 0 1 1 1 … $ age : int 28 32 39 52 25 51 53 42 41 20 … $ social_metric : int 5 7 4 10 1...
7346 sym R (4162 sym/43 pcs) 8 img
A3 Draft 1 25-2-22
library(ggplot2) library(dplyr) library(readr) library(here) library(magrittr) library(psych) Load Streaming data stream <- "streaming_data.csv" stream_df <- read.csv(here(stream), header = TRUE) stream_df$gender <- gsub("F", "0", stream_df$gender) #change gender F to 0 stream_df$gender <- gsub("M", "1", stream_df$gender) #change ...
7266 sym R (11278 sym/36 pcs) 16 img