Displaying 2 results from an estimated 2 matches for "hmeds".
Did you mean:
meds
2001 Oct 23
0
problems with postscript device
...for (i in 1:B) {
s <- sample(x, replace = TRUE)
means[i] <- mean(s)
meds[i] <- median(s)
}
CImedian <- quantile(meds, c(0.025, 0.5, 0.975))
CImean <- quantile(means, c(0.025, 0.5, 0.975))
hmean <- hist(means, freq = FALSE, plot = FALSE)
hmeds <- hist(meds, freq = FALSE, plot = FALSE)
split.screen(c(1, 2))
xlims <- range(c(hmean$breaks, hmeds$breaks))
ymax <- max(c(hmean$density, hmeds$density))
screen(1)
plot(hmean, freq = FALSE, col = "red", xlim = xlims, ylim = c(0,
ymax), xlab = paste(&...
2001 Oct 26
1
postscript problem (PR#1147)
...for (i in 1:B) {
s <- sample(x, replace = TRUE)
means[i] <- mean(s)
meds[i] <- median(s)
}
CImedian <- quantile(meds, c(0.025, 0.5, 0.975))
CImean <- quantile(means, c(0.025, 0.5, 0.975))
hmean <- hist(means, freq = FALSE, plot = FALSE)
hmeds <- hist(meds, freq = FALSE, plot = FALSE)
split.screen(c(1, 2))
xlims <- range(c(hmean$breaks, hmeds$breaks))
ymax <- max(c(hmean$density, hmeds$density))
screen(1)
plot(hmean, freq = FALSE, col = "red", xlim = xlims, ylim = c(0,
ymax), xlab = paste(&...