Publications by Amber Heston
Lab 3 - Mixed Methods or Semi Supervised Learning
Part #1. Step 1 - Exploring and Preparing the Data #Requires some data frame and the top N to remove data <- read.csv("C:/Users/aheston.RESULTS-NY/Desktop/Machine Learning I/Lab 3/Wholesale_customers_data.csv") summary(data) ## Channel Region Fresh Milk ## Min. :1.000 Min. :1.000 Min. : 3...
897 sym R (25043 sym/66 pcs) 10 img
Mental Health - Dimension Reduction Analysis
mentalillness <- read.csv("C:/Users/hesto/OneDrive/Desktop/HU/Research Methodolody & Writing/Mental Illness Homelessness.csv") mentalillness <- na.omit(mentalillness) mentalillness_pca <- select(mentalillness, -c(1,3,4,5,8,10,14,15,19,20,21,22,23,24,25,26,27,28,29,30,31)) colnames(mentalillness_pca)<- c("Mentally Ill","Days Hospitalized","L...
770 sym R (5784 sym/14 pcs) 3 img
Mental Health - Cluster Analysis
mentalillness <- read.csv("C:/Users/hesto/OneDrive/Desktop/HU/Research Methodolody & Writing/Mental Illness Homelessness.csv") mentalillness <- na.omit(mentalillness) mentalillness_cluster <- select(mentalillness, -c(1,3,4,5,8,10,14,15,19,20,21,22,23,24,25,26,27,28,29,30,31)) colnames(mentalillness_cluster)<- c("Mentally Ill","Days Hospital...
517 sym R (2630 sym/14 pcs) 4 img
Mental Health - Factor Analysis
Step 1 - Data description dim(mentalillness) ## [1] 296 31 str(mentalillness) ## 'data.frame': 296 obs. of 31 variables: ## $ I.am.currently.employed.at.least.part.time : int 0 1 1 1 1 1 1 1 1 1 ... ## $ I.identify.as.having.a.mental.illness : int 0 1 0 1 0 0 1 0 1 1 ... ## $ Education ...
989 sym R (16358 sym/34 pcs) 4 img
Mental Health - Data Visualization
mentalillness <- read.csv("C:/Users/hesto/OneDrive/Desktop/HU/Research Methodolody & Writing/Mental Illness Homelessness.csv") mentalillness$I.am.unemployed<- as.character(mentalillness$I.am.unemployed) Univariate Analysis #ggplot ggplot(mentalillness, aes(x= I.am.unemployed))+ geom_bar()+ labs(title = "Bar chart of employment status")+...
810 sym R (1463 sym/4 pcs) 3 img
Mental Health - Missing Data and Outliers
mentalillness <- read.csv("C:/Users/hesto/OneDrive/Desktop/HU/Research Methodolody & Writing/Mental Illness Homelessness.csv") Missing Data Description and Summary #missing data sapply(mentalillness, function(x) sum(is.na(x))) ## I.am.currently.employed.at.least.part.time ## ...
1148 sym R (4525 sym/10 pcs) 3 img