leem
Laboratory of Teaching to Statistics and Mathematics

Package index
Search the leem package
Functions
506
Source code
36
Man pages
41
Home
/
CRAN
/
leem
/
R/print.R

R/print.R
In leem: Laboratory of Teaching to Statistics and Mathematics

Defines functions output_rprob output_newleem output_table output_htest output_confint print.leem 

# Impressao da classe 'leem'
#' @export
# print.leem <- function(x, ...) {
#   if (!is.null(attr(x, "table"))) {
#     print(x$table)
#   } else {
#     attributes(x) <- NULL
#     print(x)
#   }
# }
#' @export
print.leem <- function(x, ...) {
  aux <- attr(x, "output")
  # Print
  switch(aux,
         htest = output_htest(x),
         table = output_table(x),
         newleem = output_newleem(x),
         rprob = output_rprob(x),
         confint = output_confint(x))
}

output_confint <- function(x) {
  cat("\n\n", crayon::bgGreen$bold(x$title), "\n")
  # Descritive statistics
  cat(crayon::blue$underline$bold(gettext("Descritive Statistics:\n", domain = "R-leem")),
      crayon::blue(gettext("  Sample mean:", domain = "R-leem")), x$mean, "\n",
      crayon::blue(gettext("            n:", domain = "R-leem")), x$n, "\n",
      crayon::blue(gettext("Std dev (Pop):", domain = "R-leem")), x$sd, "\n"
      )
  # Measures of interval
  cat(crayon::blue$underline$bold(gettext("Measures of interval:\n", domain = "R-leem")),
      crayon::blue(gettext("   Confidence level:", domain = "R-leem")), x$clevel, "\n",
      crayon::blue(gettext(" Significance level:", domain = "R-leem")), x$alpha, "\n",
      crayon::blue(gettext("     Critical point:", domain = "R-leem")), x$cp, "\n"
  )
  # Measures of interval
  cat(crayon::red$underline$bold(gettext("\nClass interval:", domain = "R-leem")),
      " [", x$confint[1], ", ", x$confint[2], "]", sep = "")
}

