ivec <- c(2, 10); avec <- ivec + 1; shape <- 0.995; xgrid <- 0:15
max.support <- 15; pobs.a <- 0.10; pstr.i <- 0.15
dvec <- 1; pdip.mlm <- 0.05
(ddd <- dgaitdlog(xgrid, shape,
max.support = max.support, pobs.mix = pobs.a,
pdip.mlm = pdip.mlm, d.mlm = dvec,
a.mix = avec, pstr.mix = pstr.i, i.mix = ivec))
if (FALSE) dgaitdplot(shape, ylab = "Probability", xlab = "x",
max.support = max.support, pobs.mix = pobs.mix,
pobs.mlm = pobs.mlm, a.mlm = avec, all.lwd = 3,
pdip.mlm = pdip.mlm, d.mlm = dvec, fam = "log",
pstr.mix = pstr.i, i.mix = ivec, deflation = TRUE,
main = "GAITD Combo PMF---Logarithmic Parent")
Run the code above in your browser using DataLab