p.page4(D1, D2, H1, H2, V, y, z, E.theta, Edash.theta, extractor, include.prior=FALSE,
lognormally.distributed=FALSE, return.log=FALSE, phi)
NULL
results in
the function evaluating it (but this takes a long time, so supply
V
if known)TRUE
meaning to include the prior PDF for $\theta$ and default
value of FALSE
meaning to return the likelihood multiplied by an
undetermined constant.TRUE
meaning to assume
lognormality. See prob.psi1
for details.FALSE
meaning to return
the probability, and TRUE
meaning to return the (natural)
logarithm of the probability (which is useful when considering very
small probabilities).W2
data(toys)
p.page4(D1=D1.toy, D2=D2.toy, H1=H1.toy, H2=H2.toy, V=NULL, y=y.toy,
z=z.toy,E.theta=E.theta.toy, Edash.theta=Edash.theta.toy, extractor=extractor.toy, phi=phi.toy)
## Now compare the above value with p.page4() calculated with phi
## differing only in psi2:
phi.toy.new <- phi.change(phi.fun=phi.fun.toy, old.phi = phi.toy, psi2=c(8,8,8))
p.page4(D1=D1.toy, D2=D2.toy, H1=H1.toy, H2=H2.toy, V=V.toy, y=y.toy, z=z.toy,
E.theta=E.theta.toy, Edash.theta=Edash.theta.toy,
extractor=extractor.toy, phi=phi.toy.new)
## different!
Run the code above in your browser using DataLab