Publications by Sith
For Dr. Emily Brunson
Exploratory Data Analysis Load Libraries/Data #####################Read and Pre-Clean the Data####################### require(AICcmodavg) ## Loading required package: AICcmodavg ## Warning: package 'AICcmodavg' was built under R version 4.0.5 require(Amelia) ## Loading required package: Amelia ## Warning: package 'Amelia' was built under R vers...
1526 sym R (83248 sym/371 pcs) 79 img 68 tbl
Predictive Analytics Example
Load Libraries and Data library(lubridate) ## ## Attaching package: 'lubridate' ## The following objects are masked from 'package:base': ## ## date, intersect, setdiff, union library(fastDummies) library(kableExtra) library(fpp2) ## Registered S3 method overwritten by 'quantmod': ## method from ## as.zoo.data.frame zoo...
173 sym R (3350 sym/17 pcs) 6 img 4 tbl
Example ARIMA Model
Load library(readxl) library(httr) library(fpp3) ## -- Attaching packages -------------------------------------------- fpp3 0.4.0 -- ## v tibble 3.0.6 v tsibble 0.9.3 ## v dplyr 1.0.4 v tsibbledata 0.2.0 ## v tidyr 1.1.2 v feasts 0.1.7 ## v lubridate 1.7.9.2 v fable 0.3.0 ## v ...
169 sym R (6976 sym/44 pcs) 10 img 2 tbl
Example from Eric's Code
Library & Split library(ggplot2) ## Warning: package 'ggplot2' was built under R version 4.0.5 setosa <- iris[iris$Species=="setosa",] versicolor <- iris[iris$Species=="versicolor",] virginica <- iris[iris$Species=="virginica",] Setosa Summary summary(setosa) ## Sepal.Length Sepal.Width Petal.Length Petal.Width ## Min. :4.30...
679 sym R (6669 sym/33 pcs) 20 img
Box Cox Example
Load the Library and Data, Plot library(car) ## Warning: package 'car' was built under R version 4.0.5 ## Loading required package: carData library(ResourceSelection) ## Warning: package 'ResourceSelection' was built under R version 4.0.5 ## ResourceSelection 0.3-5 2019-07-22 mytrees=trees #for use with transformation kdepairs(trees) Conduct ...
128 sym R (755 sym/12 pcs) 2 img
For Dr. Kim Lee
Load Data library(psych) ## Warning: package 'psych' was built under R version 4.0.5 setwd("D:/desktopbackup/kim") compdata=read.csv("kim study.csv", stringsAsFactors = T) compdata$Gender=as.factor(compdata$Gender) levels(compdata$Gender)=c("Female", "Male") Describe Data describe(compdata[,2:length(compdata)]) ## vars n mean ...
511 sym R (9372 sym/23 pcs) 6 img
Myocardial Infarction Analysis
Preprocessing Load Libraries Functions ##Print myprint=function(x, lab="") {print(x)%>%kbl(caption=lab)%>%kable_classic(html_font="Cambria")} ## VIF and Effect Sizes mydef=function(x){ pseudo=round(1-x$deviance/x$null.deviance,3) vif=round(max(vif(x)),3) VIF=vif R2=pseudo return(myprint(noquote(rbind(VIF, R2)))) } Read ...
836 sym R (24445 sym/58 pcs) 9 img 12 tbl
Example
Problem The Bavarian Motor Company (BMC) manufactures expensive luxury cars in Hamburg, Germany, and exports cars to sell in the United States. The exported cars are shipped from Hamburg to ports in Newark, New Jersey and Jacksonville, Florida. From these ports, the cars are transported by rail or truck to distributors located in Boston, Massachu...
1869 sym R (1580 sym/9 pcs) 1 img 2 tbl
Examples
Function to Reject or Not myp=function(p, alpha){ if(p<alpha){print('REJECT Ho')}else{print('FAIL 2 REJECT')} } Function for Shading Normal shadenorm = function(below=NULL, above=NULL, pcts = c(0.025,0.975), mu=0, sig=1, numpts = 500, color = "gray", dens = 40, justabove= FALSE, justbelow = FALSE, lines=FALSE,between=NULL,...
5286 sym R (8484 sym/62 pcs) 10 img
Rainwater Harvesting Example
Load Parameters (You could use DoE) tk=40000 #tank size in gallons rf=3000 #roof size in square feet its=1000 #number of its to run simulation yrs=30 #number of yrs to run simulation mo=12 #number of mo each year t=yrs*mo #short hand for total mo prime=10000 #initial gallons primed in water tank constant=7.48 #gallons for each cubic feet ...
278 sym R (2620 sym/9 pcs) 1 img