redo

Author: matthewphamilton

CITATION.cff

@@ -1,12 +1,12 @@
 cff-version: 1.2.0
-message: "Matthew Hamilton and Caroline Gao  (2022). specific: Specify Candidate Models for Representing Mental Health Systems. Version 0.0.0.9077. Zenodo. https://doi.org/10.5281/zenodo.5768689"
+message: "Matthew Hamilton and Caroline Gao  (2022). specific: Specify Candidate Models for Representing Mental Health Systems. Version 0.0.0.9078. Zenodo. https://doi.org/10.5281/zenodo.5768689"
 authors:
   - family-names: "Hamilton"
     given-names: "Matthew"
   - family-names: "Gao"
     given-names: "Caroline"
 title: "specific: Specify Candidate Models for Representing Mental Health Systems"
-version: 0.0.0.9077
+version: 0.0.0.9078
 doi: 10.5281/zenodo.5768689
 date-released: 2022-02-17
 url: "https://ready4-dev.github.io/specific/"

DESCRIPTION

@@ -119,10 +119,15 @@ Collate:
     'pkg_specific.R'
     'specific-package.R'
 Suggests: 
-    scorz,
-    rmarkdown
-Remotes: 
+    scorz (>= 0.0.0.9048),
+    rmarkdown,
+    betareg,
+    cmdstanr (>= 0.4.0.9000),
+    rstan
+Remotes:  
     ready4-dev/ready4,
     ready4-dev/ready4show,
     ready4-dev/ready4use,
-    ready4-dev/youthvars
+    ready4-dev/youthvars,
+    stan-dev/cmdstanr,
+    ready4-dev/scorz

R/mthd_depict.R

@@ -69,7 +69,7 @@ methods::setMethod("depict", "SpecificSynopsis", function (x, axis_text_sclg_1L_
             "/dens_and_sctr.png")
     }
     if (what_1L_chr == "composite_utl") {
-        ds_descvs_ls <- manufacture_SpecificSynopsis(x, what_1L_chr = "ds_descvs_ls")
+        ds_descvs_ls <- manufacture(x, what_1L_chr = "ds_descvs_ls")
         outp_smry_ls <- append(x@b_SpecificResults@a_SpecificShareable@shareable_outp_ls, 
             x@b_SpecificResults@b_SpecificPrivate@private_outp_ls)
         maui_domains_col_nms_chr <- x@c_SpecificParameters@domain_labels_chr

data-raw/s4_fns/depict.R

@@ -89,8 +89,8 @@ depict_SpecificSynopsis <- function(x,
                                 "/dens_and_sctr.png")
   }
   if(what_1L_chr == "composite_utl"){
-    ds_descvs_ls <- manufacture_SpecificSynopsis(x,
-                                                 what_1L_chr = "ds_descvs_ls")
+    ds_descvs_ls <- manufacture(x,
+                                what_1L_chr = "ds_descvs_ls")
     outp_smry_ls <- append(x@b_SpecificResults@a_SpecificShareable@shareable_outp_ls,
                            x@b_SpecificResults@b_SpecificPrivate@private_outp_ls)
     maui_domains_col_nms_chr <- x@c_SpecificParameters@domain_labels_chr