R/bootci.R

bootci <-
function(x,level=0.05){

x<-sort(x)
alpha <-level/2

n<-length(x)

le<-ceiling(alpha*n)
re<-floor((1-alpha)*n)

ci<-c(x[le],x[re])

names(ci) <- c("lower","upper")

ci

}
nunesmatt/liftLRD documentation built on May 15, 2019, 4:16 p.m.