tests/testthat/setup.R

data(krokfors)
krokfors <- krokfors[(1:nrow(krokfors))%%4==0,]
h_extrap <- 10
known_c <- 7.8
set.seed(1)
plm0.fit <- plm0(Q~W,krokfors,num_cores=2)
set.seed(1)
plm.fit <- plm(Q~W,krokfors,num_cores=2)
set.seed(1)
gplm0.fit <- gplm0(Q~W,krokfors,num_cores=2)
set.seed(1)
gplm.fit <- gplm(Q~W,krokfors,num_cores=2)

t_obj <- tournament(list(plm0.fit,plm.fit,gplm0.fit,gplm.fit))

Try the bdrc package in your browser

Any scripts or data that you put into this service are public.

bdrc documentation built on March 31, 2023, 11:41 p.m.