Oalog | R Documentation |

Density, distribution function, quantile function and random generation
for the one-altered logarithmic distribution with parameter `pobs1`

.

doalog(x, shape, pobs1 = 0, log = FALSE) poalog(q, shape, pobs1 = 0) qoalog(p, shape, pobs1 = 0) roalog(n, shape, pobs1 = 0)

`x, q, n, p` |
Same |

`shape, log` |
Same as |

`pobs1` |
Probability of (an observed) one, called |

The probability function of *Y* is 1 with probability `pobs1`

,
else a 1-truncated
logarithmic(shape)
distribution.

`doalog`

gives the density and
`poalog`

gives the distribution function,
`qoalog`

gives the quantile function, and
`roalog`

generates random deviates.

The argument `pobs1`

is recycled to the required length, and
must have values which lie in the interval *[0,1]*.

T. W. Yee

`Gaitdlog`

,
`oalog`

,
`oilog`

,
`Otlog`

.

shape <- 0.75; pobs1 <- 0.10; x <- (-1):7 doalog(x, shape = shape, pobs1 = pobs1) table(roalog(100, shape = shape, pobs1 = pobs1)) ## Not run: x <- 0:10 barplot(rbind(doalog(x, shape = shape, pobs1 = pobs1), dlog(x, shape = shape)), beside = TRUE, col = c("blue", "orange"), cex.main = 0.7, las = 1, ylab = "Probability", names.arg = as.character(x), main = paste("OAL(shape = ", shape, ", pobs1 = ", pobs1, ") [blue] vs", " Logarithmic(shape = ", shape, ") [orange] densities", sep = "")) ## End(Not run)

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.