Nothing
data(reinis)
reinis <- as.gmData(reinis)
m1 <- hllm(~.^. , reinis)
m1 <- fit(m1,engine="loglm")
m1res <- stepwise(m1)
formula(m1res)
m2 <- hllm(~smoke*phys*protein+mental*phys+mental*family+smoke*systol*protein, reinis)
#dynamic.Graph(m2)
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.