-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
40 lines (40 loc) · 1.31 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
library(here)
library(ptaxsim)
setwd("/users/monicanimmagadda/ptax-project")
source('ptax_sim_functions.R')
setwd("~/ptax-project")
source('ptax_sim_functions.R')
source('maps.R')
source('maps.R')
library(here)
library(ptaxsim)
setwd("~/ptax-project")
source('ptax_sim_functions.R')
source('ptax_sim_functions.R')
source('maps.R')
library(here)
library(ptaxsim)
setwd("~/ptax-project")
source('ptax_sim_functions.R')
setwd("~/ptax-project")
source('ptax_sim_functions.R')
setwd("/Users/sarahlueling/ptax-project")
source('ptax_sim_functions.R')
source('ptax_sim_functions.R')
setwd("~/ptax-project")
source('ptax_sim_functions.R')
source('maps.R')
library(here)
library(ptaxsim)
# set the house we want and example districts
pin_14 <- "15361000280000"
year = 2021
districts = c("VILLAGE OF RIVERSIDE", "SCHOOL DISTRICT 96", "TOWN RIVERSIDE", "RIVERSIDE BROOKFIELD HIGH SCHOOL 208","DES PLAINES VALLEY MOSQUITO ABATEMENT DISTRICT","TRITON COMMUNITY COLLEGE DISTRICT 504","METRO WATER RECLAMATION DISTRICT OF GREATER CHICAGO","COUNTY OF COOK")
col_names <- c("district", "levy", "base", "rate", "av", "eav", "property_tax")
df <- data.frame(matrix(ncol = 7, nrow = 0))
colnames(df) <- col_names
df <- populate_df(df, districts, year, pin_14)
df <- format_df(df)
source('ptax_sim_functions.R')
setwd("~/ptax-project")
source('ptax_sim_functions.R')