R/ASQ_subjective_mood_disorder.R

In neuropsychology: Toolbox for Psychologists, Neuropsychologists and Neuroscientists

ASQ_subjective_mood_disorder <- function(Suppression, Pretending, Feeling_of_Control, Cognitive_Change, Acceptance){
  
  data = data.frame("Suppression"=Suppression,
                    "Pretending"=Pretending,
                    "Feeling_of_Control"=Feeling_of_Control,
                    "Cognitive_Change"=Cognitive_Change,
                    "Acceptance"=Acceptance)
  prob <- predict(neuropsychology::models$ASQ_tree, data, type="prob")[2]
  message("Warning: The following result is based on the method described in Makowski et al. (2017), which presents severe limitations. Use for exploration only.")
  print(paste("The probability of subjectively reporting a mood disorder is", round(prob*100, 2), "%"))
  return(prob)
}