# NOT RUN {
# artificial image
Z <- setcov(square(1))
M <- as.matrix(Z)
median(M)
# }
# NOT RUN {
# plot the cumulative distribution function of pixel values
plot(ecdf(as.matrix(Z)))
# }
Run the code above in your browser using DataLab