# NOT RUN {
data(texmos2)
x <- imnoise(texmos2, type = "saltnpepper", epsilon = 0.10)
plot(as.raster(x))
y <- imnoise(texmos2, type = "speckle")
plot(as.raster(y))
z <- imnoise(texmos2, type = "gamma", looks = 4)
plot(as.raster(z))
# }
Run the code above in your browser using DataLab