Publications by Sith
Bankruptcy _Final
Remove Packages / Clear Memory Load Load R ######Libraries############################# suppressWarnings({ require(Amelia) require(broom) require(car) require(caret) require(corrplot) require(dplyr) require(e1071) require(fastDummies) require(fmsb) require(ggplot2) require(ggcorrplot) require(ggExtra) req...
1519 sym R (376470 sym/156 pcs) 115 img
Bankruptcy 5
Load Load R ######Libraries############################# suppressWarnings({ require(Amelia) require(broom) require(car) require(caret) require(corrplot) require(dplyr) require(e1071) require(fastDummies) require(fmsb) require(ggplot2) require(ggcorrplot) require(ggExtra) require(glmpath) require(grid) ...
2412 sym Python (278630 sym/1607 pcs) 105 img 9 tbl
Bankrupty R/Python 2
Load Load R ######Libraries############################# suppressWarnings({ require(Amelia) require(broom) require(car) require(caret) require(corrplot) require(dplyr) require(e1071) require(fastDummies) require(fmsb) require(ggplot2) require(ggcorrplot) require(ggExtra) require(glmpath) require(grid) ...
2347 sym Python (262893 sym/1804 pcs) 108 img 9 tbl
Discussion 2 Predictive Analytics
Libraries require(fpp3) ## Loading required package: fpp3 ## Warning: package 'fpp3' was built under R version 4.3.1 ## ── Attaching packages ────────────────────────────────────────────── fpp3 0.5 ── ## ✔ tibble 3.2.1 ✔ tsibble 1.1....
133 sym Python (7434 sym/47 pcs) 3 img
Homework 5 Fall 2023
Function to Reject or Not myp=function(p, alpha){ifelse(p<alpha, return(noquote('REJECT Ho')),return(noquote('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, j...
13091 sym Python (7857 sym/58 pcs) 6 img
Example
set.seed(1234) myvec=rep(0,1000) temp=rep(0,10) for (i in 1:1000) { temp=sample(c(0,1), 100, replace=T) myvec[i]=length(temp[temp==1])/length(temp)} myhist=hist(myvec, main='Fair Coin Example', ylim=c(0,500)) #Normal Curve x_values <- seq(min(myvec), max(myvec), length = 100) y_values <- dnorm(x_values, mean = mean(myvec), sd = sd(myv...
5 sym 1 img
Bankruptcy 2
Correlation Function corfunction=function(d){ mycorr=cor(d[, 1:ncol(d)]); p.mat=ggcorrplot::cor_pmat(d[,1:ncol(d)]) myplot=ggcorrplot(mycorr, hc.order=TRUE,type="lower", colors=c("red", "white","green"),tl.cex = 8, tl.col = "black", lab=TRUE, lab_size=2, p.mat=p.mat, insig="pch",...
10921 sym R (66580 sym/150 pcs) 13 img
Notes
Libraries require(moments) ## Loading required package: moments require(car) ## Loading required package: car ## Loading required package: carData require(dplyr) ## Loading required package: dplyr ## ## Attaching package: 'dplyr' ## The following object is masked from 'package:car': ## ## recode ## The following objects are masked from 'pa...
5353 sym Python (19092 sym/81 pcs) 10 img
BRFSS 2 Update 2023
Setup Setup knitr::opts_chunk$set(echo = TRUE) knitr::opts_knit$set(root.dir = "C:/Users/lfult/Documents/Jose") Load Libraries rm(list=ls()) options(scipen=20) require(dplyr) ## Loading required package: dplyr ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following...
19117 sym R (34249 sym/133 pcs) 20 img 14 tbl
Cyber
Load Libraries ## Loading required package: Amelia ## Loading required package: Rcpp ## ## ## ## Amelia II: Multiple Imputation ## ## (Version 1.8.1, built: 2022-11-18) ## ## Copyright (C) 2005-2023 James Honaker, Gary King and Matthew Blackwell ## ## Refer to http://gking.harvard.edu/amelia/ for more information ## ## ## Loading required pac...
638 sym R (39515 sym/129 pcs) 9 img 1 tbl