# This file is a generated template, your changes will not be overwritten

tsumtestClass <- R6::R6Class(
  "tsumtestClass",
  inherit = tsumtestBase,
  private = list(
    .run = function() {
      
      # Extract input options
      meanx <- self$options$xbar
      sx    <- self$options$sd
      nx    <- self$options$n
      alt   <- self$options$alt
      mu    <- self$options$mu
      conf  <- 1 - self$options$alpha

      # Run the one-sample summary t-test
      result <- BSDA::tsum.test(
        mean.x     = meanx,
        s.x        = sx,
        n.x        = nx,
        alternative = alt,
        mu         = mu,
        conf.level = conf
      )
      
      # Display the results as text
      output <- paste(capture.output(print(result)), collapse = "\n")
      self$results$text$setContent(output)
    }
  )
)