library(testthat) library(RSDC) set.seed(123)