R/deconstruct.R

Defines functions deconstruct

Documented in deconstruct

##' function to deconstruct an array,
##' @param data a data frame or a matrix
##' @param margin the margin used for deconstruction
##' @param transform was transform used for deconstruction
##' @examples
##' data <- f.read.image(source='www/rTLC_demopicture.JPG',height=128)
##' decon <- data %>% deconstruct(margin =3 ,transform = F)
##' @author Dimitri Fichou
##' @export

deconstruct <-function(data,margin,transform,conv_width=1){
  if(conv_width==1){
    data <- apply(data,margin,c)
    if(transform == T){
      data <- t(data)
    }
    return(data)
  }else{
    data <- apply(data,margin,c)
    if(transform == T){
      data <- t(data)
    }
    return(data)
  }
}
DimitriF/DLC documentation built on Oct. 14, 2020, 4:33 p.m.