Publications by Hyrum Worth
final project 4
Key Questions Can we identify the style of each therapists treatment methods to better match patients to therapists for optimal probability of healing? Exploratory Data Analysis df$label <- as.factor(df$label) sum(is.na(df)) ## [1] 0 levels(df$label) ## [1] "Acceptance" "Active_Ref/Listening" "Advice/Prob_Solving" ## [4] "Avoided_...
4902 sym R (6396 sym/17 pcs)
PUBG Predictions
knitr::opts_chunk$set(echo = TRUE) ####installing packages#### #install.packages("gbm") library(gbm) #install.packages("caret") library(caret) #install.packages("randomForest") library(randomForest) #install.packages("xgboost") library("xgboost") library(dplyr) ####splitting the data up#### df <- read.csv("train_V2.csv")# getting the ...
5 sym R (3202 sym/2 pcs)
Fentanyl and Twitter
The purpose of this project is to get a general sense of twitter’s sentiments regarding fentanyl. Getting Started The first step is to install the necessary packages in R to do the project. I started with the ones that I knew I would use and the added more as the need came up. The following are the packages I used. library(tm) library(devtool...
2833 sym R (2725 sym/17 pcs) 1 img
project 4 milestone 1
Key Questions Can we identify the style of each therapists treatment methods to better match patients to therapists for optimal probability of healing? Exploratory Data Analysis df$label <- as.factor(df$label) sum(is.na(df)) ## [1] 0 levels(df$label) ## [1] "Acceptance" "Active_Ref/Listening" "Advice/Prob_Solving" ## [4] "Avoided_...
1060 sym R (1574 sym/6 pcs)
Document
SVM First step library(e1071) library(caret) library(randomForest) library(RSNNS) ####Import data#### train <- read.csv("train.csv", stringsAsFactors = F) finalset <- read.csv("test.csv", stringsAsFactors = F) Data Exploration Now we take a look at the raw data. Here we find one categorical variable that identifies the grouping of pixles ...
3809 sym R (6012 sym/17 pcs)
Findings
Mobile Vs Website Here we have the raw data of the number of people who are using the mobile version and the number of people using the web version. As we can see, there are more people using the web version of the software than there are people using the mobile version. (About a 60% 40% split) Gender, Contributions, and User Type The next s...
1903 sym 4 img
milestone 2 and 1
Key Questions Can we identify the style of each therapists treatment methods to better match patients to therapists for optimal probability of healing? Exploratory Data Analysis df$label <- as.factor(df$label) sum(is.na(df)) ## [1] 0 levels(df$label) ## [1] "Acceptance" "Active_Ref/Listening" "Advice/Prob_Solving" ## [4] "Avoided_...
4336 sym R (5961 sym/16 pcs)
Candy Land Multi-Player
#CandyLAND current_position <-0 #initianting variables turn_counter <- 0 #initianting variables ####the spinner mechanism#### #this is the list used to set the probabilites for each turn my_prob <- c(.077,.077,.077,.077,.077,.077,.077,.077,.077,.077,.077,.077,.019,.019,.019,.019) #this is the function for the spinner spinner <- function(cu...
21 sym R (5809 sym/14 pcs) 2 img