title: “TRy_REsample”

author: “Jerome”

date: “7/5/2020”

output: html_document

Intro Stuff

setwd("C:/Users/Jerome/Documents/Data_Science_110/Datasets")
library(tidyverse)

## -- Attaching packages ----------------------------------------------------------------------------------------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.1     v dplyr   1.0.0
## v tidyr   1.1.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0

## -- Conflicts -------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(mosaic)

## Warning: package 'mosaic' was built under R version 4.0.2

## Loading required package: lattice

## Loading required package: ggformula

## Warning: package 'ggformula' was built under R version 4.0.2

## Loading required package: ggstance

## Warning: package 'ggstance' was built under R version 4.0.2

## 
## Attaching package: 'ggstance'

## The following objects are masked from 'package:ggplot2':
## 
##     geom_errorbarh, GeomErrorbarh

## 
## New to ggformula?  Try the tutorials: 
##  learnr::run_tutorial("introduction", package = "ggformula")
##  learnr::run_tutorial("refining", package = "ggformula")

## Loading required package: mosaicData

## Warning: package 'mosaicData' was built under R version 4.0.2

## Loading required package: Matrix

## 
## Attaching package: 'Matrix'

## The following objects are masked from 'package:tidyr':
## 
##     expand, pack, unpack

## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2

## 
## The 'mosaic' package masks several functions from core packages in order to add 
## additional features.  The original behavior of these functions should not be affected by this.
## 
## Note: If you use the Matrix package, be sure to load it BEFORE loading mosaic.
## 
## Have you tried the ggformula package for your plots?

## 
## Attaching package: 'mosaic'

## The following object is masked from 'package:Matrix':
## 
##     mean

## The following objects are masked from 'package:dplyr':
## 
##     count, do, tally

## The following object is masked from 'package:purrr':
## 
##     cross

## The following object is masked from 'package:ggplot2':
## 
##     stat

## The following objects are masked from 'package:stats':
## 
##     binom.test, cor, cor.test, cov, fivenum, IQR, median, prop.test,
##     quantile, sd, t.test, var

## The following objects are masked from 'package:base':
## 
##     max, mean, min, prod, range, sample, sum

lcn_fpf_co_names <-read.csv("lcn_fpf_co_names.csv")

lcn_sample_2 = resample(lcn_fpf_co_names, size = 175, replace = FALSE)

Write lcn_sample_2

write.csv(lcn_sample_2, file = "lcn_sample_2.csv")

Run the Regression

## fit3 <- lm(MEASURE ~ as.factor(UrbRur) + as.factor(Educ),+ as.factor(Wealth), data = dataset), data=lcn_sample_2)  
##print(fit3)
##summary(fit3)