changing explained_variance_ to explained_variance_ratio_

covid19/CTIS_script_for_james.R

@@ -7,12 +7,14 @@
 library(tidyverse)
 library(dplyr)
 
-country_in_question <- "Finland"
+country_in_question <- "Netherlands"
 
 ## World Survey
 
+# matti date range 2021-06-09 to 2022-01-18
+
 # Ask for an indicator that's not found:
-path <- paste0("https://covidmap.umd.edu/api/resources?indicator=all&type=smoothed&country=", country_in_question, "&daterange=20201115-20201130")
+path <- paste0("https://covidmap.umd.edu/api/resources?indicator=all&type=smoothed&country=", country_in_question, "&daterange=20210609-20220118")
 request <- httr::GET(url = path)
 response <- httr::content(request, as = "text", encoding = "UTF-8")
 
@@ -47,7 +49,7 @@ for (i in 1:length(all_indicators)){
                  all_indicators[i],
                  "&type=daily&country=",
                  country_in_question,
-                 "&daterange=20200101-20221130")
+                 "&daterange=20210609-20220118")
   
   # request data from api
   request <- httr::GET(url = path)
@@ -102,7 +104,7 @@ latest_date <- data_for_pca$date %>% tail(1)
 readr::write_csv(x = data_for_pca,
                  file = paste0("shield-complexity/data/",
                                country_in_question, 
-                               "_worldsurvey_nonmissing_since_2021-06-08_to_",
+                               "_worldsurvey_nonmissing_since_2021-06-09_to_",
                                latest_date, ".csv"))
 
 #### Coefficient of variation