demo/cadcomplete.R

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)

Try the gRbase package in your browser

Any scripts or data that you put into this service are public.

gRbase documentation built on Sept. 22, 2023, 5:12 p.m.