redR (version 1.0.1)

degrade: Degradation of an image

Description

This function degrades a high resolution image into a low resolution image.

Usage

degrade(z, L = 1, s = cbind(0, 0), noise = 0, blur = 1, L1 = L,
  L2 = L)

Arguments

z

a cimgobject containing the high resolution image

L

numeric indicating the overall scale change. This parameter will be override by L1 or L2

s

numeric p by 2 matrix containing the registration parameters

noise

numeric indicating the standard deviation of the noise or an cimgobject that will be added to the resampled z

blur

numeric indicating the blur range (for uniform blur) or an cimg object with the blur kernel to be convolved with z if nothing is provided an default kernel will be used.

L1

numeric indicating the directional scale change

L2

numeric indicating the directional scale change

Value

A degraded cimgobject

Examples

# NOT RUN {
degraded.lenna <- degrade(lenna, L = 4, noise = 0.05, blur = 3)
par(mfrow = c(1,2), mar = c(0,0,1,0)+0.1)
plot(lenna, axes = FALSE, interp = FALSE, main = 'Original Lenna')
plot(degraded.lenna, axes = FALSE, interp = FALSE, main = 'Degraded Lenna')
# }