Compute log-likelihood ratio for ghype models.

loglratio(mod0, mod1)

Arguments

mod0

ghype, null model

mod1

ghype, alternative model

Value

scalar, log-likelihood ratio

Examples

data('adj_karate') sc.model <- scm(adj_karate, FALSE, FALSE) full.model <- ghype(adj_karate, FALSE, FALSE) loglratio(sc.model,full.model)
#> [1] -324.9212