Compute log-likelihood ratio for ghype models.

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