## ------------------------------------------------------------------------
library(rmetalog)
data("fishSize")
summary(fishSize)
## ----eval=FALSE----------------------------------------------------------
# metalog()
## ------------------------------------------------------------------------
my_metalog <- metalog(fishSize$FishSize,
term_limit = 9,
bounds=0,
boundedness = 'sl',
step_len = .01)
## ------------------------------------------------------------------------
summary(my_metalog)
## ----message=FALSE, warning=FALSE, fig.width=6---------------------------
plot(my_metalog)
## ----message=FALSE, warning=FALSE, fig.width=6---------------------------
s <- rmetalog(my_metalog, n = 1000, term = 9)
hist(s)
## ----message=FALSE, warning=FALSE----------------------------------------
qmetalog(my_metalog, y = c(0.25, 0.5, 0.75), term = 9)
## ----message=FALSE, warning=FALSE----------------------------------------
pmetalog(my_metalog, q = c(3,10,25), term = 9)
## ----message=FALSE, warning=FALSE----------------------------------------
dmetalog(my_metalog, q = c(3,10,25), term = 9)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.