v = c(1.5,2.5,7,4)
ci.gm(v)
## The function is currently defined as
function(x){
gm1 = mean(log(x), na.rm = T)
cil = exp(gm1-(1.96*(sd(log(x), na.rm = T)/sqrt(length(x)))))
ciupp = exp(gm1+(1.96*(sd(log(x), na.rm = T)/sqrt(length(x)))))
vec = c(round(cil,2), round(ciupp,2))
return (vec)
}
Run the code above in your browser using DataLab