R/Plot_DiDiSTATIS_Perm_r2_Plain_b_.d.R

In michaelkriegsman/PlotDiDiSTATIS: Plot results of the package, DiDiSTATIS

# Plot_DiDiSTATIS_Perm_r2_Plain_b_.d.R
#
#' Plot histogram of permtuted r^2_Plain_b_.d
#'
#' @param res_DiDiSTATIS The output of DiDiSTATIS
#' @param dev_new Flag to appease ReporteRs (set FALSE to print results to pptx)
#' @return Histogram
#' @export

Plot_DiDiSTATIS_Perm_r2_Plain_b_.d <- function(res_DiDiSTATIS, dev_new = TRUE){

  #Plot the histogram of the total squared distances from each group compromise to the compromise,
  #aggregated over all stimuli

  Plot_Hist(Distribution = res_DiDiSTATIS$Perm_Omnibus$r2_Plain_b_.D,
            alpha = .05,
            Stat = res_DiDiSTATIS$res_BaryGrand$EffectSize$r2_Plain_b_.D,
            Stat_colors = res_DiDiSTATIS$input$DESIGN_tables$colors_D,
            breaks = 40,
            main = "DiDiSTATIS Omni Perm: r2_Plain_B_.d",
            dev_new = dev_new)


  legend(x = "right",
         legend = c(res_DiDiSTATIS$input$DESIGN_tables$labels),
         col = res_DiDiSTATIS$input$DESIGN_tables$colors_D,
         pch = 19,
         pt.cex = 2)

}