augmentation: Function for data augmentation, go inside a list and append...
In DimitriF/DLC: Deep Layer Chromatography

Description Usage Arguments Author(s) Examples

Function for data augmentation, go inside a list and append the new pictures

1	augmentation(data, shift = c(), gamma = c())

`data`	list of pictures return by f.read.image with options ls.format = T
`shift`	vector of shift values. c(0) means no shifting.
`gamma`	vector of gamma values, c(1) means no attenuation. normalization will be applied after in order to stay in the 0-1 range (note that normalization should be applied anyway for efficienty)

Dimitri Fichou

1
2
3

data <- f.read.image(paste0('www/propolis-silicate-',seq(6),'.jpg'),height = 126,Normalize = T,ls.format = T)
augmented <- augmentation(data,shift=c(-5,5),gamma=c(0.5,2))
abind(augmented,along=2) %>% raster()