#I'm just learning Rstudio and I'm very confused anyone know what's going on?
#this is my function
ci.b.webostad <- function(beta, alpha){
t <- qt(1-(alpha/2), (length(data)-1))
sd <- sqrt(var(beta))
se <- sd/sqrt(length(data))
ci.u <- (beta)+tse
ci.l <- (beta)-tse
cat("upper ci =", ci.u, " ")
cat("lower ci =", ci.l)
}
#this is the answer is gives me
ci.b.webostad(-.076, .01)
upper ci = NA lower ci = NA