Dear R-experts,

Here is a toy example. How can I get the bootstrap confidence intervals working 
?

Many thanks for your help

############################
library(DescTools)
library(boot)
 
A=c(488,437,500,449,364)
dat<-data.frame(A)
med<-function(d,i) { 
temp<-d[i,]
HodgesLehmann(A)
}
boot.out<-boot(data=dat,statistic=med,R=100)
HodgesLehmann(boot.out$t)

boot.ci(boot.out,type="all")
############################

______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to