R/ci.mean.data.frame.R

Defines functions ci.mean.data.frame

ci.mean.data.frame <- function(x,alpha = 0.05,normal = T,na.rm=T,statistic=c("arithmetic","geometric")){
  res <- lapply(x,ci.mean.default,alpha=alpha,normal=normal,na.rm=na.rm,statistic=statistic)
  tmp <- data.frame(t(sapply(t(res),function(x)unlist(x[1:4]))))
  tmp$labels <- names(x)
  out <- lapply(tmp,function(x)x)
  out <- c(out,level=alpha,statistic=statistic)
  class(out) <- c("ci",class(out))
  out
}

Try the Publish package in your browser

Any scripts or data that you put into this service are public.

Publish documentation built on Jan. 18, 2023, 1:08 a.m.