Nothing
library(fnets)
set.seed(123)
n <- 500
p <- 50
common <- sim.unrestricted(n, p)
idio <- sim.var(n, p)
x <- common$data + idio$data
out <- fnets(x, q = NULL, var.order = 1, var.method = "lasso", do.lrpc = FALSE)
test_that("ic works", {
cpre <- predict(out)
})
test_that("er works", {
cpre <- predict(out, r = "er")
})
test_that("fc.restricted works", {
cpre <- predict(out, r = 2, fc.restricted = FALSE)
})
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.