R/f_conveneince_usecpp.R

In psychonetrics: Structural Equation Modeling and Confirmatory Network Analysis

usecpp <- function(x, use = TRUE){
  x@cpp <- use
  
  if (!is.null(x@baseline_saturated$baseline)){
    x@baseline_saturated$baseline@cpp <- use
  }
  if (!is.null(x@baseline_saturated$saturated)){
    x@baseline_saturated$saturated@cpp <- use
  }
  
  x
}