# Non-double observer example
set.seed(555574)
x <- rnorm(1000) * 100
x <- x[ 0 < x & x < 100 ]
un.dfunc <- F.dfunc.estim( x, likelihood="uniform", w.hi = 100)
F.gx.estim(un.dfunc)
gam.dfunc <- F.dfunc.estim( x, likelihood="Gamma", w.hi = 100)
F.gx.estim(gam.dfunc)
# Double observer example
dbl.obs <- data.frame(obsby.1=rbinom(50,1,0.8), obsby.2=rbinom(50,1,0.7))
F.gx.estim(un.dfunc, x.scl=0, g.x.scl=dbl.obs, observer="both" )
# a warning about x.scl < $w.lo is issued.
F.gx.estim(un.dfunc, x.scl="max", g.x.scl=dbl.obs, observer="both" )
F.gx.estim(un.dfunc, x.scl="max", g.x.scl=dbl.obs, observer=1 )
Run the code above in your browser using DataLab