R/f_conveneince_usecpp.R

Defines functions usecpp

Documented in usecpp

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
}
SachaEpskamp/psychonetrics documentation built on Sept. 1, 2023, 3:40 a.m.