g <- createBonferroniHolmGraph(3)
# Estimates:
est <- c("H1"=0.9101444, "H2"=0.4485153, "H3"=1.4568271)
# Sample standard deviations:
ssd <- c("H1"=1.2, "H2"=0.8, "H3"=1.7)
pvalues <- 1-pt(est/ssd*sqrt(10),df=9)
simConfint(g, pvalues, confint="t", alternative="greater", df=9, estimates=est)
simConfint(g, pvalues,
confint = function(node, alpha) {
print(paste("Node ",node,"has est=",est[node],", stderr=",ssd[node]/sqrt(10),"and alpha=",alpha,".",sep=""))
c(est[node]+qt(alpha,df=9)*ssd[node]/sqrt(10), Inf)
})
Run the code above in your browser using DataLab