Nothing
# library(RSienaTest)
# siena_control <- model.create
# x <- array(c(s501, s502, s503), dim=c(50, 50, 3))
# z <- s50a
# sformula <- siena_formula(
# x ~ transTrip,
# z ~ avAlt(x))
# siena17(sformula, control=siena_control(nsub=2, n3=50))
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.