##' 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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.