# 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)))
# ## End(Not run)
Run the code above in your browser using DataLab