R/jamovibaplothistogram.b.R

In deepankardatta/blandr: Bland-Altman Method Comparison

jamoviBAplotHistogramClass <- if (requireNamespace('jmvcore')) R6::R6Class(
  "jamoviBAplotHistogramClass",
  inherit = jamoviBAplotHistogramBase,
  private = list(
    .run = function() {

      if ( !is.null(self$options$method1) && !is.null(self$options$method2) ) {

        # read the option values into shorter variable names
        method1 <- self$options$method1
        method2 <- self$options$method2

        # get the data
        data <- self$data

        # convert to appropriate type
        data[[method1]] <- jmvcore::toNumeric(data[[method1]])
        data[[method2]] <- jmvcore::toNumeric(data[[method2]])

        # calculate the results
        results <- blandr.statistics( data[[method1]] , data[[method2]] )

        # standard Jamovi method to pass prepared data over for plotting
        image <- self$results$plot
        image$setState(results)

      } # close if function for calculations

    },

    .plot=function(image, ggtheme, ...) {

      if ( !is.null(self$options$method1) && !is.null(self$options$method2) ) {

        plotData <- image$state
        plot <- blandr.plot.normality( plotData )
        plot <- plot + ggtheme
        print(plot)
        TRUE

      } # close if function for plot

    })
)