R/low_pass.R

Defines functions low_pass

#' @export
low_pass <- function(cimg, ...){
   cimg %>% 
     cimg2df() %>%
     buildFrequencyDf() %>%
     betaPLS(., ...) %>%
    reconstructPLS(., img_dim = dim(cimg)) %>%
    df2cimg()     
}
VicFreguglia/GibbsRF documentation built on Oct. 25, 2019, 11:19 p.m.