Publications by Hunter B. Sturgill
Problem Set 3
Reading in the data set PS3_DATA <- read.csv("ProblemSet3Data.csv") Loading the needed library library(psych) library(ggplot2) ## ## Attaching package: 'ggplot2' ## The following objects are masked from 'package:psych': ## ## %+%, alpha library(report) PART I: Correlation and Regression Pearson’s r Correlation between the average amount o...
915 sym R (6601 sym/43 pcs) 2 img
Final Project
reading in data data <- read.csv("wpa_lena_pos.csv") loading libraries library(psych) library(report) descriptive statistics on all variables describe(data$sit_time) ## vars n mean sd median trimmed mad min max range skew kurtosis se ## X1 1 850 0.51 0.3 0.48 0.51 0.33 0 1 1 0.11 -1.01 0.01 describe(data$held_time) ## ...
749 sym R (12190 sym/49 pcs) 5 img
lab week 7
#Setup Make sure you check which packages you haven’t installed and do that first Also, don’t forget to set your working directory library(ggplot2) library(ggpubr) library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3....
4671 sym R (10600 sym/54 pcs) 6 img
Problem Set 4
Loading libraries library(ggplot2) library(ggpubr) library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ── ## ✔ tibble 3.1.8 ✔ dplyr 1.0.10 ## ✔ tidyr 1.2.1 ✔ stringr 1.4.1 ## ✔ readr 2.1...
451 sym R (4921 sym/42 pcs) 1 img
FINAL PROJECT 211
loading libraries library(psych) library(report) Reading in data FinalData <- read.csv("wpa_lena_pos.csv") Subsetting variables of interest df <- FinalData[,1:8] Aggregating sitting time variable sit_mean <- aggregate(df$sit_time, by=list(df$id_uni), FUN=mean) names(sit_mean)[names(sit_mean) == "Group.1"] <- "UniqueID" names(sit_mean)[names(sit_m...
1339 sym R (14197 sym/63 pcs) 5 img