Nothing
## -----------------------------------------------------------------------------
library(micsr)
Vuong <- vuong_sim(N = 100, R = 1000, Kf = 15, Kg = 1, a = 0.5)
head(Vuong)
mean(Vuong)
mean(abs(Vuong) > 1.96)
## -----------------------------------------------------------------------------
library("ggplot2")
ggplot(data = data.frame(Vuong = Vuong)) + geom_density(aes(x = Vuong)) +
geom_function(fun = dnorm, linetype = "dotted")
## -----------------------------------------------------------------------------
library("micsr")
test <- ndvuong(turnout$group, turnout$intens, size = 0.05, pval = FALSE)
test
## -----------------------------------------------------------------------------
ndvuong(turnout$group, turnout$intens, nd = FALSE)
## -----------------------------------------------------------------------------
test <- ndvuong(turnout$group, turnout$intens, pval = TRUE)
test
## -----------------------------------------------------------------------------
library("mlogit")
data("ModeCanada")
MC <- mlogit.data(ModeCanada, subset = noalt == 4, chid.var = "case",
alt.var = "alt", drop.index = TRUE)
## -----------------------------------------------------------------------------
ml <- mlogit(choice ~ freq + cost + ivt + ovt | urban + income, MC,
reflevel = 'car', alt.subset = c("car", "train", "air"))
## -----------------------------------------------------------------------------
hl <- mlogit(choice ~ freq + cost + ivt + ovt | urban + income, MC,
reflevel = 'car', alt.subset = c("car", "train", "air"),
heterosc = TRUE)
coef(summary(hl))
## -----------------------------------------------------------------------------
lmtest::waldtest(hl, heterosc = FALSE)
scoretest(ml, heterosc = TRUE)
lmtest::lrtest(hl, ml)
## -----------------------------------------------------------------------------
ndvuong(hl, ml, nested = TRUE)
## -----------------------------------------------------------------------------
library("mlogit")
data("RiskyTransport")
RT <- mlogit.data(RiskyTransport, shape = "long", choice = "choice",
chid.var = "chid", alt.var = "mode", id.var = "id")
## -----------------------------------------------------------------------------
ml <- mlogit(choice ~ cost, data = RT)
hl <- mlogit(choice ~ cost , data = RT, heterosc = TRUE)
nl <- mlogit(formula = choice ~ cost, data = RT,
nests = list(fast = c("Helicopter", "Hovercraft"),
slow = c("WaterTaxi", "Ferry")),
un.nest.el = TRUE)
modelsummary::msummary(list(multinomial = ml, heteroscedastic = hl, nested = nl))
## -----------------------------------------------------------------------------
ndvuong(nl, hl, vartest = TRUE)
## -----------------------------------------------------------------------------
ndvuong(hl, nl)
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.