bootstrap confidence intervals

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")
############################