# Read the R logo and output its values in the parameter space
library('jpeg')
logo <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg")) # Read the R logo
computeStatisticalQuantitiesTile(logo) # Compute the quantities
Run the code above in your browser using DataLab