Nothing
library(gRbase)
data(cadcomplete)
cadcomplete <- data.frame(lapply(cadcomplete,as.factor))
cad <- as.gmData(cadcomplete)
m1 <- hllm(~.^.,cad,marginal=names(cadcomplete)[1:6])
#m1s <- hllm( ~Sex*STcode*AngPec + QWavecode*QWave + AMI*Sex*AngPec, cad, marginal=names(cadcomplete)[1:6], engine="loglm")
#dynamic.Graph(m1,visibleVertices=1:6)
##factor.Graph(newhllm(m1s),visibleVertices=1:6)
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.