R/mfv.fdt_cat.multiple.R

Defines functions mfv.fdt_cat.multiple

Documented in mfv.fdt_cat.multiple

mfv.fdt_cat.multiple <- function(x, ...)
{
 
 if(class(x)[1]=='fdt_cat.multiple' | class(x)[1] == 'fdt_cat'){
 res <- list()

 for(i in 1:length(x)){

  y <- x[[i]][[1]]
  class(y) <- c('fdt_cat.multiple',
                'fdt_cat',
                'data.frame')
  res[[i]] <- mfv.fdt_cat(y)

 }


}
 else {

  res <- lapply(x,
                mfv.fdt_cat)

 }

return(res)
}

Try the fdth package in your browser

Any scripts or data that you put into this service are public.

fdth documentation built on Nov. 18, 2023, 1:08 a.m.