# Create three datasets.
set.seed(1)
n <- 15
Dataset1 <- as.data.frame(cbind(rnorm(n, 157, 8), rnorm(n, 71, 10)))
Dataset2 <- as.data.frame(cbind(rnorm(n, 244, 14), rnorm(n, 61, 29)))
Dataset3 <- as.data.frame(cbind(rnorm(n, 198, 8), rnorm(n, 252, 13)))
apply(Dataset1, 2, range)
apply(Dataset2, 2, range)
apply(Dataset3, 2, range)
# Bin the first dataset.
hist <- fhistogram(Dataset = Dataset1, K = c(4, 5), ymin = c(100.0, 0.0), ymax = c(300.0, 300.0))
# Bin the second dataset.
hist <- fhistogram(x = hist, Dataset = Dataset2)
# Bin the third dataset and shrink the hist object.
hist <- fhistogram(x = hist, Dataset = Dataset3, shrink = TRUE)
hist
Run the code above in your browser using DataLab