Publications by Steve Phillips
story3_rough_code
library(ggplot2) ## Warning: package 'ggplot2' was built under R version 4.3.3 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(tidyr) library(raster) ...
44 sym R (4496 sym/39 pcs) 2 img
Story 2
Story 2 Load and Clean CPI Data using Bureau of Labor Statistics API payload <- glue('{ "seriesid":["CUUR0000SA0"], "startyear":"2016", "endyear":"2024", "registrationkey":"{{api_key}}" }',.open = "{{",.close="}}") # POST Request response <-POST(url, body = payload, content_type("application/json"), ...
469 sym Python (9870 sym/29 pcs) 1 img
Project 2 draft
Import Data: library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.3 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.4 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ✔ ti...
1267 sym R (144578 sym/83 pcs) 2 img
Homework9
Homework 9 library(caret) library(ggplot2) library(fpp3) library(randomForest) library(party) library(gbm) library(ipred) library(Cubist) library(AppliedPredictiveModeling) library(partykit) library(rpart) library(rpart.plot) 8.1 library(mlbench) ## Warning: package 'mlbench' was built under R version 4.3.3 set.seed(249) simulated <- m...
3745 sym R (8230 sym/50 pcs) 1 img
Homework8
Homework 8 Question 7.2 library(fpp3) library(caret) library(mlbench) library(ggplot2) library(ggcorrplot) Import our Data: set.seed(200) trainingData <- mlbench.friedman1(200, sd = 1) trainingData$x <- data.frame(trainingData$x) featurePlot(trainingData$x, trainingData$y) testData <- mlbench.friedman1(5000, sd =1) testData$x <- data.fra...
1665 sym R (18683 sym/47 pcs) 2 img
Homework7_data624
library(caret) library(ggplot2) library(fpp3) library(ggcorrplot) set.seed(1443) Homework 7 Question 6.2 A.) library(AppliedPredictiveModeling) data(permeability) print(dim(permeability)) ## [1] 165 1 print(dim(fingerprints)) ## [1] 165 1107 B.) var_pred <- fingerprints[, -nearZeroVar(fingerprints)] After removing the near zero varian...
2383 sym R (10514 sym/53 pcs) 5 img
Project1_data624
Project 1 Part 1: The task for part 1 is to take ATM transaction data for 4 different ATMs and forecast how much cash will be taken out of them for May 2010. Import data and Perform EDA library(tidyverse) library(fpp3) library(readxl) library(knitr) library(ggplot2) library(writexl) Import Data: suppressWarnings({ df <- read_excel("ATM6...
9898 sym R (34573 sym/180 pcs) 35 img
Homework6 Data624
library(fpp3) ## ── Attaching packages ────────────────────────────────────────────── fpp3 0.5 ── ## ✔ tibble 3.2.1 ✔ tsibble 1.1.4 ## ✔ dplyr 1.1.3 ✔ tsibbledata 0.4.1 ## ✔ tidyr 1.3.0 ✔ feasts 0...
3530 sym R (10809 sym/58 pcs) 45 img
Homework5_data624
library(fpp3) ## ── Attaching packages ────────────────────────────────────────────── fpp3 0.5 ── ## ✔ tibble 3.2.1 ✔ tsibble 1.1.4 ## ✔ dplyr 1.1.3 ✔ tsibbledata 0.4.1 ## ✔ tidyr 1.3.0 ✔ feasts 0.3...
3227 sym R (16178 sym/93 pcs) 14 img
Homework4_data624
library(mlbench) library(AppliedPredictiveModeling) library(ggplot2) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.3 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ lubridate 1.9.3...
3734 sym R (10083 sym/42 pcs) 6 img