config <- rcouchutils::get.config(Sys.getenv('RCOUCHUTILS_TEST_CONFIG'))
parts <- c('vds','impute','calls')
rcouchutils::couch.makedb(parts)
library('RPostgreSQL')
m <- dbDriver("PostgreSQL")
## requires environment variables be set externally
con <- dbConnect(m
,user=config$postgresql$auth$username
,host=config$postgresql$host
,dbname=config$postgresql$db)
unlink('./files/1211682_ML_2012.120.imputed.RData')
test_that("vds impute works okay",{
file <- './files/1211682_ML_2012.df.2012.RData'
fname <- '1211682_ML_2012'
vds.id <- 1211682
year <- 2012
seconds <- 120
path <- '.'
result <- self.agg.impute.VDS.site.no.plots(fname=fname,
f=file,
path=path,
year=year,
seconds=seconds,
goodfactor=3.5,
maxiter=20,
con=con,
trackingdb=parts)
expect_that(result,equals(1))
## datfile <- dir(path='.',pattern='vds_hour_agg',full.names=TRUE,recursive=TRUE)
## expect_that(datfile[1],matches(paste('vds_hour_agg',vds.id,sep='.')))
datfile <- dir(path='.',
pattern=paste(vds.id,'.*imputed.RData$',sep=''),
full.names=TRUE,recursive=TRUE)
expect_that(datfile[1],matches(paste(vds.id,
'_ML_',
year,'.',
seconds,'.',
'imputed.RData',
sep='')))
saved.state <- rcouchutils::couch.check.state(
year=year,
id=vds.id,
'vdsraw_chain_lengths',
db=parts)
expect_that(saved.state,is_a('numeric'))
expect_that(saved.state,
equals(c(3,3,3,3,3)))
})
unlink('./files/1073210_ML_2012.120.imputed.RData')
test_that("ignoring speed in imputation works okay",{
file <- './files/1073210_ML_2012.df.2012.RData'
fname <- '1073210_ML_2012'
vds.id <- 1073210
year <- 2012
seconds <- 120
path <- '.'
result <- self.agg.impute.VDS.site.no.plots(fname=fname,
f=file,
path=path,
year=year,
seconds=seconds,
goodfactor=3.5,
maxiter=20,
con=con,
trackingdb=parts)
expect_that(result,equals(1))
## datfile <- dir(path='.',pattern='vds_hour_agg',full.names=TRUE,recursive=TRUE)
## expect_that(datfile[1],matches(paste('vds_hour_agg',vds.id,sep='.')))
datfile <- dir(path='.',
pattern=paste(vds.id,'.*imputed.RData$',sep=''),
full.names=TRUE,recursive=TRUE)
expect_that(datfile[1],matches(paste(vds.id,
'_ML_',
year,'.',
seconds,'.',
'imputed.RData',
sep='')))
saved.state <- rcouchutils::couch.check.state(
year=year,
id=vds.id,
'vdsraw_chain_lengths',
db=parts)
expect_that(saved.state,is_a('numeric'))
expect_that(saved.state,
equals(c(5,5,5,5,5)))
})
unlink('./files/1073210_ML_2012.120.imputed.RData')
test_that("another problem low-values site",{
file <- './files/311903_ML_2012.df.2012.RData'
fname <- '311903_ML_2012'
vds.id <- 311903
year <- 2012
seconds <- 120
path <- '.'
result <- self.agg.impute.VDS.site.no.plots(fname=fname,
f=file,
path=path,
year=year,
seconds=seconds,
goodfactor=3.5,
maxiter=20,
con=con,
trackingdb=parts)
expect_that(result,equals(1))
## datfile <- dir(path='.',pattern='vds_hour_agg',full.names=TRUE,recursive=TRUE)
## expect_that(datfile[1],matches(paste('vds_hour_agg',vds.id,sep='.')))
datfile <- dir(path='.',
pattern=paste(vds.id,'.*imputed.RData$',sep=''),
full.names=TRUE,recursive=TRUE)
expect_that(datfile[1],matches(paste(vds.id,
'_ML_',
year,'.',
seconds,'.',
'imputed.RData',
sep='')))
saved.state <- rcouchutils::couch.check.state(
year=year,
id=vds.id,
'vdsraw_max_iterations',
db=parts)
expect_that(saved.state,is_a('numeric'))
expect_that(saved.state,
equals(0))
})
unlink('./files/311903_ML_2012.120.imputed.RData')
rcouchutils::couch.deletedb(parts)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.