Publications by Victor Feagins
Task 1 and Task 2 Rjags assignment
Packages library(rjags) #Uses JAGS to create bayesian models ## Loading required package: coda ## Linked to JAGS 4.3.0 ## Loaded modules: basemod,bugs library(coda) library(tidyverse) #Utility functions ## ── Attaching packages ──────────────────────────────────────�...
3998 sym R (9084 sym/73 pcs) 23 img
Learning Bayes
This is some practice to learning Bayesian Ideas in R. Question 1 Swedish Fish Incorporated is the largest Swedish company delivering fish by mail order. They are now trying to get into the lucrative Danish market by selling one year Salmon subscriptions. The marketing department have done a pilot study and tried the following marketing method: ...
2510 sym R (702 sym/9 pcs) 5 img
Assignment #5 DataMining
Chapter 6 Packages set.seed(2000) library(ISLR) library(tidyverse) library (glmnet)#For lasso and ridge library(pls) # PCR Question 2 For parts (a) through (c), indicate which of i. through iv. is correct. Justify your answer. The lasso, relative to least squares, is More flexible and hence will give improved prediction accuracy when its...
3483 sym R (4524 sym/24 pcs) 2 img
Assignment 7
Packages library(tidyverse) library(ISLR) library(splines) library(MASS) Question 8 df.Auto <- Auto Polynomial coef(summary(lm(mpg ~ poly(displacement, 5), data = df.Auto))) #Displacement seems to be squared ## Estimate Std. Error t value Pr(>|t|) ## (Intercept) 23.4459184 0.2208595 106.1576...
158 sym R (4496 sym/17 pcs) 13 img
HW 5
Package library(tidyverse) library(sf) library(leaflet) Data The data I will be using comes from the Integrated Postsecondary Education Data System (IPEDS) database https://nces.ed.gov/ipeds/use-the-data. I will be using creating a leaflet map that shows where schools are in the United States. IPEDS.r <- read_csv("Data/School_Data/Data_5-13-20...
396 sym R (1371 sym/4 pcs)
HW 4
Problem definition Predictive policing is a multi-dimensional optimization problem where law enforcement agencies try to efficiently utilize a scarce resource to minimize instances of crime overtime and across geographies. But how do we optimize? This is precisely what we answer in this assignment by using real and publicly available criminal dat...
28226 sym R (28334 sym/71 pcs) 12 img
Tourism Data Processing
Packages library(tidyverse) Data Since our data files our .rds files we will be using the read_rds function to read them in. Tour <-read_rds("tourism.rds") Continent <- read_rds("country_info.rds") head(Tour) #Gives the first couple rows of data ## # A tibble: 6 x 23 ## A COUNTRY Series `_1995` `_1996` `_1997` `_1998` `_1999` `_2000` ...
2639 sym R (7878 sym/22 pcs)
Migration Estimates HW GIS
Loading Data library(ipumsr) ## Warning: package 'ipumsr' was built under R version 4.0.5 ddi <- read_ipums_ddi("usa_00001.xml") data <- read_ipums_micro(ddi) ## Use of data from IPUMS USA is subject to conditions including that users should ## cite the data appropriately. Use command `ipums_conditions()` for more details. data<-haven::zap_labe...
183 sym R (2151 sym/17 pcs) 2 img
HW 7 Data Mining
Packages library(tidyverse) library(ISLR) library(boot) library(leaps) library(gam) Question 6 6. In this exercise, you will further analyze the Wage data set considered throughout this chapter. Perform polynomial regression to predict wage using age. Use cross-validation to select the optimal degree d for the polynomial. What degree was ch...
2025 sym R (7434 sym/20 pcs) 4 img
Assignment 8 Data Mining
library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.0 v dplyr 1.0.5 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ## Warning: package 'tibble' was built under R version 4.0.4 ## Warning: package 'read...
14 sym R (679 sym/9 pcs)