Publications by Andrew
Heart Disease Analysis
# load dataset heart <- read.csv("/cloud/project/dataset/heart_disease.csv") head(heart) ## Age Gender Blood.Pressure Cholesterol.Level Exercise.Habits Smoking ## 1 56 Male 153 155 High Yes ## 2 69 Female 146 286 High No ## 3 46 Male 126 ...
47 sym R (11589 sym/39 pcs) 5 img
Analysis of Housing Dataset
# load packages library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(ggplot2) # Establish the general directory getwd() ## [1] "/cloud/project/housing" # Establi...
65 sym R (11590 sym/50 pcs) 12 img
Analysis Report Hospital Admissions datasets
# Establish main directory where data is stored getwd() ## [1] "/cloud/project/hospital" # Establish specific directory where data is stored list.files( "/cloud/project") ## [1] "Elective) #and ward assignment.R" "hospital" ## [3] "project.Rproj" list.files( "/cloud/project/hospital") ## [1] "Admissions.csv" ...
89 sym R (21969 sym/75 pcs) 11 img
Retail Demographics Analysis Report
# load dataset customer <- read.csv("/cloud/project/retail/customer_data.csv") head(customer) ## Age Gender Income SpendScore EducationLevel Region PurchasedProduct Rating ## 1 56 Male 41672 19 Bachelors South 0 1 ## 2 46 Female 78217 37 PhD West 1 5 ## 3 32 Female ...
65 sym R (13904 sym/50 pcs) 12 img
Market Lending Risks Analysis
# load packages install.packages("tidyverse") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1...
70 sym R (15049 sym/59 pcs) 8 img
Analysis of Solar Financing
install.packages("tidyverse") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcat...
74 sym R (15359 sym/59 pcs) 12 img
Document
# Load Jan jan_records <- read.csv("/cloud/project/call-center/Jan.csv") head(jan_records) ## Date AgentID TotalCalls AnsweredCalls AbandonedCalls SpeedOfAnswer ## 1 2024-01-16 A1504 119 107 12 51.14 ## 2 2024-01-10 A1030 170 69 101 46.05 ## 3 2024-01-29 A1200 ...
37 sym R (11140 sym/31 pcs) 3 img
Document
# load packages library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ✔ tid...
44 sym R (16105 sym/35 pcs) 6 img
Mental Health and Technology Analysis Report
# load packages install.packages("tidyverse") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1...
36 sym R (8880 sym/30 pcs) 3 img
Digital wallet analysis output report
# load packages install.packages("tidyverse") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1...
40 sym R (9937 sym/33 pcs) 4 img