Nothing
context("Data applications")
test_that("GDP application is robust",
{
expect_identical(as.numeric(round(estimate.functional(Y=GDP$observation,X=GDP$forecast,stateVariable = GDP$forecast,model=probit_linear)$gmm$coefficients,digits=2)),c(-0.11,0.11))
expect_identical(as.numeric(round(summary(estimate.functional(Y=GDP$observation,X=GDP$forecast,stateVariable = GDP$forecast,model=probit_linear))$Jtest$test[2],digits=2)),c(0.24))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.