Publications by Jake Reynolds - August 23, 2020

Module 7 - Modeling Trajectories and Time Series

library("markovchain") mcStats <- new("markovchain", state = c("bored", "horrified", "sleeping", "somewhat awake"), transitionMatrix = matrix(c(0.60, 0.05, 0.25, 0.10, 0.15, 0.30, 0.10, 0.45, 0.10, 0.10, 0.50, 0.30, 0.30, 0.10, 0.50, 0.10), byrow = TRUE, nrow = 4), name = "StatsClass") print(mcStats) bored horrified sleepi...

4241 sym R (4796 sym/38 pcs) 2 img

Final Project, Part 2 - Exploratory Multidimensional Scaling

library("MPsychoR") library("smacof") chps = read.csv("chps_support.csv") #Random force used to add missing values. missRanger - Fast Imputation of Missing Values by Chained Random Forests options(digits=2, scipen=999) data(list="chps", package="MPsychoR") data set 㤼㸱chps㤼㸲 not found mydata2<-missRanger::missRanger(data = chps, verbose...

6804 sym R (4565 sym/44 pcs) 19 img