tests/misc.R

# require("DescTools")
#
# options(warn=2)
#
# x <- d.pizza$temperature
# z <- Desc(x, plotit=FALSE)
#
# stopifnot(identical(z[1:6],
#           list(length=length(x), n=sum(!is.na(x)), NAs=sum(is.na(x)),
#                unique=length(unique(na.omit(x))), `0s`=sum(na.omit(x)==0),
#                mean=mean(x, na.rm=TRUE))))
#
# stopifnot(IsZero(z[["MeanSE"]] - MeanSE(x, na.rm=TRUE)))

Try the DescTools package in your browser

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

DescTools documentation built on Sept. 13, 2017, 9:04 a.m.