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

## -----------------------------------------------------------------------------
library(MOM)
sim_sam_int(dist="normal",pop.par=c(0,1),FUN=mean,side="both")


## -----------------------------------------------------------------------------
sim_sam_int(dist="binomial",pop.par=c(5,0.5),FUN=sum,side="both",conf.coeff=0.99,n=1000,sim.size=2000)


## -----------------------------------------------------------------------------
ord=function(x) return(min(x))
sim_sam_int(dist="unif",pop.par=c(0,1),FUN=ord,side="upper")

## -----------------------------------------------------------------------------
sim_mp_test(c(2.5,5.8,8.5,3.6,6.7),null.dist="normal",null.par=c(5,1),alter.dist="cauchy",alter.par=c(5,1))


## -----------------------------------------------------------------------------
sim_mp_test(runif(100),null.dist="uniform",null.par=c(0.5,1),alter.dist="uniform",alter.par=c(0,1),test.level=0.9,sim.size=10)


## -----------------------------------------------------------------------------
sim_mp_test(c(2,1,3,0,2),null.dist="pois",null.par=c(2),alter.dist="pois",alter.par=c(3))