Rev 845 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
sd <- function(x, na.rm=FALSE) sqrt(var(x, na.rm=na.rm))