Publications by Wing Siang Chang (s3918329)
A3Draft131021
Voiceover Presentation URL: https://www.loom.com/share/30a1f8ad097a4a18ae8f48b1d2413d1f Required packages library (readxl) ## Warning: package 'readxl' was built under R version 4.1.1 library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are m...
1033 sym R (20080 sym/161 pcs) 6 img
AAA1 26122
1.1 Print out the dimensions of the data frame. ## [1] 56000 4 1.2 Print out the names and type of each of the data frame’s columns. ## tibble [56,000 x 4] (S3: tbl_df/tbl/data.frame) ## $ region : chr [1:56000] "SSC20005" "SSC20005" "SSC20005" "SSC20005" ... ## $ age : num [1:56000] 0 0 1 1 2 2 3 3 4 4 ... ## $ gender : ...
4082 sym R (1281 sym/24 pcs) 10 img
AAA1 26122V2
1.1 Print out the dimensions of the data frame. ## [1] 56000 4 1.2 Print out the names and type of each of the data frame’s columns. ## tibble [56,000 x 4] (S3: tbl_df/tbl/data.frame) ## $ region : chr [1:56000] "SSC20005" "SSC20005" "SSC20005" "SSC20005" ... ## $ age : num [1:56000] 0 0 1 1 2 2 3 3 4 4 ... ## $ gender : ...
4082 sym R (1281 sym/24 pcs) 10 img
AAA1 26122v3
Codes library(ggplot2) library(dplyr) library(magrittr) library(data.table) library(readxl) # Load the readxl package library(tidyr) library(stringr) library(openxlsx) library(readxl) library("Hmisc") library(lattice) library(latticeExtra) library(tidyverse) A1a <- read_excel("pop_dataset.xlsx", sheet = 1) A1 <- A1a[order(A1a$region...
39 sym R (16821 sym/26 pcs)
AAA1 26122Code2
Codes library(data.table) library(dplyr) library(ggplot2) library(Hmisc) library(lattice) library(latticeExtra) library(magrittr) library(openxlsx) library(readxl) library(stringr) library(tidyr) library(tidyverse) A1a <- read_excel("pop_dataset.xlsx", sheet = 1) A1 <- A1a[order(A1a$region), ] #sort original regions into numerical o...
39 sym R (16774 sym/26 pcs)
AAA1 Codes dplyr
CODES library(ggplot2) library(dplyr) library(readxl) ## Question 1.1 A1a <- read_excel("pop_dataset.xlsx", sheet = 1) A1 <- arrange(A1a, region) #sort original regions into numerical order (using dplyr) dim (A1) ## Question 1.2 glimpse(A1) #dplyr function ## Question 1.3 #To create a dataframe with region numbered from 1 to 500 df...
38 sym R (16121 sym/25 pcs)
AAAA1 Codes dplyr v2
CODES library(ggplot2) library(dplyr) library(readxl) ## Question 1.1 A1a <- read_excel("pop_dataset.xlsx", sheet = 1) # sort original regions into numerical order (using dplyr) A1 <- arrange(A1a, region) dim (A1) ## Question 1.2 glimpse(A1) #dplyr function ## Question 1.3 # To create a dataframe with region numbered from 1 to 500 ...
38 sym R (16210 sym/25 pcs)
A3 Final 27-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? Question 3 How co...
13045 sym R (12036 sym/34 pcs)
A3 Draft 2 26-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...
12936 sym R (12036 sym/34 pcs)
A3 Draft 1 26-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...
12931 sym R (12036 sym/34 pcs)