codeclan
diff --git a/‎data-raw/prep_data.R‎
Lines changed: 5 additions & 5 deletions b/‎data-raw/prep_data.R‎
Lines changed: 5 additions & 5 deletions
diff --git a/‎data/IBM_stock_price.rda‎
-248 Bytes b/‎data/IBM_stock_price.rda‎
-248 Bytes
diff --git a/‎data/JNJ_stock_price.rda‎
65 Bytes b/‎data/JNJ_stock_price.rda‎
65 Bytes
diff --git a/‎data/all_deaths.rda‎
0 Bytes b/‎data/all_deaths.rda‎
0 Bytes
diff --git a/‎data/bimodal.rda‎
-6 Bytes b/‎data/bimodal.rda‎
-6 Bytes
diff --git a/‎data/blood_pressure.rda‎
-4 Bytes b/‎data/blood_pressure.rda‎
-4 Bytes
diff --git a/‎data/car_use.rda‎
2 Bytes b/‎data/car_use.rda‎
2 Bytes
diff --git a/‎data/comms_data.rda‎
-244 Bytes b/‎data/comms_data.rda‎
-244 Bytes
diff --git a/‎data/drinks_content.rda‎
-6 Bytes b/‎data/drinks_content.rda‎
-6 Bytes
diff --git a/‎data/example_psi.rda‎
0 Bytes b/‎data/example_psi.rda‎
0 Bytes
@@ -287,10 +287,10 @@ JNJ_stock_price <- read_csv("data-raw/data/JNJ.csv")
 ### K ###
 #########
 
-# Crowd funding site Kickstarter 
-kickstarter <- 
-  read_csv("data-raw/data/kickstarter_data.csv") %>% 
-  sample_frac(0.5) %>% 
+# Crowd funding site Kickstarter
+kickstarter <-
+  read_csv("data-raw/data/kickstarter_data.csv") %>%
+  sample_frac(0.5) %>%
   select(-`...1`)
 
 #########
@@ -410,7 +410,7 @@ pension_liabilities <-
 
 # pension_surplus
 pension_surplus <-
-  read_excel('data-raw/data/ExerciseSet.xlsx') %>%
+  read_excel('data-raw/data/ExerciseSet.xlsx', sheet = 8) %>%
   clean_names()
 
 # pets