## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(UniIS)
set.seed(1)
x <- rexp(50, 1.2)
fit <- is_fit(
  x,
  pdf = function(x, theta) dexp(x, exp(theta[1])),
  cdf = function(x, theta) pexp(x, exp(theta[1])),
  survival = function(x, theta) pexp(x, exp(theta[1]), lower.tail = FALSE),
  theta0 = 0,
  proposal = is_proposal_normal(0, 0.75),
  control = is_control(n_draws = 500, seed = 1)
)
summary(fit)