diff --git a/ch08.r b/ch08.r index 27fb09f..ff4bc7c 100644 --- a/ch08.r +++ b/ch08.r @@ -64,7 +64,7 @@ mu = apply(y, c(1,2), mean) lambdahat = -log(1-mu) fig1 = x[,,1] -# Flip matrix since image reads the matrix bottom up +# Flip matrix since `image()` reads the matrix bottom up flip_matrix = function(m) m[,nrow(m):1] image(flip_matrix(fig1), col=gray.colors(255))