library(raster) #para cargar la libreria raster

## Loading required package: sp

toy<-raster(ncol=5,nrow=5,xmn=100,xmx=150,ymn=100,ymx=150)
#hemos creado un raster de 25 pixeles

toy

## class      : RasterLayer 
## dimensions : 5, 5, 25  (nrow, ncol, ncell)
## resolution : 10, 10  (x, y)
## extent     : 100, 150, 100, 150  (xmin, xmax, ymin, ymax)
## crs        : NA

values(toy)<-rnorm(n=25,mean=0.40,sd=0.15)#para poner valores al toy

values(toy)

##  [1] 0.547984010 0.655987189 0.473208988 0.539010661 0.587135695
##  [6] 0.388021964 0.252634446 0.003659721 0.707265139 0.554710988
## [11] 0.730996943 0.323113389 0.303806361 0.281991732 0.464676899
## [16] 0.444030487 0.343410887 0.385981298 0.570231494 0.488322956
## [21] 0.462010904 0.611806035 0.172883854 0.582367358 0.378414630

plot(toy)
text(toy*100)#para poner los valores de toy en el plot

hist(toy)#mostrar el histograma de toy