output_htest <- function(x) {
  if (x$test == "ztest") {
    if (x$alternative == "two.sided") {
      cat("\n\n", crayon::bgRed$bold(x$title), "\n")
      # Step 1
      cat(crayon::blue$underline$bold(gettext("Step 1:", domain = "R-leem")),
          crayon::blue(gettext("Hypothesis", domain = "R-leem")), "\n")
      cat(crayon::bold(x$nullhyp), "\n")
      cat(crayon::bold(x$althyp), "\n\n")
      # Step 2
      cat(crayon::blue$underline$bold(gettext("Step 2:", domain = "R-leem")),
          crayon::blue(gettext("Significance level", domain = "R-leem")), "\n")
      cat(crayon::bold(x$signlevel), "\n\n")
      # Step 3
      cat(crayon::blue$underline$bold(gettext("Step 3:", domain = "R-leem")),
          crayon::blue(gettext("Rule of decision", domain = "R-leem")), "\n")
      cat("  ", crayon::green$bold(gettext("If |ztest| > |ztab| => Reject H0!", domain = "R-leem")), "\n")
      cat("  ", crayon::green(gettext("ztest - test statistic; ztab - critical point", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("So...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision), "\n")
      cat(crayon::green(gettext("Otherwise...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision2), "\n\n")

      # Step 4
      cat(crayon::blue$underline$bold(gettext("Step 4:", domain = "R-leem")),
          crayon::blue(gettext("Conclusion", domain = "R-leem")), "\n")
      cat(crayon::bold(x$conclusion))
    }

    if (any(x$alternative == c("less","l","L"))) {

      cat("\n\n", crayon::bgRed$bold(x$title), "\n")
      # Step 1
      cat(crayon::blue$underline$bold(gettext("Step 1:", domain = "R-leem")),
          crayon::blue(gettext("Hypothesis", domain = "R-leem")), "\n")
      cat(crayon::bold(x$nullhyp), "\n")
      cat(crayon::bold(x$althyp), "\n\n")
      # Step 2
      cat(crayon::blue$underline$bold(gettext("Step 2:", domain = "R-leem")),
          crayon::blue(gettext("Significance level", domain = "R-leem")), "\n")
      cat(crayon::bold(x$signlevel), "\n\n")
      # Step 3
      cat(crayon::blue$underline$bold(gettext("Step 3:", domain = "R-leem")),
          crayon::blue(gettext("Rule of decision", domain = "R-leem")), "\n")
      cat(crayon::green$bold(gettext("   If |ztest| > |ztab| => Reject H0!", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("   ztest - test statistic; ztab - critical point", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("So...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision), "\n")
      cat(crayon::green(gettext("Otherside...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision2), "\n\n")

      # Step 4
      cat(crayon::blue$underline$bold(gettext("Step 4:", domain = "R-leem")),
          crayon::blue(gettext("Conclusion", domain = "R-leem")), "\n")
      cat(crayon::bold(x$conclusion))
    }

    if(any(x$alternative == c("greater","g","G"))){

      cat("\n\n", crayon::bgRed$bold(x$title), "\n")
      # Step 1
      cat(crayon::blue$underline$bold(gettext("Step 1:", domain = "R-leem")),
          crayon::blue(gettext("Hypothesis", domain = "R-leem")), "\n")
      cat(crayon::bold(x$nullhyp), "\n")
      cat(crayon::bold(x$althyp), "\n\n")
      # Step 2
      cat(crayon::blue$underline$bold(gettext("Step 2:", domain = "R-leem")),
          crayon::blue(gettext("Significance level", domain = "R-leem")), "\n")
      cat(crayon::bold(x$signlevel), "\n\n")
      # Step 3
      cat(crayon::blue$underline$bold(gettext("Step 3:", domain = "R-leem")),
          crayon::blue(gettext("Rule of decision", domain = "R-leem")), "\n")
      cat(crayon::green$bold(gettext("   If ztest > ztab => Reject H0!", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("   ztest - test statistic; ztab - critical point", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("So...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision), "\n")
      cat(crayon::green(gettext("Otherwise...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision2), "\n\n")

      # Step 4
      cat(crayon::blue$underline$bold(gettext("Step 4:", domain = "R-leem")),
          crayon::blue(gettext("Conclusion", domain = "R-leem")), "\n")
      cat(crayon::bold(x$conclusion))
    }
  }
  if (x$test == "ttest") {
    if(x$alternative == "two.sided"){
      cat("\n\n", crayon::bgGreen$bold(x$title), "\n")
      # Step 1
      cat(crayon::blue$underline$bold(gettext("Step 1:", domain = "R-leem")),
          crayon::blue(gettext("Hypothesis", domain = "R-leem")), "\n")
      cat(crayon::bold(x$nullhyp), "\n")
      cat(crayon::bold(x$althyp), "\n\n")
      # Step 2
      cat(crayon::blue$underline$bold(gettext("Step 2:", domain = "R-leem")),
          crayon::blue(gettext("Significance level", domain = "R-leem")), "\n")
      cat(crayon::bold(x$signlevel), "\n\n")
      # Step 3
      cat(crayon::blue$underline$bold(gettext("Step 3:", domain = "R-leem")),
          crayon::blue(gettext("Rule of decision", domain = "R-leem")), "\n")
      cat(crayon::green$bold(gettext("   If |ttest| > |ttab| => Reject H0!", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("   ttest - test statistic; ttab - critical point", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("So...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision), "\n")
      cat(crayon::green(gettext("Otherside...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision2), "\n\n")

      # Step 4
      cat(crayon::blue$underline$bold(gettext("Step 4:", domain = "R-leem")),
          crayon::blue(gettext("Conclusion", domain = "R-leem")), "\n")
      cat(crayon::bold(x$conclusion))
    }

    if(any(x$alternative == c("less","l","L"))){

      cat("\n\n", crayon::bgGreen$bold(x$title), "\n")
      # Step 1
      cat(crayon::blue$underline$bold(gettext("Step 1:", domain = "R-leem")),
          crayon::blue(gettext("Hypothesis", domain = "R-leem")), "\n")
      cat(crayon::bold(x$nullhyp), "\n")
      cat(crayon::bold(x$althyp), "\n\n")
      # Step 2
      cat(crayon::blue$underline$bold(gettext("Step 2:", domain = "R-leem")),
          crayon::blue(gettext("Significance level", domain = "R-leem")), "\n")
      cat(crayon::bold(x$signlevel), "\n\n")
      # Step 3
      cat(crayon::blue$underline$bold(gettext("Step 3:", domain = "R-leem")),
          crayon::blue(gettext("Rule of decision", domain = "R-leem")), "\n")
      cat(crayon::green$bold(gettext("   If |ttest| > |ttab| => Reject H0!", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("   ttest - test statistic; ttab - critical point", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("So...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision), "\n")
      cat(crayon::green(gettext("Otherside...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision2), "\n\n")

      # Step 4
      cat(crayon::blue$underline$bold(gettext("Step 4:", domain = "R-leem")),
          crayon::blue(gettext("Conclusion", domain = "R-leem")), "\n")
      cat(crayon::bold(x$conclusion))
    }

    if(any(x$alternative == c("greater","g","G"))){

      cat("\n\n", crayon::bgGreen$bold(x$title), "\n")
      # Step 1
      cat(crayon::blue$underline$bold(gettext("Step 1:", domain = "R-leem")),
          crayon::blue(gettext("Hypothesis", domain = "R-leem")), "\n")
      cat(crayon::bold(x$nullhyp), "\n")
      cat(crayon::bold(x$althyp), "\n\n")
      # Step 2
      cat(crayon::blue$underline$bold(gettext("Step 2:", domain = "R-leem")),
          crayon::blue(gettext("Significance level", domain = "R-leem")), "\n")
      cat(crayon::bold(x$signlevel), "\n\n")
      # Step 3
      cat(crayon::blue$underline$bold(gettext("Step 3:", domain = "R-leem")),
          crayon::blue(gettext("Rule of decision", domain = "R-leem")), "\n")
      cat(crayon::green$bold(gettext("   If |ttest| > |ttab| => Reject H0!", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("   ttest - test statistic; ttab - critical point", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("So...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision), "\n")
      cat(crayon::green(gettext("Otherside...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision2), "\n\n")

      # Step 4
      cat(crayon::blue$underline$bold(gettext("Step 4:", domain = "R-leem")),
          crayon::blue(gettext("Conclusion", domain = "R-leem")), "\n")
      cat(crayon::bold(x$conclusion))
    }
  }
  if (x$test == "chisq") {

    if(any(x$alternative == c("less","l","L"))){

      cat("\n\n", crayon::bgGreen$bold(x$title), "\n")
      # Step 1
      cat(crayon::blue$underline$bold(gettext("Step 1:", domain = "R-leem")),
          crayon::blue(gettext("Hypothesis", domain = "R-leem")), "\n")
      cat(crayon::bold(x$nullhyp), "\n")
      cat(crayon::bold(x$althyp), "\n\n")
      # Step 2
      cat(crayon::blue$underline$bold(gettext("Step 2:", domain = "R-leem")),
          crayon::blue(gettext("Significance level", domain = "R-leem")), "\n")
      cat(crayon::bold(x$signlevel), "\n\n")
      # Step 3
      cat(crayon::blue$underline$bold(gettext("Step 3:", domain = "R-leem")),
          crayon::blue(gettext("Rule of decision", domain = "R-leem")), "\n")
      cat(crayon::green$bold(gettext("   If |TR| < |CP| => Reject H0!", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("   TR - Test Result; CP - Critical Point", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("So...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision), "\n")
      cat(crayon::green(gettext("Otherside...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision2), "\n\n")

      # Step 4
      cat(crayon::blue$underline$bold(gettext("Step 4:", domain = "R-leem")),
          crayon::blue(gettext("Conclusion", domain = "R-leem")), "\n")
      cat(crayon::bold(x$conclusion))
    }

    if(any(x$alternative == c("greater","g","G"))){

      cat("\n\n", crayon::bgGreen$bold(x$title), "\n")
      # Step 1
      cat(crayon::blue$underline$bold(gettext("Step 1:", domain = "R-leem")),
          crayon::blue(gettext("Hypothesis", domain = "R-leem")), "\n")
      cat(crayon::bold(x$nullhyp), "\n")
      cat(crayon::bold(x$althyp), "\n\n")
      # Step 2
      cat(crayon::blue$underline$bold(gettext("Step 2:", domain = "R-leem")),
          crayon::blue(gettext("Significance level", domain = "R-leem")), "\n")
      cat(crayon::bold(x$signlevel), "\n\n")
      # Step 3
      cat(crayon::blue$underline$bold(gettext("Step 3:", domain = "R-leem")),
          crayon::blue(gettext("Rule of decision", domain = "R-leem")), "\n")
      cat(crayon::green$bold(gettext("   If |TR| > |CP| => Reject H0!", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("   TR - Test Result; CP - Critical Point", domain = "R-leem")), "\n")
      cat(crayon::green(gettext("So...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision), "\n")
      cat(crayon::green(gettext("Otherside...", domain = "R-leem")), "\n")
      cat(crayon::bold(x$decision2), "\n\n")

      # Step 4
      cat(crayon::blue$underline$bold(gettext("Step 4:", domain = "R-leem")),
          crayon::blue(gettext("Conclusion", domain = "R-leem")), "\n")
      cat(crayon::bold(x$conclusion))
    }
  }
}
output_table <- function(x) {
  cat(crayon::silver(gettext("\nTable of frequency \n", domain = "R-leem")))
  cat(crayon::silver(gettext("Type of variable: ", domain = "R-leem")))
  cat(crayon::silver(attr(x, "variable")))
  cat("\n\n")
  print(x$table)
  if (attr(x, "variable") == "continuous") {
    cat(crayon::silver("\n============================================== \n"))
    cat(crayon::silver(gettext("Classes: Grouping of classes \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fi: Absolute frequency \n", domain = "R-leem")))
    cat(crayon::silver(gettext("PM: Midpoint \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fr: Relative frequency \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fac1: Cumulative frequency (below) \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fac2: Cumulative frequency (above) \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fp: Percentage frequency \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fac1p: Cumulative percentage frequency (below) \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fac2p: Cumulative percentage frequency (above) \n", domain = "R-leem")))
  }
  if (attr(x, "variable") == "discrete") {
    cat(crayon::silver("============================================== \n"))
    aux1 <- gettext("Groups: Discretized grouping \n", domain = "R-leem")
    cat(crayon::silver(aux1))
    cat(crayon::silver(gettext("Fi: Absolute frequency \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fr: Relative frequency \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fac1: Cumulative frequency (below) \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fac2: Cumulative frequency (above) \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fp: Percentage frequency \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fac1p: Cumulative percentage frequency (below) \n", domain = "R-leem")))
    cat(crayon::silver(gettext("Fac2p: Cumulative percentage frequency (above) \n", domain = "R-leem")))
  }

}
output_newleem <- function(x) {
  attributes(x) <- NULL
  print(x)
}
output_rprob <- function(x) {
  attributes(x) <- NULL
  print(x)
}

Try the leem package in your browser

Any scripts or data that you put into this service are public.

leem documentation built on April 3, 2025, 6:04 p.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close