# NOT RUN {
ll <- list(call = NULL, 'adj' = NULL, 'xi'= matrix(36,4,4), 'omega' = matrix(1,4,4),
'n' = 4, 'm' = 12, 'directed' = TRUE, 'selfloops' = TRUE,
'regular' = TRUE, 'unbiased' = TRUE, 'df' = 1)
model <- as.ghype(ll)
# }
Run the code above in your browser using DataLab