R/dataAug.R

In matloff/imageClassR: Quick and Easy Functions for Image Classification

# data augmentation routines

# tsData: input a TDAsweep output, add more rows

# arguments:

#    tdaOut: a value returned by TDAsweepImgSet (grayscale or a single
#       channel)
#    nAug: number of new rows to generate; as of now, generate
#       horizontal and vertical flips in equal proportions

tdaSweepAug <- function(tdaOut,nAug) 
{
   tdaNew <- tdaOut
   td
   for (i in 1:nAug) {
           
   }
}