Y <- as.data.frame(matrix(1.0, nrow = 8, ncol = 3))
hist <- new("Histogram", Y = Y, K = c(4, 2), ymin = c(2, 1), ymax = c(10, 8))
a.Y(hist)
a.K(hist)
a.ymin(hist)
a.ymax(hist)
a.y0(hist)
a.h(hist)
a.n(hist)
a.ns(hist)
# Multiplay Y[ , d + 1] by 0.1.
a.Y(hist) <- 0.1
Run the code above in your browser using DataLab