Commit fe60a0ce authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

update lib

parent 607d07e9
# 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"))
```
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/")
}
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment