data-raw/s4_fns/manufacture.R

In ready4-dev/TTU: Implement Transfer to Utility Mapping Algorithms

manufacture_TTUProject <- function(x,
                                   type_1L_chr = "dummys",
                                   what_1L_chr = "factors",
                                   ...){
  if(type_1L_chr == "dummys" && what_1L_chr == "factors"){
    object_xx <- manufacture(x@c_SpecificProject@a_YouthvarsProfile@a_Ready4useDyad, type_1L_chr = type_1L_chr, what_1L_chr = what_1L_chr,
                             restrict_to_chr = x@c_SpecificProject@b_SpecificParameters@candidate_covars_chr)
  }else{
    object_xx <- methods::callNextMethod()
  }
  return(object_xx)
}