1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/dualSD.r
\name{dualSD}
\alias{dualSD}
\title{Dual Standard Deviations}
\usage{
dualSD(x, na.rm = FALSE, nmin = 10, center = xbar)
}
\arguments{
\item{x}{a numeric vector}
\item{na.rm}{set to \code{TRUE} to find any \code{NA} values and remove them before computing SDs.}
\item{nmin}{the minimum number of non-\code{NA} obesrvations that must be present for two SDs to be computed. If the mumber of non-missing values falls below \code{nmin}, the regular SD is duplicated in the result.}
\item{center}{center point for making the two subsets. The sample mean is used to compute the two SDs no matter what is specified for \code{center}.}
}
\value{
a 2-vector of SDs with names \code{bottom} and \code{top}
}
\description{
Computes one standard deviation for the lower half of the distribution of a numeric vector and another SD for the upper half. By default the center of the distribution for purposes of splitting into "halves" is the mean. The user may override this with \code{center}. When splitting into halves, observations equal to the \code{center} value are included in both subsets.
}
\details{
The purpose of dual SDs is to describe variability for asymmetric distributions. Symmetric distributions are also handled, though slightly less efficiently than a single SD does.
}
\examples{
set.seed(1)
x <- rnorm(20000)
sd(x)
dualSD(x)
y <- exp(x)
s1 <- sd(y)
s2 <- dualSD(y)
s1
s2
quantile(y, c(0.025, 0.975))
mean(y) + 1.96 * c(-1, 1) * s1
mean(y) + 1.96 * c(- s2['bottom'], s2['top'])
c(mean=mean(y), pseudomedian=pMedian(y), median=median(y))
}
\seealso{
\code{\link[=pMedian]{pMedian()}}
}
\author{
Frank Harrell
}
|
