Publications by J Kyle Armstrong, PhD
Adjusted R2 Vs RMSE Repeated Cross Fold Validation - Experiment
1 Setup set.seed(1701) library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.0.6 v dplyr 1.0.4 ## v tidyr 1.1.2 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.0 ## -- Conflicts ------------------------------------------ tid...
3701 sym R (46943 sym/136 pcs) 15 img
PCA w diab_pop
1 SET UP library(data.table) library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.0.6 v dplyr 1.0.4 ## v tidyr 1.1.2 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.0 ## -- Conflicts ----------------------------------------...
704 sym R (16598 sym/74 pcs) 3 img
Predictive Model Clustering w diab_pop
1 SET UP library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.0.6 v dplyr 1.0.4 ## v tidyr 1.1.2 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.0 ## -- Conflicts ------------------------------------------ tidyverse_conflict...
327 sym R (22323 sym/102 pcs) 6 img
Resampling Samples - glm logit caret
\(~\) \(~\) \(~\) 1 STEP UP set.seed(1701) library('tidyverse') ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.0.6 v dplyr 1.0.4 ## v tidyr 1.0.2 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.0 ## -- Conflicts ----------------------...
1100 sym R (47962 sym/147 pcs) 12 img
Automated Sankey Network Diagram Example Revisited
current_path <- getwd() \(~\) \(~\) \(~\) 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.6 v dplyr 1.0.4 ## v tidyr 1.1.2 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.0 ## -- Conflicts ------...
189 sym R (5664 sym/30 pcs)
SVM_Multiclass
\(~\) \(~\) 1 NHANES data #install.packages('svmLinear3') #install.packages('LiblineaR') library('tidyverse') ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.0.6 v dplyr 1.0.4 ## v tidyr 1.1.2 v stringr 1.4.0 ## v readr 1.4.0 v forca...
611 sym R (8273 sym/33 pcs) 3 img
Adj_R2_V_RMSE_CV_2022
1 Setup set.seed(1701) library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.5 v purrr 0.3.4 ## v tibble 3.1.5 v dplyr 1.0.7 ## v tidyr 1.1.4 v stringr 1.4.0 ## v readr 2.0.2 v forcats 0.5.1 ## -- Conflicts ------------------------------------------ tid...
2112 sym R (19403 sym/73 pcs) 3 img
R^2^ VS Area Under ROC Curve
1 Setup set.seed(1701) library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.5 v purrr 0.3.4 ## v tibble 3.1.5 v dplyr 1.0.7 ## v tidyr 1.1.4 v stringr 1.4.0 ## v readr 2.0.2 v forcats 0.5.1 ## -- Conflicts ------------------------------------------ tid...
2117 sym R (20425 sym/75 pcs) 3 img
Logistic Regression with caret
\(~\) \(~\) \(~\) \(~\) 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")) } } ...
380 sym R (18542 sym/60 pcs) 5 img