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

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

            formula <- constructFormula(self$options$dep, self$options$group)
            formula <- as.formula(formula)

            results <- t.test(formula, self$data)

            self$results$text$setContent(results)

        })
)