R/Plot_HiDiSTATIS_Perm_r2_Groups.R

# Plot_HiDiSTATIS_Perm_r2_Groups.R
#
#' Plot histogram of permtuted r^2_Groups
#'
#' @param res_HiDiSTATIS The output of HiDiSTATIS
#' @param dev_new Flag to appease ReporteRs (set FALSE to print results to pptx)
#' @return Histograms of the r^2s
#' @export

Plot_HiDiSTATIS_Perm_r2_Groups <- function(res_HiDiSTATIS, 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_HiDiSTATIS$Perm_Tables$r2_Groups_perm,
            alpha = .05,
            Stat = res_HiDiSTATIS$res_GrandComp$EffectSize$r2_Groups,
            main = "HiDiSTATIS: r2_Groups",
            dev_new = dev_new)

}
michaelkriegsman/PlotDiDiSTATIS documentation built on May 30, 2019, 6:19 p.m.