Publications by J Kyle Armstrong, PhD
Logistic Regression
\(~\) \(~\) \(~\) 1 Read in the Data diab_pop <- readRDS('C:/Users/jkyle/Documents/GitHub/Intro_Jeff_Data_Science/DATA/diab_pop.RDS') \(~\) \(~\) \(~\) \(~\) 1.1 Reminders 1.1.1 The Data #### Variable in Data - Definition - Data Type ##### seqn - Respondent sequence number - Identifier ##### riagendr - Gender - Categorical ##### ridageyr -...
2281 sym R (35932 sym/63 pcs) 6 img 1 tbl
Exploratory Data Analysis
\(~\) \(~\) \(~\) 1 Packages, Libraries, and Functions The first step is to read in the data. This can be done with a number of functions. Some common ones in base R include: for reading in R RDS files: readRDS for reading in csv files: read.csv Help for functions can be found within the R terminal by use of the question mark: ?readRDS Someti...
9511 sym R (121643 sym/307 pcs) 24 img 9 tbl
Selection_by_Filter
0.1 install_if_not function install_if_not <- function( list.of.packages ) { new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])] if(length(new.packages)) { install.packages(new.packages) } else { print(paste0("the package '", list.of.packages , "' is already installed")) } } install_if_not("gam") ...
516 sym R (7168 sym/34 pcs)
Recursive_Feature_Elimination
1 Setup library(tidyverse) ## -- Attaching packages ------------------------------------------------------------------------------------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.0 v purrr 0.3.3 ## v tibble 2.1.3 v dplyr 0.8.5 ## v tidyr 1.0.2 v stringr 1.4.0 ## v readr 1.3.1 v forcats 0.5.0 ##...
294 sym R (8975 sym/29 pcs) 1 img
Decision Trees
\(~\) \(~\) \(~\) 1 Read in the Data diab_pop <- readRDS('C:/Users/jkyle/Documents/GitHub/Intro_Jeff_Data_Science/DATA/diab_pop.RDS') \(~\) \(~\) \(~\) 1.1 Reminders ###The Data #### Variable in Data - Definition - Data Type ##### seqn - Respondent sequence number - Identifier ##### riagendr - Gender - Categorical ##### ridageyr - Age in yea...
3926 sym R (87074 sym/225 pcs) 24 img
Random Forest Classification
\(~\) \(~\) \(~\) 1 Read in the Data install_if_not <- function( list.of.packages ) { new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])] if(length(new.packages)) { install.packages(new.packages) } else { print(paste0("the package '", list.of.packages , "' is already installed")) } } library('tidy...
575 sym R (25309 sym/59 pcs) 8 img
Random Forest Regression
\(~\) \(~\) \(~\) 1 Read in the Data install_if_not <- function( list.of.packages ) { new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])] if(length(new.packages)) { install.packages(new.packages) } else { print(paste0("the package '", list.of.packages , "' is already installed")) } } library('tidy...
505 sym R (22551 sym/48 pcs) 6 img
k-mean Clustering
1 Explore the ‘USArrests’ dataset and prep data # Remove missing df <-na.omit(USArrests) # Scale the data df.scaled <- scale(df) # Look at the data head(df.scaled, n=3) ## Murder Assault UrbanPop Rape ## Alabama 1.24256408 0.7828393 -0.5209066 -0.003416473 ## Alaska 0.50786248 1.1068225 -1.2117642 2.48420294...
977 sym R (4043 sym/8 pcs) 2 img
Automated Sankey Network Diagram Example
\(~\) \(~\) \(~\) 1 Load Sample Data library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.0.4 v dplyr 0.8.5 ## v tidyr 1.0.2 v stringr 1.4.0 ## v readr 1.3.1 v forcats 0.5.0 ## -- Conflicts --------------------------------...
495 sym R (28612 sym/56 pcs)
Resampling Samples caret glm
\(~\) \(~\) \(~\) 1 STEP UP library('tidyverse') ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.0.4 v dplyr 0.8.5 ## v tidyr 1.0.2 v stringr 1.4.0 ## v readr 1.3.1 v forcats 0.5.0 ## -- Conflicts ---------------------------------------...
827 sym R (30521 sym/118 pcs) 4 img