Displaying 1 result from an estimated 1 matches for "nathist".
Did you mean:
mathis
2002 Aug 27
1
PDF output problem
...dard deviation of a vector
std <- function (x) {
return(sqrt(sum((x-mean(x))^2)/(length(x)-1)))
}
# This function will produce a fancy histogram in R. The histogram,
# besides having the normal look, will display the total number of
# entries, the average and standard deviation (aka, sigma).
nathist <- function (d, breaks = "Sturges",
main = "NetLogger Histogram",
xlab = expression(paste("Time (", mu, "s)")),
ylab = "Counts") {
r <- hist(d, breaks=breaks, main=main, xlab=xla...