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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.