Renv=new.env(parent=globalenv())
Renv$x<-rnorm(1000)
FLenv<-as.FL(Renv)
Renv$k<-8
FLenv$k <- 8
## fails presently. Need to figure out why.
test_that("test for Augmented Dickey Fuller test",{
result=eval_expect_equal({
obj<-adf.test(x, k= k)
},Renv,FLenv)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.