update lib

README.md

+# Cipred
+
+CI prediction.
+
+Methods: Lu2019, Wager2014, Eaamm2010.
+
+## Installation of Cipred v0.0.4 in base R
+
+```r
+setwd("~")
+download.file("https://git.nilu.no/rqcr/qcr/-/archive/0.0.4/cipred-0.0.4.tar.gz",destfile="cipred-0.0.4.tar.gz")
+untar("cipred-0.0.4.tar.gz")
+setwd(file.path("~","cipred-0.0.4"))
+source(file.path("~/cipred-0.0.4/lib/buildpkgs.R"))
+install.packages(file.path("~","cipred-0.0.4.tar.gz"), repos=NULL, type='source')
+unlink(file.path("~/cipred-0.0.4"),recursive=TRUE)
+file.remove(file.path("~/cipred-0.0.4.tar.gz"))
+```

lib/buildpkgs.R

+
+sourcedir <- file.path(getwd(),"lib")
+
+# data.table, purrr, Rcpp, RcppEigen, Matrix, ranger
+install.packages(file.path(sourcedir,"data.table_1.11.8.tar.gz"), repos=NULL, type='source')
+install.packages(file.path(sourcedir,"purrr_0.3.3.tar.gz"), repos=NULL, type='source')
+install.packages(file.path(sourcedir,"Rcpp_1.0.3.tar.gz"), repos=NULL, type='source')
+install.packages(file.path(sourcedir,"RcppEigen_0.3.3.4.0.tar.gz"), repos=NULL, type='source')
+install.packages(file.path(sourcedir,"Matrix_1.2-18.tar.gz"), repos=NULL, type='source')
+install.packages(file.path(sourcedir,"ranger_0.11.1.tar.gz"), repos=NULL, type='source')
+
+## docopt
+install.packages(file.path(sourcedir,"docopt_0.6.1.tar.gz"), repos=NULL, type='source')
+
+if (!("package:dplyr" %in% search())){
+   install.packages("dplyr",repos="https://cran.uib.no/")
+}
+
+if (!("package:ggplot2" %in% search())){
+   install.packages("ggplot2",repos="https://cran.uib.no/")
+}

vignettes/rfci_station_7.Rmd

@@ -40,11 +40,11 @@ fromDate <- "2015/01/01 00:00:00"
 toDate <- "2016/12/31 23:00:00"
 
 # luft
-luft <- friendlyr::ts(service="d.luft.oslyr",
+luft <- glow::ts(service="d.luft.oslyr",
                  fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
                  element_id=element_id,station_id=station_id)
 # qa indicator
-luft_qa <- friendlyr::qa(service="d.luft.oslyr",
+luft_qa <- glow::qa(service="d.luft.oslyr",
                  fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
                  element_id=element_id,station_id=station_id)
 
@@ -62,11 +62,11 @@ fromDate <- "2017/01/01 00:00:00"
 toDate <- "2018/12/31 23:00:00"
 
 # luft
-luft <- friendlyr::ts(service="d.luft.oslyr",
+luft <- glow::ts(service="d.luft.oslyr",
                  fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
                  element_id=element_id,station_id=station_id)
 # qa indicator
-luft_qa <- friendlyr::qa(service="d.luft.oslyr",
+luft_qa <- glow::qa(service="d.luft.oslyr",
                  fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
                  element_id=element_id,station_id=station_id)
 
@@ -295,11 +295,11 @@ fromDate <- "2017/01/01 00:00:00"
 toDate <- "2018/12/31 23:00:00"
 
 # luft
-luft <- friendlyr::ts(service="d.luft.oslyr",
+luft <- glow::ts(service="d.luft.oslyr",
                  fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
                  element_id=element_id,station_id=station_id)
 # qa indicator
-luft_qa <- friendlyr::qa(service="d.luft.oslyr",
+luft_qa <- glow::qa(service="d.luft.oslyr",
                  fromDate=fromDate,toDate=toDate,precision=timeResolution,timeResolution=timeResolution,
                  element_id=element_id,station_id=station_id)