From 4ff0fe79f9c4211b6c0375b079c4dfe33000ec3a Mon Sep 17 00:00:00 2001 From: rsquaredin Date: Fri, 9 Jul 2021 17:32:27 +0530 Subject: [PATCH 01/10] refactor: change prefix to ifr_* --- NAMESPACE | 98 +++--- R/ifr-anova.R | 16 +- R/ifr-binom-test.R | 24 +- R/ifr-chisq-assoc-test.R | 20 +- R/ifr-chisq-gof-test.R | 26 +- R/ifr-cochran-q-test.R | 16 +- R/ifr-launch-shiny-app.R | 6 +- R/ifr-levene-test.R | 22 +- R/ifr-mcnemar-test.R | 20 +- R/ifr-os-prop-test.R | 24 +- R/ifr-os-t-test.R | 26 +- R/ifr-os-var-test.R | 26 +- R/ifr-runs-test.R | 26 +- R/ifr-ts-ind-ttest.R | 26 +- R/ifr-ts-paired-ttest.R | 26 +- R/ifr-ts-prop-test.R | 44 +-- R/ifr-ts-var-test.R | 22 +- README.Rmd | 12 +- README.md | 12 +- _pkgdown.yml | 36 ++- docs/404.html | 6 + docs/CONDUCT.html | 6 + docs/LICENSE-text.html | 6 + docs/articles/index.html | 6 + docs/articles/intro.html | 70 +++-- docs/authors.html | 6 + docs/index.html | 25 +- docs/news/index.html | 8 +- docs/pkgdown.yml | 2 +- docs/reference/exam.html | 6 + docs/reference/hsb.html | 6 + docs/reference/ifr_binom_calc.html | 86 +++--- docs/reference/ifr_chisq_assoc_test.html | 60 ++-- docs/reference/ifr_chisq_gof_test.html | 80 ++--- docs/reference/ifr_cochran_qtest.html | 25 +- docs/reference/ifr_launch_shiny_app.html | 16 +- docs/reference/ifr_levene_test.html | 94 +++--- docs/reference/ifr_mcnemar_test.html | 231 +++++++------- docs/reference/ifr_oneway_anova.html | 100 +++--- docs/reference/ifr_os_prop_test.html | 74 +++-- docs/reference/ifr_os_t_test.html | 155 +++++----- docs/reference/ifr_os_var_test.html | 160 +++++----- docs/reference/ifr_runs_test.html | 125 ++++---- docs/reference/ifr_ts_ind_ttest.html | 286 +++++++++--------- docs/reference/ifr_ts_paired_ttest.html | 226 +++++++------- docs/reference/ifr_ts_prop_test.html | 89 +++--- docs/reference/ifr_ts_var_test.html | 108 ++++--- docs/reference/index.html | 36 ++- docs/reference/inferr.html | 6 + docs/reference/treatment.html | 6 + docs/reference/treatment2.html | 6 + docs/sitemap.xml | 34 +-- ...{infer_binom_calc.Rd => ifr_binom_calc.Rd} | 20 +- ..._assoc_test.Rd => ifr_chisq_assoc_test.Rd} | 18 +- ...hisq_gof_test.Rd => ifr_chisq_gof_test.Rd} | 16 +- ..._cochran_qtest.Rd => ifr_cochran_qtest.Rd} | 14 +- ...h_shiny_app.Rd => ifr_launch_shiny_app.Rd} | 8 +- ...nfer_levene_test.Rd => ifr_levene_test.Rd} | 22 +- ...er_mcnemar_test.Rd => ifr_mcnemar_test.Rd} | 18 +- ...er_oneway_anova.Rd => ifr_oneway_anova.Rd} | 14 +- ...er_os_prop_test.Rd => ifr_os_prop_test.Rd} | 22 +- man/{infer_os_t_test.Rd => ifr_os_t_test.Rd} | 22 +- ...nfer_os_var_test.Rd => ifr_os_var_test.Rd} | 22 +- man/{infer_runs_test.Rd => ifr_runs_test.Rd} | 22 +- ...er_ts_ind_ttest.Rd => ifr_ts_ind_ttest.Rd} | 22 +- ...paired_ttest.Rd => ifr_ts_paired_ttest.Rd} | 22 +- ...er_ts_prop_test.Rd => ifr_ts_prop_test.Rd} | 30 +- ...nfer_ts_var_test.Rd => ifr_ts_var_test.Rd} | 18 +- tests/testthat/test-anova.R | 6 +- tests/testthat/test-binom.R | 40 +-- tests/testthat/test-chisq.R | 22 +- tests/testthat/test-chisqgof.R | 24 +- tests/testthat/test-cochran.R | 12 +- tests/testthat/test-indttest.R | 14 +- tests/testthat/test-levene.R | 10 +- tests/testthat/test-mcnemar.R | 10 +- tests/testthat/test-os-vartest.R | 20 +- tests/testthat/test-paired-test.R | 12 +- tests/testthat/test-prop-test.R | 20 +- tests/testthat/test-runs.R | 12 +- tests/testthat/test-ttest.R | 26 +- tests/testthat/test-two-prop-test.R | 56 ++-- tests/testthat/test-two-var-test.R | 14 +- tests/testthat/test-utils.R | 2 +- vignettes/intro.Rmd | 62 ++-- 85 files changed, 1793 insertions(+), 1557 deletions(-) rename man/{infer_binom_calc.Rd => ifr_binom_calc.Rd} (72%) rename man/{infer_chisq_assoc_test.Rd => ifr_chisq_assoc_test.Rd} (78%) rename man/{infer_chisq_gof_test.Rd => ifr_chisq_gof_test.Rd} (77%) rename man/{infer_cochran_qtest.Rd => ifr_cochran_qtest.Rd} (71%) rename man/{infer_launch_shiny_app.Rd => ifr_launch_shiny_app.Rd} (63%) rename man/{infer_levene_test.Rd => ifr_levene_test.Rd} (77%) rename man/{infer_mcnemar_test.Rd => ifr_mcnemar_test.Rd} (78%) rename man/{infer_oneway_anova.Rd => ifr_oneway_anova.Rd} (78%) rename man/{infer_os_prop_test.Rd => ifr_os_prop_test.Rd} (73%) rename man/{infer_os_t_test.Rd => ifr_os_t_test.Rd} (74%) rename man/{infer_os_var_test.Rd => ifr_os_var_test.Rd} (74%) rename man/{infer_runs_test.Rd => ifr_runs_test.Rd} (80%) rename man/{infer_ts_ind_ttest.Rd => ifr_ts_ind_ttest.Rd} (81%) rename man/{infer_ts_paired_ttest.Rd => ifr_ts_paired_ttest.Rd} (75%) rename man/{infer_ts_prop_test.Rd => ifr_ts_prop_test.Rd} (72%) rename man/{infer_ts_var_test.Rd => ifr_ts_var_test.Rd} (77%) diff --git a/NAMESPACE b/NAMESPACE index d39961e..e7643c1 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,54 +1,54 @@ # Generated by roxygen2: do not edit by hand -S3method(infer_binom_calc,default) -S3method(infer_chisq_assoc_test,default) -S3method(infer_chisq_gof_test,default) -S3method(infer_cochran_qtest,default) -S3method(infer_levene_test,default) -S3method(infer_mcnemar_test,default) -S3method(infer_oneway_anova,default) -S3method(infer_os_prop_test,default) -S3method(infer_os_t_test,default) -S3method(infer_os_var_test,default) -S3method(infer_runs_test,default) -S3method(infer_ts_ind_ttest,default) -S3method(infer_ts_paired_ttest,default) -S3method(infer_ts_prop_test,default) -S3method(infer_ts_var_test,default) -S3method(print,infer_binom_calc) -S3method(print,infer_chisq_assoc_test) -S3method(print,infer_chisq_gof_test) -S3method(print,infer_cochran_qtest) -S3method(print,infer_levene_test) -S3method(print,infer_mcnemar_test) -S3method(print,infer_oneway_anova) -S3method(print,infer_os_prop_test) -S3method(print,infer_os_t_test) -S3method(print,infer_os_var_test) -S3method(print,infer_runs_test) -S3method(print,infer_ts_ind_ttest) -S3method(print,infer_ts_paired_ttest) -S3method(print,infer_ts_prop_test) -S3method(print,infer_ts_var_test) -export(infer_binom_calc) -export(infer_binom_test) -export(infer_chisq_assoc_test) -export(infer_chisq_gof_test) -export(infer_cochran_qtest) -export(infer_launch_shiny_app) -export(infer_levene_test) -export(infer_mcnemar_test) -export(infer_oneway_anova) -export(infer_os_prop_test) -export(infer_os_t_test) -export(infer_os_var_test) -export(infer_runs_test) -export(infer_ts_ind_ttest) -export(infer_ts_paired_ttest) -export(infer_ts_prop_calc) -export(infer_ts_prop_group) -export(infer_ts_prop_test) -export(infer_ts_var_test) +S3method(ifr_binom_calc,default) +S3method(ifr_chisq_assoc_test,default) +S3method(ifr_chisq_gof_test,default) +S3method(ifr_cochran_qtest,default) +S3method(ifr_levene_test,default) +S3method(ifr_mcnemar_test,default) +S3method(ifr_oneway_anova,default) +S3method(ifr_os_prop_test,default) +S3method(ifr_os_t_test,default) +S3method(ifr_os_var_test,default) +S3method(ifr_runs_test,default) +S3method(ifr_ts_ind_ttest,default) +S3method(ifr_ts_paired_ttest,default) +S3method(ifr_ts_prop_test,default) +S3method(ifr_ts_var_test,default) +S3method(print,ifr_binom_calc) +S3method(print,ifr_chisq_assoc_test) +S3method(print,ifr_chisq_gof_test) +S3method(print,ifr_cochran_qtest) +S3method(print,ifr_levene_test) +S3method(print,ifr_mcnemar_test) +S3method(print,ifr_oneway_anova) +S3method(print,ifr_os_prop_test) +S3method(print,ifr_os_t_test) +S3method(print,ifr_os_var_test) +S3method(print,ifr_runs_test) +S3method(print,ifr_ts_ind_ttest) +S3method(print,ifr_ts_paired_ttest) +S3method(print,ifr_ts_prop_test) +S3method(print,ifr_ts_var_test) +export(ifr_binom_calc) +export(ifr_binom_test) +export(ifr_chisq_assoc_test) +export(ifr_chisq_gof_test) +export(ifr_cochran_qtest) +export(ifr_launch_shiny_app) +export(ifr_levene_test) +export(ifr_mcnemar_test) +export(ifr_oneway_anova) +export(ifr_os_prop_test) +export(ifr_os_t_test) +export(ifr_os_var_test) +export(ifr_runs_test) +export(ifr_ts_ind_ttest) +export(ifr_ts_paired_ttest) +export(ifr_ts_prop_calc) +export(ifr_ts_prop_group) +export(ifr_ts_prop_test) +export(ifr_ts_var_test) import(magrittr) importFrom(Rcpp,sourceCpp) importFrom(data.table,":=") diff --git a/R/ifr-anova.R b/R/ifr-anova.R index eac0b26..2639fc2 100644 --- a/R/ifr-anova.R +++ b/R/ifr-anova.R @@ -4,8 +4,8 @@ #' @param x numeric; column in \code{data} #' @param y factor; column in \code{data} #' @param ... additional arguments passed to or from other methods -#' @return \code{infer_oneway_anova} returns an object of class \code{"infer_oneway_anova"}. -#' An object of class \code{"infer_oneway_anova"} is a list containing the +#' @return \code{ifr_oneway_anova} returns an object of class \code{"ifr_oneway_anova"}. +#' An object of class \code{"ifr_oneway_anova"} is a list containing the #' following components: #' #' \item{adjusted_r2}{adjusted r squared value} @@ -29,14 +29,14 @@ #' #' @seealso \code{\link[stats]{anova}} #' @examples -#' infer_oneway_anova(mtcars, mpg, cyl) -#' infer_oneway_anova(hsb, write, prog) +#' ifr_oneway_anova(mtcars, mpg, cyl) +#' ifr_oneway_anova(hsb, write, prog) #' @export #' -infer_oneway_anova <- function(data, x, y, ...) UseMethod("infer_oneway_anova") +ifr_oneway_anova <- function(data, x, y, ...) UseMethod("ifr_oneway_anova") #' @export -infer_oneway_anova.default <- function(data, x, y, ...) { +ifr_oneway_anova.default <- function(data, x, y, ...) { x1 <- deparse(substitute(x)) y1 <- deparse(substitute(y)) @@ -64,12 +64,12 @@ infer_oneway_anova.default <- function(data, x, y, ...) { ss_total = k$total, ss_within = k$ssee) - class(result) <- "infer_oneway_anova" + class(result) <- "ifr_oneway_anova" return(result) } #' @export -print.infer_oneway_anova <- function(x, ...) { +print.ifr_oneway_anova <- function(x, ...) { print_owanova(x) } diff --git a/R/ifr-binom-test.R b/R/ifr-binom-test.R index 5dc3d7f..28397bd 100644 --- a/R/ifr-binom-test.R +++ b/R/ifr-binom-test.R @@ -8,8 +8,8 @@ #' @param variable factor; column in \code{data} #' @param ... additional arguments passed to or from other methods #' -#' @return \code{infer_binom_test} returns an object of class \code{"infer_binom_test"}. -#' An object of class \code{"infer_binom_test"} is a list containing the +#' @return \code{ifr_binom_test} returns an object of class \code{"ifr_binom_test"}. +#' An object of class \code{"ifr_binom_test"} is a list containing the #' following components: #' #' \item{exp_k}{expected number of successes} @@ -21,23 +21,23 @@ #' \item{pval_upper}{upper one sided p value} #' @section Deprecated Functions: #' \code{binom_calc()} and \code{binom_test()} have been deprecated. Instead use -#' \code{infer_binom_cal()} and \code{infer_binom_test()}. +#' \code{ifr_binom_cal()} and \code{ifr_binom_test()}. #' @references Hoel, P. G. 1984. Introduction to Mathematical Statistics. #' 5th ed. New York: Wiley. #' #' @seealso \code{\link[stats]{binom.test}} #' @examples #' # using calculator -#' infer_binom_calc(32, 13, prob = 0.5) +#' ifr_binom_calc(32, 13, prob = 0.5) #' #' # using data set -#' infer_binom_test(hsb, female, prob = 0.5) +#' ifr_binom_test(hsb, female, prob = 0.5) #' @export #' -infer_binom_calc <- function(n, success, prob = 0.5, ...) UseMethod("infer_binom_calc") +ifr_binom_calc <- function(n, success, prob = 0.5, ...) UseMethod("ifr_binom_calc") #' @export -infer_binom_calc.default <- function(n, success, prob = 0.5, ...) { +ifr_binom_calc.default <- function(n, success, prob = 0.5, ...) { if (!is.numeric(n)) { stop("n must be an integer", call. = FALSE) @@ -68,18 +68,18 @@ infer_binom_calc.default <- function(n, success, prob = 0.5, ...) { pval_upper = k$upper ) - class(out) <- "infer_binom_calc" + class(out) <- "ifr_binom_calc" return(out) } #' @export -print.infer_binom_calc <- function(x, ...) { +print.ifr_binom_calc <- function(x, ...) { print_binom(x) } #' @export -#' @rdname infer_binom_calc -infer_binom_test <- function(data, variable, prob = 0.5) { +#' @rdname ifr_binom_calc +ifr_binom_test <- function(data, variable, prob = 0.5) { varyable <- deparse(substitute(variable)) fdata <- data[[varyable]] @@ -102,7 +102,7 @@ infer_binom_test <- function(data, variable, prob = 0.5) { n <- length(fdata) k <- table(fdata)[[2]] - infer_binom_calc.default(n, k, prob) + ifr_binom_calc.default(n, k, prob) } #' @importFrom stats pbinom dbinom diff --git a/R/ifr-chisq-assoc-test.R b/R/ifr-chisq-assoc-test.R index 4591e58..681cb3a 100644 --- a/R/ifr-chisq-assoc-test.R +++ b/R/ifr-chisq-assoc-test.R @@ -4,9 +4,9 @@ #' @param data a \code{data.frame} or \code{tibble} #' @param x factor; column in \code{data} #' @param y factor; column in \code{data} -#' @return \code{infer_chisq_assoc_test} returns an object of class -#' \code{"infer_chisq_assoc_test"}. An object of class -#' \code{"infer_chisq_assoc_test"} is a list containing the +#' @return \code{ifr_chisq_assoc_test} returns an object of class +#' \code{"ifr_chisq_assoc_test"}. An object of class +#' \code{"ifr_chisq_assoc_test"} is a list containing the #' following components: #' #' \item{chisquare}{chi square} @@ -25,21 +25,21 @@ #' #' @section Deprecated Function: #' \code{chisq_test()} has been deprecated. Instead use -#' \code{infer_chisq_assoc_test()}. +#' \code{ifr_chisq_assoc_test()}. #' #' @seealso \code{\link[stats]{chisq.test}} #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @examples -#' infer_chisq_assoc_test(hsb, female, schtyp) +#' ifr_chisq_assoc_test(hsb, female, schtyp) #' -#' infer_chisq_assoc_test(hsb, female, ses) +#' ifr_chisq_assoc_test(hsb, female, ses) #' @export #' -infer_chisq_assoc_test <- function(data, x, y) UseMethod("infer_chisq_assoc_test") +ifr_chisq_assoc_test <- function(data, x, y) UseMethod("ifr_chisq_assoc_test") #' @export -infer_chisq_assoc_test.default <- function(data, x, y) { +ifr_chisq_assoc_test.default <- function(data, x, y) { x1 <- deparse(substitute(x)) y1 <- deparse(substitute(y)) @@ -111,12 +111,12 @@ infer_chisq_assoc_test.default <- function(data, x, y) { ) } - class(result) <- "infer_chisq_assoc_test" + class(result) <- "ifr_chisq_assoc_test" return(result) } #' @export -print.infer_chisq_assoc_test <- function(x, ...) { +print.ifr_chisq_assoc_test <- function(x, ...) { print_chisq_test(x) } diff --git a/R/ifr-chisq-gof-test.R b/R/ifr-chisq-gof-test.R index 8e9d643..9caf6cd 100644 --- a/R/ifr-chisq-gof-test.R +++ b/R/ifr-chisq-gof-test.R @@ -5,8 +5,8 @@ #' @param x factor; column in \code{data} #' @param y expected proportions #' @param correct logical; if TRUE continuity correction is applied -#' @return \code{infer_chisq_gof_test} returns an object of class -#' \code{"infer_chisq_gof_test"}. An object of class \code{"infer_chisq_gof_test"} +#' @return \code{ifr_chisq_gof_test} returns an object of class +#' \code{"ifr_chisq_gof_test"}. An object of class \code{"ifr_chisq_gof_test"} #' is a list containing the following components: #' #' \item{categories}{levels of \code{x}} @@ -23,22 +23,22 @@ #' #' @section Deprecated Function: #' \code{chisq_gof()} has been deprecated. Instead use -#' \code{infer_chisq_gof_test()} +#' \code{ifr_chisq_gof_test()} #' #' @seealso \code{\link[stats]{chisq.test}} #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @examples -#' infer_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) +#' ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) #' #' # apply continuity correction -#' infer_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE) +#' ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE) #' @export #' -infer_chisq_gof_test <- function(data, x, y, correct = FALSE) UseMethod("infer_chisq_gof_test") +ifr_chisq_gof_test <- function(data, x, y, correct = FALSE) UseMethod("ifr_chisq_gof_test") #' @export -infer_chisq_gof_test.default <- function(data, x, y, correct = FALSE) { +ifr_chisq_gof_test.default <- function(data, x, y, correct = FALSE) { x1 <- deparse(substitute(x)) xcheck <- data[[x1]] @@ -92,12 +92,12 @@ infer_chisq_gof_test.default <- function(data, x, y, correct = FALSE) { varname = varname ) - class(result) <- "infer_chisq_gof_test" + class(result) <- "ifr_chisq_gof_test" return(result) } #' @export -print.infer_chisq_gof_test <- function(x, ...) { +print.ifr_chisq_gof_test <- function(x, ...) { print_chisq_gof(x) } @@ -110,7 +110,9 @@ chi_cort <- function(x, y) { std <- round(diff / sqrt(y), 2) chi <- round(sum(dif2 / y), 4) - list(dev = dev, std = std, chi = chi) + list(dev = dev, + std = std, + chi = chi) } chigof <- function(x, y) { @@ -121,5 +123,7 @@ chigof <- function(x, y) { std <- round(dif / sqrt(y), 2) chi <- round(sum(dif2 / y), 4) - list(dev = dev, std = std, chi = chi) + list(dev = dev, + std = std, + chi = chi) } diff --git a/R/ifr-cochran-q-test.R b/R/ifr-cochran-q-test.R index 9e4d19f..ad828db 100644 --- a/R/ifr-cochran-q-test.R +++ b/R/ifr-cochran-q-test.R @@ -3,8 +3,8 @@ #' equal in the same population. #' @param data a \code{data.frame} or \code{tibble} #' @param ... columns in \code{data} -#' @return \code{infer_cochran_qtest} returns an object of class -#' \code{"infer_cochran_qtest"}. An object of class \code{"infer_cochran_qtest"} +#' @return \code{ifr_cochran_qtest} returns an object of class +#' \code{"ifr_cochran_qtest"}. An object of class \code{"ifr_cochran_qtest"} #' is a list containing the following components: #' #' \item{df}{degrees of freedom} @@ -14,18 +14,18 @@ #' #' @section Deprecated Function: #' \code{cochran_test()} has been deprecated. Instead use -#' \code{infer_cochran_qtest()}. +#' \code{ifr_cochran_qtest()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' #' @examples -#' infer_cochran_qtest(exam, exam1, exam2, exam3) +#' ifr_cochran_qtest(exam, exam1, exam2, exam3) #' @export #' -infer_cochran_qtest <- function(data, ...) UseMethod("infer_cochran_qtest") +ifr_cochran_qtest <- function(data, ...) UseMethod("ifr_cochran_qtest") #' @export -infer_cochran_qtest.default <- function(data, ...) { +ifr_cochran_qtest.default <- function(data, ...) { vars <- vapply(substitute(...()), deparse, NA_character_) fdata <- data[vars] @@ -47,13 +47,13 @@ infer_cochran_qtest.default <- function(data, ...) { pvalue = k$pvalue, q = k$q) - class(result) <- "infer_cochran_qtest" + class(result) <- "ifr_cochran_qtest" return(result) } #' @export #' -print.infer_cochran_qtest <- function(x, ...) { +print.ifr_cochran_qtest <- function(x, ...) { print_cochran_test(x) } diff --git a/R/ifr-launch-shiny-app.R b/R/ifr-launch-shiny-app.R index aa2ae92..3e154fe 100644 --- a/R/ifr-launch-shiny-app.R +++ b/R/ifr-launch-shiny-app.R @@ -2,13 +2,13 @@ #' @description Launches shiny app #' @examples #' \dontrun{ -#' infer_launch_shiny_app() +#' ifr_launch_shiny_app() #' } #' @export #' -infer_launch_shiny_app <- function() { +ifr_launch_shiny_app <- function() { - message("`infer_launch_shiny_app()` has been soft-deprecated and will be removed in the next release. In future, to launch the app, run the below code:\n + message("`ifr_launch_shiny_app()` has been soft-deprecated and will be removed in the next release. In future, to launch the app, run the below code:\n - install.packages('xplorerr')\n - xplorerr::app_inference()\n") check_suggests('descriptr') diff --git a/R/ifr-levene-test.R b/R/ifr-levene-test.R index 5a2ef04..a9d3dfe 100644 --- a/R/ifr-levene-test.R +++ b/R/ifr-levene-test.R @@ -1,5 +1,5 @@ #' @title Levene's test for equality of variances -#' @description \code{infer_levene_test} reports Levene's robust test statistic +#' @description \code{ifr_levene_test} reports Levene's robust test statistic #' for the equality of variances and the #' two statistics proposed by Brown and Forsythe that replace the mean in #' Levene's formula with alternative location estimators. The first alternative @@ -9,8 +9,8 @@ #' @param ... numeric; columns in \code{data} #' @param group_var factor; column in \code{data} #' @param trim_mean trimmed mean -#' @return \code{infer_levene_test} returns an object of class \code{"infer_levene_test"}. -#' An object of class \code{"infer_levene_test"} is a list containing the +#' @return \code{ifr_levene_test} returns an object of class \code{"ifr_levene_test"}. +#' An object of class \code{"ifr_levene_test"} is a list containing the #' following components: #' #' \item{bf}{Brown and Forsythe f statistic} @@ -30,7 +30,7 @@ #' \item{lens}{number of observations for each level of the grouping variable} #' \item{type}{alternative hypothesis} #' @section Deprecated Function: -#' \code{levene_test()} has been deprecated. Instead use \code{infer_levene_test()}. +#' \code{levene_test()} has been deprecated. Instead use \code{ifr_levene_test()}. #' @references #' {Bland, M. 2000. An Introduction to Medical Statistics. 3rd ed. Oxford: Oxford University Press.} #' @@ -39,18 +39,18 @@ #' {Carroll, R. J., and H. Schneider. 1985. A note on Levene’s tests for equality of variances. Statistics and Probability Letters 3: 191–194.} #' @examples #' # using grouping variable -#' infer_levene_test(hsb, read, group_var = race) +#' ifr_levene_test(hsb, read, group_var = race) #' #' # using variables -#' infer_levene_test(hsb, read, write, socst) +#' ifr_levene_test(hsb, read, write, socst) #' #' @export #' -infer_levene_test <- function(data, ...) UseMethod("infer_levene_test") +ifr_levene_test <- function(data, ...) UseMethod("ifr_levene_test") #' @export -#' @rdname infer_levene_test -infer_levene_test.default <- function(data, ..., group_var = NULL, trim_mean = 0.1) { +#' @rdname ifr_levene_test +ifr_levene_test.default <- function(data, ..., group_var = NULL, trim_mean = 0.1) { groupvar <- deparse(substitute(group_var)) varyables <- vapply(substitute(...()), deparse, NA_character_) @@ -98,14 +98,14 @@ infer_levene_test.default <- function(data, ..., group_var = NULL, trim_mean = 0 sd = k$sd, sds = k$sds) - class(out) <- "infer_levene_test" + class(out) <- "ifr_levene_test" return(out) } #' @export #' -print.infer_levene_test <- function(x, ...) { +print.ifr_levene_test <- function(x, ...) { print_levene_test(x) } diff --git a/R/ifr-mcnemar-test.R b/R/ifr-mcnemar-test.R index c8cbbf1..65fd78f 100644 --- a/R/ifr-mcnemar-test.R +++ b/R/ifr-mcnemar-test.R @@ -5,8 +5,8 @@ #' @param data a \code{data.frame} or \code{tibble} #' @param x factor; column in \code{data} #' @param y factor; column in \code{data} -#' @return \code{infer_mcnemar_test} returns an object of class \code{"infer_mcnemar_test"}. -#' An object of class \code{"infer_mcnemar_test"} is a list containing the +#' @return \code{ifr_mcnemar_test} returns an object of class \code{"ifr_mcnemar_test"}. +#' An object of class \code{"ifr_mcnemar_test"} is a list containing the #' following components: #' #' \item{statistic}{chi square statistic} @@ -26,7 +26,7 @@ #' \item{tbl}{two way table} #' @section Deprecated Function: #' \code{mcnermar_test()} has been deprecated. Instead use -#' \code{infer_mcnemar_test()}. +#' \code{ifr_mcnemar_test()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @@ -36,22 +36,22 @@ #' hb <- hsb #' hb$himath <- ifelse(hsb$math > 60, 1, 0) #' hb$hiread <- ifelse(hsb$read > 60, 1, 0) -#' infer_mcnemar_test(hb, himath, hiread) +#' ifr_mcnemar_test(hb, himath, hiread) #' #' # test if the proportion of students in himath and hiread group is same #' himath <- ifelse(hsb$math > 60, 1, 0) #' hiread <- ifelse(hsb$read > 60, 1, 0) -#' infer_mcnemar_test(table(himath, hiread)) +#' ifr_mcnemar_test(table(himath, hiread)) #' #' # using matrix -#' infer_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) +#' ifr_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) #' @export #' -infer_mcnemar_test <- function(data, x = NULL, y = NULL) UseMethod("infer_mcnemar_test") +ifr_mcnemar_test <- function(data, x = NULL, y = NULL) UseMethod("ifr_mcnemar_test") #' @export #' -infer_mcnemar_test.default <- function(data, x = NULL, y = NULL) { +ifr_mcnemar_test.default <- function(data, x = NULL, y = NULL) { if (is.matrix(data) | is.table(data)) { dat <- mcdata(data) @@ -82,13 +82,13 @@ infer_mcnemar_test.default <- function(data, x = NULL, y = NULL) { std_err = k$std_err, tbl = dat) - class(result) <- "infer_mcnemar_test" + class(result) <- "ifr_mcnemar_test" return(result) } #' @export #' -print.infer_mcnemar_test <- function(x, ...) { +print.ifr_mcnemar_test <- function(x, ...) { print_mcnemar_test(x) } diff --git a/R/ifr-os-prop-test.R b/R/ifr-os-prop-test.R index 76225f3..b809ca2 100644 --- a/R/ifr-os-prop-test.R +++ b/R/ifr-os-prop-test.R @@ -1,5 +1,5 @@ #' @title One Sample Test of Proportion -#' @description \code{infer_os_prop_test} compares proportion in one group to a +#' @description \code{ifr_os_prop_test} compares proportion in one group to a #' specified population proportion. #' @param data numeric vector of length 1 or a \code{data.frame} or \code{tibble} #' @param variable factor; column in \code{data} @@ -8,8 +8,8 @@ #' @param alternative a character string specifying the alternative hypothesis, #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter. -#' @return \code{infer_os_prop_test} returns an object of class \code{"infer_os_prop_test"}. -#' An object of class \code{"infer_os_prop_test"} is a list containing the +#' @return \code{ifr_os_prop_test} returns an object of class \code{"ifr_os_prop_test"}. +#' An object of class \code{"ifr_os_prop_test"} is a list containing the #' following components: #' #' \item{n}{number of observations} @@ -23,26 +23,26 @@ #' \item{deviation}{deviation of observed from expected} #' \item{std}{standardized resiudals} #' @section Deprecated Function: -#' \code{prop_test()} has been deprecated. Instead use \code{infer_os_prop_test()}. +#' \code{prop_test()} has been deprecated. Instead use \code{ifr_os_prop_test()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @seealso \code{\link[stats]{prop.test}} \code{\link[stats]{binom.test}} #' @examples #' # use as a calculator -#' infer_os_prop_test(200, prob = 0.5, phat = 0.3) +#' ifr_os_prop_test(200, prob = 0.5, phat = 0.3) #' #' # using data set -#' infer_os_prop_test(hsb, female, prob = 0.5) +#' ifr_os_prop_test(hsb, female, prob = 0.5) #' @export #' -infer_os_prop_test <- function(data, variable = NULL, prob = 0.5, phat = 0.5, +ifr_os_prop_test <- function(data, variable = NULL, prob = 0.5, phat = 0.5, alternative = c("both", "less", "greater", "all")) - UseMethod("infer_os_prop_test") + UseMethod("ifr_os_prop_test") #' @export -#' @rdname infer_os_prop_test +#' @rdname ifr_os_prop_test #' -infer_os_prop_test.default <- function(data, variable = NULL, prob = 0.5, phat = 0.5, +ifr_os_prop_test.default <- function(data, variable = NULL, prob = 0.5, phat = 0.5, alternative = c("both", "less", "greater", "all")) { if (is.numeric(data)) { @@ -73,13 +73,13 @@ infer_os_prop_test.default <- function(data, variable = NULL, prob = 0.5, phat = std = k$std, z = k$z) - class(result) <- "infer_os_prop_test" + class(result) <- "ifr_os_prop_test" return(result) } #' @export #' -print.infer_os_prop_test <- function(x, ...) { +print.ifr_os_prop_test <- function(x, ...) { print_prop_test(x) } diff --git a/R/ifr-os-t-test.R b/R/ifr-os-t-test.R index 44aa943..d5ed7cb 100644 --- a/R/ifr-os-t-test.R +++ b/R/ifr-os-t-test.R @@ -1,5 +1,5 @@ #' @title One Sample t Test -#' @description \code{infer_os_t_test} performs t tests on the equality of means. It tests the +#' @description \code{ifr_os_t_test} performs t tests on the equality of means. It tests the #' hypothesis that a sample has a mean equal to a hypothesized value. #' @param data a \code{data.frame} or \code{tibble} #' @param x numeric; column in \code{data} @@ -9,8 +9,8 @@ #' one of "both" (default), "greater", "less" or "all". You can specify just the #' initial letter #' @param ... additional arguments passed to or from other methods -#' @return \code{infer_os_t_test} returns an object of class \code{"infer_os_t_test"}. -#' An object of class \code{"infer_os_t_test"} is a list containing the +#' @return \code{ifr_os_t_test} returns an object of class \code{"ifr_os_t_test"}. +#' An object of class \code{"ifr_os_t_test"} is a list containing the #' following components: #' #' \item{mu}{a number indicating the true value of the mean} @@ -31,32 +31,32 @@ #' \item{type}{alternative hypothesis} #' \item{var_name}{name of \code{x}} #' @section Deprecated Function: -#' \code{ttest()} has been deprecated. Instead use \code{infer_os_t_test()}. +#' \code{ttest()} has been deprecated. Instead use \code{ifr_os_t_test()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @seealso \code{\link[stats]{t.test}} #' #' @examples #' # lower tail -#' infer_os_t_test(hsb, write, mu = 50, alternative = 'less') +#' ifr_os_t_test(hsb, write, mu = 50, alternative = 'less') #' #' # upper tail -#' infer_os_t_test(hsb, write, mu = 50, alternative = 'greater') +#' ifr_os_t_test(hsb, write, mu = 50, alternative = 'greater') #' #' # both tails -#' infer_os_t_test(hsb, write, mu = 50, alternative = 'both') +#' ifr_os_t_test(hsb, write, mu = 50, alternative = 'both') #' #' # all tails -#' infer_os_t_test(hsb, write, mu = 50, alternative = 'all') +#' ifr_os_t_test(hsb, write, mu = 50, alternative = 'all') #' #' @export #' -infer_os_t_test <- function(data, x, mu = 0, alpha = 0.05, - alternative = c("both", "less", "greater", "all"), ...) UseMethod("infer_os_t_test") +ifr_os_t_test <- function(data, x, mu = 0, alpha = 0.05, + alternative = c("both", "less", "greater", "all"), ...) UseMethod("ifr_os_t_test") #' @export #' -infer_os_t_test.default <- function(data, x, mu = 0, alpha = 0.05, +ifr_os_t_test.default <- function(data, x, mu = 0, alpha = 0.05, alternative = c("both", "less", "greater", "all"), ...) { x1 <- deparse(substitute(x)) @@ -95,13 +95,13 @@ infer_os_t_test.default <- function(data, x, mu = 0, alpha = 0.05, type = type, var_name = var_name) - class(result) <- "infer_os_t_test" + class(result) <- "ifr_os_t_test" return(result) } #' @export #' -print.infer_os_t_test <- function(x, ...) { +print.ifr_os_t_test <- function(x, ...) { print_ttest(x) } diff --git a/R/ifr-os-var-test.R b/R/ifr-os-var-test.R index a171b59..8639ccd 100644 --- a/R/ifr-os-var-test.R +++ b/R/ifr-os-var-test.R @@ -1,5 +1,5 @@ #' @title One Sample Variance Comparison Test -#' @description \code{infer_os_var_test} performs tests on the equality of standard +#' @description \code{ifr_os_var_test} performs tests on the equality of standard #' deviations (variances).It tests that the standard deviation of a sample is #' equal to a hypothesized value. #' @param data a \code{data.frame} or \code{tibble} @@ -10,8 +10,8 @@ #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter #' @param ... additional arguments passed to or from other methods -#' @return \code{infer_os_var_test} returns an object of class \code{"infer_os_var_test"}. -#' An object of class \code{"infer_os_var_test"} is a list containing the +#' @return \code{ifr_os_var_test} returns an object of class \code{"ifr_os_var_test"}. +#' An object of class \code{"ifr_os_var_test"} is a list containing the #' following components: #' #' \item{n}{number of observations} @@ -30,30 +30,30 @@ #' \item{conf}{confidence level} #' \item{type}{alternative hypothesis} #' @section Deprecated Function: -#' \code{os_vartest()} has been deprecated. Instead use \code{infer_os_var_test()}. +#' \code{os_vartest()} has been deprecated. Instead use \code{ifr_os_var_test()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @seealso \code{\link[stats]{var.test}} #' @examples #' # lower tail -#' infer_os_var_test(mtcars, mpg, 5, alternative = 'less') +#' ifr_os_var_test(mtcars, mpg, 5, alternative = 'less') #' #' # upper tail -#' infer_os_var_test(mtcars, mpg, 5, alternative = 'greater') +#' ifr_os_var_test(mtcars, mpg, 5, alternative = 'greater') #' #' # both tails -#' infer_os_var_test(mtcars, mpg, 5, alternative = 'both') +#' ifr_os_var_test(mtcars, mpg, 5, alternative = 'both') #' #' # all tails -#' infer_os_var_test(mtcars, mpg, 5, alternative = 'all') +#' ifr_os_var_test(mtcars, mpg, 5, alternative = 'all') #' @export #' -infer_os_var_test <- function(data, x, sd, confint = 0.95, - alternative = c("both", "less", "greater", "all"), ...) UseMethod("infer_os_var_test") +ifr_os_var_test <- function(data, x, sd, confint = 0.95, + alternative = c("both", "less", "greater", "all"), ...) UseMethod("ifr_os_var_test") #' @export #' -infer_os_var_test.default <- function(data, x, sd, confint = 0.95, +ifr_os_var_test.default <- function(data, x, sd, confint = 0.95, alternative = c("both", "less", "greater", "all"), ...) { x1 <- deparse(substitute(x)) @@ -92,13 +92,13 @@ infer_os_var_test.default <- function(data, x, sd, confint = 0.95, var_name = varname, xbar = round(k$xbar, 4)) - class(result) <- "infer_os_var_test" + class(result) <- "ifr_os_var_test" return(result) } #' @export #' -print.infer_os_var_test <- function(x, ...) { +print.ifr_os_var_test <- function(x, ...) { print_os_vartest(x) } diff --git a/R/ifr-runs-test.R b/R/ifr-runs-test.R index a7acbe0..b86b7cf 100644 --- a/R/ifr-runs-test.R +++ b/R/ifr-runs-test.R @@ -14,8 +14,8 @@ #' @param mean logical; if TRUE, mean will be used as threshold #' @param threshold threshold to be used for counting runs, specify 0 if data #' is coded as a binary. -#' @return \code{infer_runs_test} returns an object of class \code{"infer_runs_test"}. -#' An object of class \code{"infer_runs_test"} is a list containing the +#' @return \code{ifr_runs_test} returns an object of class \code{"ifr_runs_test"}. +#' An object of class \code{"ifr_runs_test"} is a list containing the #' following components: #' #' \item{n}{number of observations} @@ -28,7 +28,7 @@ #' \item{z}{z statistic} #' \item{p}{p-value of \code{z}} #' @section Deprecated Function: -#' \code{runs_test()} has been deprecated. Instead use \code{infer_runs_test()}. +#' \code{runs_test()} has been deprecated. Instead use \code{ifr_runs_test()}. #' @references #' {Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric Statistical Procedures, 4th edition. : Chapman & Hall/CRC.} #' @@ -38,26 +38,26 @@ #' #' {Swed, F. S., and C. Eisenhart. 1943. Tables for testing randomness of grouping in a sequence of alternatives. Annals of Mathematical Statistics 14: 66–87.} #' @examples -#' infer_runs_test(hsb, read) +#' ifr_runs_test(hsb, read) #' -#' infer_runs_test(hsb, read, drop = TRUE) +#' ifr_runs_test(hsb, read, drop = TRUE) #' -#' infer_runs_test(hsb, read, split = TRUE) +#' ifr_runs_test(hsb, read, split = TRUE) #' -#' infer_runs_test(hsb, read, mean = TRUE) +#' ifr_runs_test(hsb, read, mean = TRUE) #' -#' infer_runs_test(hsb, read, threshold = 0) +#' ifr_runs_test(hsb, read, threshold = 0) #' #' @importFrom stats pnorm #' #' @export #' -infer_runs_test <- function(data, x, drop = FALSE, split = FALSE, mean = FALSE, - threshold = NA) UseMethod("infer_runs_test") +ifr_runs_test <- function(data, x, drop = FALSE, split = FALSE, mean = FALSE, + threshold = NA) UseMethod("ifr_runs_test") #' @export #' -infer_runs_test.default <- function(data, x, drop = FALSE, +ifr_runs_test.default <- function(data, x, drop = FALSE, split = FALSE, mean = FALSE, threshold = NA) { @@ -114,13 +114,13 @@ infer_runs_test.default <- function(data, x, drop = FALSE, var = sd_runs, z = test_stat) - class(result) <- "infer_runs_test" + class(result) <- "ifr_runs_test" return(result) } #' @export #' -print.infer_runs_test <- function(x, ...) { +print.ifr_runs_test <- function(x, ...) { print_runs_test(x) } diff --git a/R/ifr-ts-ind-ttest.R b/R/ifr-ts-ind-ttest.R index 5b57381..e81f57d 100644 --- a/R/ifr-ts-ind-ttest.R +++ b/R/ifr-ts-ind-ttest.R @@ -1,5 +1,5 @@ #' @title Two Independent Sample t Test -#' @description \code{infer_ts_ind_ttest} compares the means of two independent groups in order to determine whether +#' @description \code{ifr_ts_ind_ttest} compares the means of two independent groups in order to determine whether #' there is statistical evidence that the associated population means are significantly different. #' @param data a data frame #' @param x factor; a column in \code{data} @@ -9,8 +9,8 @@ #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter #' @param ... additional arguments passed to or from other methods -#' @return \code{infer_ts_ind_ttest} returns an object of class \code{"infer_ts_ind_ttest"}. -#' An object of class \code{"infer_ts_ind_ttest"} is a list containing the +#' @return \code{ifr_ts_ind_ttest} returns an object of class \code{"ifr_ts_ind_ttest"}. +#' An object of class \code{"ifr_ts_ind_ttest"} is a list containing the #' following components: #' #' \item{levels}{levels of \code{x}} @@ -45,30 +45,30 @@ #' \item{confint}{confidence level} #' \item{alternative}{alternative hypothesis} #' @section Deprecated Function: -#' \code{ind_ttest()} has been deprecated. Instead use \code{infer_ts_ind_ttest()}. +#' \code{ind_ttest()} has been deprecated. Instead use \code{ifr_ts_ind_ttest()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @seealso \code{\link[stats]{t.test}} #' @examples #' # lower tail -#' infer_ts_ind_ttest(hsb, female, write, alternative = 'less') +#' ifr_ts_ind_ttest(hsb, female, write, alternative = 'less') #' #' # upper tail -#' infer_ts_ind_ttest(hsb, female, write, alternative = 'greater') +#' ifr_ts_ind_ttest(hsb, female, write, alternative = 'greater') #' #' # both tails -#' infer_ts_ind_ttest(hsb, female, write, alternative = 'both') +#' ifr_ts_ind_ttest(hsb, female, write, alternative = 'both') #' #' # all tails -#' infer_ts_ind_ttest(hsb, female, write, alternative = 'all') +#' ifr_ts_ind_ttest(hsb, female, write, alternative = 'all') #' @export #' -infer_ts_ind_ttest <- function(data, x, y, confint = 0.95, - alternative = c("both", "less", "greater", "all"), ...) UseMethod("infer_ts_ind_ttest") +ifr_ts_ind_ttest <- function(data, x, y, confint = 0.95, + alternative = c("both", "less", "greater", "all"), ...) UseMethod("ifr_ts_ind_ttest") #' @export #' -infer_ts_ind_ttest.default <- function(data, x, y, confint = 0.95, +ifr_ts_ind_ttest.default <- function(data, x, y, confint = 0.95, alternative = c("both", "less", "greater", "all"), ...) { x1 <- deparse(substitute(x)) @@ -126,14 +126,14 @@ infer_ts_ind_ttest.default <- function(data, x, y, confint = 0.95, upper = g_stat[, 9], var_y = var_y) - class(result) <- "infer_ts_ind_ttest" + class(result) <- "ifr_ts_ind_ttest" return(result) } #' @export #' -print.infer_ts_ind_ttest <- function(x, ...) { +print.ifr_ts_ind_ttest <- function(x, ...) { print_two_ttest(x) } diff --git a/R/ifr-ts-paired-ttest.R b/R/ifr-ts-paired-ttest.R index 70b2476..0a2897c 100644 --- a/R/ifr-ts-paired-ttest.R +++ b/R/ifr-ts-paired-ttest.R @@ -1,5 +1,5 @@ #' @title Paired t test -#' @description \code{infer_ts_paired_ttest} tests that two samples have the +#' @description \code{ifr_ts_paired_ttest} tests that two samples have the #' same mean, assuming paired data. #' @param data a \code{data.frame} or \code{tibble} #' @param x numeric; column in \code{data} @@ -8,8 +8,8 @@ #' @param alternative a character string specifying the alternative hypothesis, must be #' one of "both" (default), "greater", "less" or "all". You can specify just the #' initial letter. -#' @return \code{infer_ts_paired_ttest} returns an object of class \code{"infer_ts_paired_ttest"}. -#' An object of class \code{"infer_ts_paired_ttest"} is a list containing the +#' @return \code{ifr_ts_paired_ttest} returns an object of class \code{"ifr_ts_paired_ttest"}. +#' An object of class \code{"ifr_ts_paired_ttest"} is a list containing the #' following components: #' #' \item{Obs}{number of observations} @@ -32,30 +32,30 @@ #' \item{xy}{string used in printing results of the test} #' @section Deprecated Function: #' \code{paired_ttest()} has been deprecated. Instead use -#' \code{infer_ts_paired_ttest()}. +#' \code{ifr_ts_paired_ttest()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @seealso \code{\link[stats]{t.test}} #' @examples #' # lower tail -#' infer_ts_paired_ttest(hsb, read, write, alternative = 'less') +#' ifr_ts_paired_ttest(hsb, read, write, alternative = 'less') #' #' # upper tail -#' infer_ts_paired_ttest(hsb, read, write, alternative = 'greater') +#' ifr_ts_paired_ttest(hsb, read, write, alternative = 'greater') #' #' # both tails -#' infer_ts_paired_ttest(hsb, read, write, alternative = 'both') +#' ifr_ts_paired_ttest(hsb, read, write, alternative = 'both') #' #' # all tails -#' infer_ts_paired_ttest(hsb, read, write, alternative = 'all') +#' ifr_ts_paired_ttest(hsb, read, write, alternative = 'all') #' @export #' -infer_ts_paired_ttest <- function(data, x, y, confint = 0.95, - alternative = c("both", "less", "greater", "all")) UseMethod("infer_ts_paired_ttest") +ifr_ts_paired_ttest <- function(data, x, y, confint = 0.95, + alternative = c("both", "less", "greater", "all")) UseMethod("ifr_ts_paired_ttest") #' @export #' -infer_ts_paired_ttest.default <- function(data, x, y, confint = 0.95, +ifr_ts_paired_ttest.default <- function(data, x, y, confint = 0.95, alternative = c("both", "less", "greater", "all")) { x1 <- deparse(substitute(x)) @@ -76,13 +76,13 @@ infer_ts_paired_ttest.default <- function(data, x, y, confint = 0.95, xy = k$xy, df = k$df, alternative = method, confint = confint ) - class(result) <- "infer_ts_paired_ttest" + class(result) <- "ifr_ts_paired_ttest" return(result) } #' @export #' -print.infer_ts_paired_ttest <- function(x, ...) { +print.ifr_ts_paired_ttest <- function(x, ...) { print_paired_ttest(x) } diff --git a/R/ifr-ts-prop-test.R b/R/ifr-ts-prop-test.R index 64e70e6..e8e568d 100644 --- a/R/ifr-ts-prop-test.R +++ b/R/ifr-ts-prop-test.R @@ -15,8 +15,8 @@ #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter #' @param ... additional arguments passed to or from other methods -#' @return an object of class \code{"infer_ts_prop_test"}. -#' An object of class \code{"infer_ts_prop_test"} is a list containing the +#' @return an object of class \code{"ifr_ts_prop_test"}. +#' An object of class \code{"ifr_ts_prop_test"} is a list containing the #' following components: #' #' \item{n1}{sample 1 size} @@ -27,36 +27,36 @@ #' \item{sig}{p-value for z statistic} #' \item{alt}{alternative hypothesis} #' @section Deprecated Functions: -#' \code{infer_ts_prop_test()}, \code{infer_ts_prop_grp()} and \code{infer_ts_prop_calc()} have -#' been deprecated. Instead use \code{infer_ts_prop_test()}, -#' \code{infer_ts_prop_group()} and \code{infer_ts_prop_calc()}. +#' \code{ifr_ts_prop_test()}, \code{ifr_ts_prop_grp()} and \code{ifr_ts_prop_calc()} have +#' been deprecated. Instead use \code{ifr_ts_prop_test()}, +#' \code{ifr_ts_prop_group()} and \code{ifr_ts_prop_calc()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @seealso \code{\link[stats]{prop.test}} #' @examples #' # using variables #' # lower tail -#' infer_ts_prop_test(treatment, treatment1, treatment2, +#' ifr_ts_prop_test(treatment, treatment1, treatment2, #' alternative = 'less') #' #' # using groups #' # lower tail -#' infer_ts_prop_group(treatment2, outcome, female, +#' ifr_ts_prop_group(treatment2, outcome, female, #' alternative = 'less') #' #' # using sample size and proportions #' # lower tail -#' infer_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'less') +#' ifr_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'less') #' #' @export #' -infer_ts_prop_test <- function(data, var1, var2, +ifr_ts_prop_test <- function(data, var1, var2, alternative = c("both", "less", "greater", "all"), ...) - UseMethod("infer_ts_prop_test") + UseMethod("ifr_ts_prop_test") #' @export #' -infer_ts_prop_test.default <- function(data, var1, var2, +ifr_ts_prop_test.default <- function(data, var1, var2, alternative = c("both", "less", "greater", "all"), ...) { var_1 <- deparse(substitute(var1)) @@ -76,30 +76,30 @@ infer_ts_prop_test.default <- function(data, var1, var2, sig = k$sig, z = k$z) - class(result) <- "infer_ts_prop_test" + class(result) <- "ifr_ts_prop_test" return(result) } #' @export -#' @rdname infer_ts_prop_test +#' @rdname ifr_ts_prop_test #' @usage NULL #' -infer_ts_prop_calc <- function(n1, n2, p1, p2, +ifr_ts_prop_calc <- function(n1, n2, p1, p2, alternative = c("both", "less", "greater", "all"), ...) { - .Deprecated("infer_ts_prop_calc()") + .Deprecated("ifr_ts_prop_calc()") } #' @export #' -print.infer_ts_prop_test <- function(x, ...) { +print.ifr_ts_prop_test <- function(x, ...) { print_ts_prop_test(x) } #' @export -#' @rdname infer_ts_prop_test +#' @rdname ifr_ts_prop_test #' -infer_ts_prop_group <- function(data, var, group, +ifr_ts_prop_group <- function(data, var, group, alternative = c("both", "less", "greater", "all")) { var1 <- deparse(substitute(var)) @@ -152,14 +152,14 @@ infer_ts_prop_group <- function(data, var, group, sig = round(sig, 3), z = round(z, 3)) - class(out) <- "infer_ts_prop_test" + class(out) <- "ifr_ts_prop_test" return(out) } #' @export -#' @rdname infer_ts_prop_test +#' @rdname ifr_ts_prop_test #' -infer_ts_prop_calc <- function(n1, n2, p1, p2, +ifr_ts_prop_calc <- function(n1, n2, p1, p2, alternative = c("both", "less", "greater", "all"), ...) { n1 <- n1 n2 <- n2 @@ -197,7 +197,7 @@ infer_ts_prop_calc <- function(n1, n2, p1, p2, sig = round(sig, 3), z = round(z, 3)) - class(out) <- "infer_ts_prop_test" + class(out) <- "ifr_ts_prop_test" return(out) } diff --git a/R/ifr-ts-var-test.R b/R/ifr-ts-var-test.R index e4eec4a..09664de 100644 --- a/R/ifr-ts-var-test.R +++ b/R/ifr-ts-var-test.R @@ -1,5 +1,5 @@ #' @title Two Sample Variance Comparison Test -#' @description \code{infer_ts_var_test} performs tests on the equality of standard +#' @description \code{ifr_ts_var_test} performs tests on the equality of standard #' deviations (variances). #' @param data a \code{data.frame} or \code{tibble} #' @param ... numeric; column(s) in \code{data} @@ -7,8 +7,8 @@ #' @param alternative a character string specifying the alternative hypothesis, #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter. -#' @return \code{infer_ts_var_test} returns an object of class \code{"infer_ts_var_test"}. -#' An object of class \code{"infer_ts_var_test"} is a list containing the +#' @return \code{ifr_ts_var_test} returns an object of class \code{"ifr_ts_var_test"}. +#' An object of class \code{"ifr_ts_var_test"} is a list containing the #' following components: #' #' \item{f}{f statistic} @@ -29,25 +29,25 @@ #' \item{lev}{levels of the grouping variable} #' \item{type}{alternative hypothesis} #' @section Deprecated Function: -#' \code{var_test()} has been deprecated. Instead use \code{infer_ts_var_test()}. +#' \code{var_test()} has been deprecated. Instead use \code{ifr_ts_var_test()}. #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' @seealso \code{\link[stats]{var.test}} #' @examples #' # using grouping variable -#' infer_ts_var_test(hsb, read, group_var = female, alternative = 'less') +#' ifr_ts_var_test(hsb, read, group_var = female, alternative = 'less') #' #' # using two variables -#' infer_ts_var_test(hsb, read, write, alternative = 'less') +#' ifr_ts_var_test(hsb, read, write, alternative = 'less') #' #' @export #' -infer_ts_var_test <- function(data, ..., group_var = NULL, - alternative = c("less", "greater", "all")) UseMethod("infer_ts_var_test") +ifr_ts_var_test <- function(data, ..., group_var = NULL, + alternative = c("less", "greater", "all")) UseMethod("ifr_ts_var_test") #' @export #' -infer_ts_var_test.default <- function(data, ..., group_var = NULL, +ifr_ts_var_test.default <- function(data, ..., group_var = NULL, alternative = c("less", "greater", "all")) { groupvar <- deparse(substitute(group_var)) @@ -100,13 +100,13 @@ infer_ts_var_test.default <- function(data, ..., group_var = NULL, upper = k$upper, vars = k$vars) - class(out) <- "infer_ts_var_test" + class(out) <- "ifr_ts_var_test" return(out) } #' @export #' -print.infer_ts_var_test <- function(x, ...) { +print.ifr_ts_var_test <- function(x, ...) { print_var_test(x) } diff --git a/README.Rmd b/README.Rmd index c96ce25..8fb39a6 100644 --- a/README.Rmd +++ b/README.Rmd @@ -68,31 +68,31 @@ library(inferr) ``` ```{r infer1} -infer_os_t_test(hsb, write, mu = 50, type = 'all') +ifr_os_t_test(hsb, write, mu = 50, type = 'all') ``` #### ANOVA ```{r anova} -infer_oneway_anova(hsb, write, prog) +ifr_oneway_anova(hsb, write, prog) ``` #### Chi Square Test of Independence ```{r chi1} -infer_chisq_assoc_test(hsb, female, schtyp) +ifr_chisq_assoc_test(hsb, female, schtyp) ``` #### Levene's Test ```{r lev1} -infer_levene_test(hsb, read, group_var = race) +ifr_levene_test(hsb, read, group_var = race) ``` #### Cochran's Q Test ```{r cochran} -infer_cochran_qtest(exam, exam1, exam2, exam3) +ifr_cochran_qtest(exam, exam1, exam2, exam3) ``` #### McNemar Test @@ -101,7 +101,7 @@ infer_cochran_qtest(exam, exam1, exam2, exam3) hb <- hsb hb$himath <- ifelse(hsb$math > 60, 1, 0) hb$hiread <- ifelse(hsb$read > 60, 1, 0) -infer_mcnemar_test(hb, himath, hiread) +ifr_mcnemar_test(hb, himath, hiread) ``` ## Getting Help diff --git a/README.md b/README.md index 1603e2e..d944f36 100644 --- a/README.md +++ b/README.md @@ -64,7 +64,7 @@ devtools::install_github("rsquaredacademy/inferr") #### One Sample t Test ``` r -infer_os_t_test(hsb, write, mu = 50, type = 'all') +ifr_os_t_test(hsb, write, mu = 50, type = 'all') #> One-Sample Statistics #> --------------------------------------------------------------------------------- #> Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] @@ -87,7 +87,7 @@ infer_os_t_test(hsb, write, mu = 50, type = 'all') #### ANOVA ``` r -infer_oneway_anova(hsb, write, prog) +ifr_oneway_anova(hsb, write, prog) #> ANOVA #> ---------------------------------------------------------------------- #> Sum of @@ -114,7 +114,7 @@ infer_oneway_anova(hsb, write, prog) #### Chi Square Test of Independence ``` r -infer_chisq_assoc_test(hsb, female, schtyp) +ifr_chisq_assoc_test(hsb, female, schtyp) #> Chi Square Statistics #> #> Statistics DF Value Prob @@ -132,7 +132,7 @@ infer_chisq_assoc_test(hsb, female, schtyp) #### Levene’s Test ``` r -infer_levene_test(hsb, read, group_var = race) +ifr_levene_test(hsb, read, group_var = race) #> Summary Statistics #> Levels Frequency Mean Std. Dev #> ----------------------------------------- @@ -157,7 +157,7 @@ infer_levene_test(hsb, read, group_var = race) #### Cochran’s Q Test ``` r -infer_cochran_qtest(exam, exam1, exam2, exam3) +ifr_cochran_qtest(exam, exam1, exam2, exam3) #> Test Statistics #> ---------------------- #> N 15 @@ -173,7 +173,7 @@ infer_cochran_qtest(exam, exam1, exam2, exam3) hb <- hsb hb$himath <- ifelse(hsb$math > 60, 1, 0) hb$hiread <- ifelse(hsb$read > 60, 1, 0) -infer_mcnemar_test(hb, himath, hiread) +ifr_mcnemar_test(hb, himath, hiread) #> Controls #> --------------------------------- #> Cases 0 1 Total diff --git a/_pkgdown.yml b/_pkgdown.yml index 9e9188a..d6d0a35 100644 --- a/_pkgdown.yml +++ b/_pkgdown.yml @@ -28,6 +28,10 @@ navbar: href: reference/index.html - text: "News" href: news/index.html + - text: "Blog" + href: https://blog.rsquaredacademy.com + - text: "Online Courses" + href: https://rsquared-academy.thinkific.com right: - icon: fa-github href: https://github.com/rsquaredacademy/inferr @@ -45,31 +49,31 @@ reference: - title: Parametric Tests contents: - - infer_binom_calc - - infer_binom_test - - infer_levene_test - - infer_os_prop_test - - infer_os_t_test - - infer_os_var_test - - infer_ts_ind_ttest - - infer_ts_paired_ttest - - infer_ts_prop_test - - infer_ts_var_test + - ifr_binom_calc + - ifr_binom_test + - ifr_levene_test + - ifr_os_prop_test + - ifr_os_t_test + - ifr_os_var_test + - ifr_ts_ind_ttest + - ifr_ts_paired_ttest + - ifr_ts_prop_test + - ifr_ts_var_test - title: Non-parametric Tests contents: - - infer_chisq_assoc_test - - infer_chisq_gof_test - - infer_cochran_qtest - - infer_mcnemar_test - - infer_runs_test + - ifr_chisq_assoc_test + - ifr_chisq_gof_test + - ifr_cochran_qtest + - ifr_mcnemar_test + - ifr_runs_test - title: ANOVA contents: - - infer_oneway_anova + - ifr_oneway_anova - title: Data desc: > diff --git a/docs/404.html b/docs/404.html index d2cad67..681d5bd 100644 --- a/docs/404.html +++ b/docs/404.html @@ -106,6 +106,12 @@ News + +
  • + Blog +
    • +
  • + Online Courses
    • + +
  • + Blog +
    • +
  • + Online Courses
    • + +
  • + Blog +
    • +
  • + Online Courses
    • + +
  • + Blog +
    • +
  • + Online Courses
    • + +
  • + Blog +
    • +
  • + Online Courses
    • + +
  • + Blog +
    • +
  • + Online Courses
    • + +
  • + Blog +
    • +
  • + Online Courses
    • + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -139,7 +145,7 @@

      -inferr 0.3.1 Unreleased +inferr 0.3.1 2021-05-28

      This is a patch release to fix error on R-devel on Debian and Fedora.

      diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml index bbe3cf7..3fa3f85 100644 --- a/docs/pkgdown.yml +++ b/docs/pkgdown.yml @@ -3,7 +3,7 @@ pkgdown: 1.6.1 pkgdown_sha: ~ articles: intro: intro.html -last_built: 2021-05-28T14:34Z +last_built: 2021-07-09T11:59Z urls: reference: https://inferr.rsquaredacademy.com/reference article: https://inferr.rsquaredacademy.com/articles diff --git a/docs/reference/exam.html b/docs/reference/exam.html index 9b57c65..c841020 100644 --- a/docs/reference/exam.html +++ b/docs/reference/exam.html @@ -107,6 +107,12 @@ News

    + +
  • + Blog +
    • +
  • + Online Courses
      • diff --git a/docs/reference/hsb.html b/docs/reference/hsb.html index 8a25f9e..d798659 100644 --- a/docs/reference/hsb.html +++ b/docs/reference/hsb.html @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • diff --git a/docs/reference/ifr_binom_calc.html b/docs/reference/ifr_binom_calc.html index 23d8e3c..2abdc0a 100644 --- a/docs/reference/ifr_binom_calc.html +++ b/docs/reference/ifr_binom_calc.html @@ -73,7 +73,7 @@ inferr - 0.3.0.9000 + 0.3.1.9000 @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -175,8 +181,8 @@

      Arg

      Value

      -

      binom_test returns an object of class "binom_test". -An object of class "binom_test" is a list containing the +

      ifr_binom_test returns an object of class "ifr_binom_test". +An object of class "ifr_binom_test" is a list containing the following components:

      exp_k

      expected number of successes

      exp_p

      expected probability of success

      @@ -201,42 +207,44 @@

      See a

      binom.test

      Examples

      - 
      # using calculator
-ifr_binom_calc(32, 13, prob = 0.5)
-
      #>             Binomial Test              
-#>  --------------------------------------
-#>   Group    N     Obs. Prop    Exp. Prop 
-#>  --------------------------------------
-#>     0      19      0.59375        0.500 
-#>     1      13      0.40625        0.500 
-#>  --------------------------------------
-#> 
-#> 
-#>                  Test Summary                 
-#>  --------------------------------------------
-#>   Tail              Prob             p-value  
-#>  --------------------------------------------
-#>   Lower         Pr(k <= 13)          0.188543 
-#>   Upper         Pr(k >= 13)          0.892336 
-#>  --------------------------------------------
      
-# using data set
-ifr_binom_test(hsb, female, prob = 0.5)
-
      #>              Binomial Test              
-#>  ---------------------------------------
-#>   Group     N     Obs. Prop    Exp. Prop 
-#>  ---------------------------------------
-#>     0       91        0.455        0.500 
-#>     1      109        0.545        0.500 
-#>  ---------------------------------------
-#> 
-#> 
-#>                   Test Summary                  
-#>  ----------------------------------------------
-#>   Tail               Prob              p-value  
-#>  ----------------------------------------------
-#>   Lower          Pr(k <= 109)          0.910518 
-#>   Upper          Pr(k >= 109)          0.114623 
-#>  ----------------------------------------------
      + 
      # using calculator
+ifr_binom_calc(32, 13, prob = 0.5)
+#>             Binomial Test              
+#>  --------------------------------------
+#>   Group    N     Obs. Prop    Exp. Prop 
+#>  --------------------------------------
+#>     0      19      0.59375        0.500 
+#>     1      13      0.40625        0.500 
+#>  --------------------------------------
+#> 
+#> 
+#>                  Test Summary                 
+#>  --------------------------------------------
+#>   Tail              Prob             p-value  
+#>  --------------------------------------------
+#>   Lower         Pr(k <= 13)          0.188543 
+#>   Upper         Pr(k >= 13)          0.892336 
+#>  --------------------------------------------
+
+# using data set
+ifr_binom_test(hsb, female, prob = 0.5)
+#>              Binomial Test              
+#>  ---------------------------------------
+#>   Group     N     Obs. Prop    Exp. Prop 
+#>  ---------------------------------------
+#>     0       91        0.455        0.500 
+#>     1      109        0.545        0.500 
+#>  ---------------------------------------
+#> 
+#> 
+#>                   Test Summary                  
+#>  ----------------------------------------------
+#>   Tail               Prob              p-value  
+#>  ----------------------------------------------
+#>   Lower          Pr(k <= 109)          0.910518 
+#>   Upper          Pr(k >= 109)          0.114623 
+#>  ----------------------------------------------
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -131,7 +137,7 @@

      Chi Square Test of Association

      - Source: R/ifr-chisq-assoc-test.R, R/ifr-levene-test.R + Source: R/ifr-chisq-assoc-test.R
      @@ -194,30 +200,32 @@

      See a

      chisq.test

      Examples

      - 
      ifr_chisq_assoc_test(hsb, female, schtyp)
-
      #>                Chi Square Statistics                 
-#> 
-#> Statistics                     DF    Value      Prob 
-#> ----------------------------------------------------
-#> Chi-Square                     1    0.0470    0.8284
-#> Likelihood Ratio Chi-Square    1    0.0471    0.8282
-#> Continuity Adj. Chi-Square     1    0.0005    0.9822
-#> Mantel-Haenszel Chi-Square     1    0.0468    0.8287
-#> Phi Coefficient                     0.0153          
-#> Contingency Coefficient             0.0153          
-#> Cramer's V                          0.0153          
-#> ----------------------------------------------------
      
-ifr_chisq_assoc_test(hsb, female, ses)
-
      #>                Chi Square Statistics                 
-#> 
-#> Statistics                     DF    Value      Prob 
-#> ----------------------------------------------------
-#> Chi-Square                     2    4.5765    0.1014
-#> Likelihood Ratio Chi-Square    2    4.6789    0.0964
-#> Phi Coefficient                     0.1513          
-#> Contingency Coefficient             0.1496          
-#> Cramer's V                          0.1513          
-#> ----------------------------------------------------
      + 
      ifr_chisq_assoc_test(hsb, female, schtyp)
+#>                Chi Square Statistics                 
+#> 
+#> Statistics                     DF    Value      Prob 
+#> ----------------------------------------------------
+#> Chi-Square                     1    0.0470    0.8284
+#> Likelihood Ratio Chi-Square    1    0.0471    0.8282
+#> Continuity Adj. Chi-Square     1    0.0005    0.9822
+#> Mantel-Haenszel Chi-Square     1    0.0468    0.8287
+#> Phi Coefficient                     0.0153          
+#> Contingency Coefficient             0.0153          
+#> Cramer's V                          0.0153          
+#> ----------------------------------------------------
+
+ifr_chisq_assoc_test(hsb, female, ses)
+#>                Chi Square Statistics                 
+#> 
+#> Statistics                     DF    Value      Prob 
+#> ----------------------------------------------------
+#> Chi-Square                     2    4.5765    0.1014
+#> Likelihood Ratio Chi-Square    2    4.6789    0.0964
+#> Phi Coefficient                     0.1513          
+#> Contingency Coefficient             0.1496          
+#> Cramer's V                          0.1513          
+#> ----------------------------------------------------
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -195,41 +201,43 @@

      See a

      chisq.test

      Examples

      - 
      ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140))
-
      #>     Test Statistics     
-#> -----------------------
-#> Chi-Square       5.0286 
-#> DF                    3 
-#> Pr > Chi Sq      0.1697 
-#> Sample Size         200 
-#> 
-#>                          Variable: race                           
-#> -----------------------------------------------------------------
-#> Category    Observed    Expected    % Deviation    Std. Residuals 
-#> -----------------------------------------------------------------
-#>    1           24          20          20.00            0.89      
-#>    2           11          20         -45.00           -2.01      
-#>    3           20          20           0.00            0.00      
-#>    4          145         140           3.57            0.42      
-#> -----------------------------------------------------------------
      
-# apply continuity correction
-ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE)
-
      #>     Test Statistics     
-#> -----------------------
-#> Chi-Square       4.3821 
-#> DF                    3 
-#> Pr > Chi Sq      0.2231 
-#> Sample Size         200 
-#> 
-#>                          Variable: race                           
-#> -----------------------------------------------------------------
-#> Category    Observed    Expected    % Deviation    Std. Residuals 
-#> -----------------------------------------------------------------
-#>    1           24          20          17.50            0.78      
-#>    2           11          20         -47.50           -2.12      
-#>    3           20          20          -2.50           -0.11      
-#>    4          145         140           3.21            0.38      
-#> -----------------------------------------------------------------
      + 
      ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140))
+#>     Test Statistics     
+#> -----------------------
+#> Chi-Square       5.0286 
+#> DF                    3 
+#> Pr > Chi Sq      0.1697 
+#> Sample Size         200 
+#> 
+#>                          Variable: race                           
+#> -----------------------------------------------------------------
+#> Category    Observed    Expected    % Deviation    Std. Residuals 
+#> -----------------------------------------------------------------
+#>    1           24          20          20.00            0.89      
+#>    2           11          20         -45.00           -2.01      
+#>    3           20          20           0.00            0.00      
+#>    4          145         140           3.57            0.42      
+#> -----------------------------------------------------------------
+
+# apply continuity correction
+ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE)
+#>     Test Statistics     
+#> -----------------------
+#> Chi-Square       4.3821 
+#> DF                    3 
+#> Pr > Chi Sq      0.2231 
+#> Sample Size         200 
+#> 
+#>                          Variable: race                           
+#> -----------------------------------------------------------------
+#> Category    Observed    Expected    % Deviation    Std. Residuals 
+#> -----------------------------------------------------------------
+#>    1           24          20          17.50            0.78      
+#>    2           11          20         -47.50           -2.12      
+#>    3           20          20          -2.50           -0.11      
+#>    4          145         140           3.21            0.38      
+#> -----------------------------------------------------------------
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -177,14 +183,15 @@

      R Statistical Procedures, 4th edition. : Chapman & Hall/CRC.

      Examples

      - 
      ifr_cochran_qtest(exam, exam1, exam2, exam3)
-
      #>    Test Statistics     
-#> ----------------------
-#> N                   15 
-#> Cochran's Q       4.75 
-#> df                   2 
-#> p value          0.093 
-#> ----------------------
      + 
      ifr_cochran_qtest(exam, exam1, exam2, exam3)
+#>    Test Statistics     
+#> ----------------------
+#> N                   15 
+#> Cochran's Q       4.75 
+#> df                   2 
+#> p value          0.093 
+#> ----------------------
+
      @@ -107,6 +107,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -143,10 +149,10 @@

      Launch Shiny App

      Examples

      - 
      if (FALSE) {
-ifr_launch_shiny_app()
-}
-
      + 
      if (FALSE) {
+ifr_launch_shiny_app()
+}
+
      @@ -112,6 +112,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -208,48 +214,50 @@

      R

      Carroll, R. J., and H. Schneider. 1985. A note on Levene’s tests for equality of variances. Statistics and Probability Letters 3: 191–194.

      Examples

      - 
      # using grouping variable
-ifr_levene_test(hsb, read, group_var = race)
-
      #>            Summary Statistics             
-#> Levels    Frequency    Mean     Std. Dev  
-#> -----------------------------------------
-#>   1          24        46.67      10.24   
-#>   2          11        51.91      7.66    
-#>   3          20        46.8       7.12    
-#>   4          145       53.92      10.28   
-#> -----------------------------------------
-#> Total        200       52.23      10.25   
-#> -----------------------------------------
-#> 
-#>                              Test Statistics                              
-#> -------------------------------------------------------------------------
-#> Statistic                            Num DF    Den DF         F    Pr > F 
-#> -------------------------------------------------------------------------
-#> Brown and Forsythe                        3       196      3.44    0.0179 
-#> Levene                                    3       196    3.4792     0.017 
-#> Brown and Forsythe (Trimmed Mean)         3       196    3.3936     0.019 
-#> -------------------------------------------------------------------------
      
-# using  variables
-ifr_levene_test(hsb, read, write, socst)
-
      #>            Summary Statistics             
-#> Levels    Frequency    Mean     Std. Dev  
-#> -----------------------------------------
-#>   0          200       52.23      10.25   
-#>   1          200       52.77      9.48    
-#>   2          200       52.41      10.74   
-#> -----------------------------------------
-#> Total        600       52.47      10.15   
-#> -----------------------------------------
-#> 
-#>                              Test Statistics                              
-#> -------------------------------------------------------------------------
-#> Statistic                            Num DF    Den DF         F    Pr > F 
-#> -------------------------------------------------------------------------
-#> Brown and Forsythe                        2       597    1.1683    0.3116 
-#> Levene                                    2       597    1.3803    0.2523 
-#> Brown and Forsythe (Trimmed Mean)         2       597    1.3258    0.2664 
-#> -------------------------------------------------------------------------
      
-
      + 
      # using grouping variable
+ifr_levene_test(hsb, read, group_var = race)
+#>            Summary Statistics             
+#> Levels    Frequency    Mean     Std. Dev  
+#> -----------------------------------------
+#>   1          24        46.67      10.24   
+#>   2          11        51.91      7.66    
+#>   3          20        46.8       7.12    
+#>   4          145       53.92      10.28   
+#> -----------------------------------------
+#> Total        200       52.23      10.25   
+#> -----------------------------------------
+#> 
+#>                              Test Statistics                              
+#> -------------------------------------------------------------------------
+#> Statistic                            Num DF    Den DF         F    Pr > F 
+#> -------------------------------------------------------------------------
+#> Brown and Forsythe                        3       196      3.44    0.0179 
+#> Levene                                    3       196    3.4792     0.017 
+#> Brown and Forsythe (Trimmed Mean)         3       196    3.3936     0.019 
+#> -------------------------------------------------------------------------
+
+# using  variables
+ifr_levene_test(hsb, read, write, socst)
+#>            Summary Statistics             
+#> Levels    Frequency    Mean     Std. Dev  
+#> -----------------------------------------
+#>   0          200       52.23      10.25   
+#>   1          200       52.77      9.48    
+#>   2          200       52.41      10.74   
+#> -----------------------------------------
+#> Total        600       52.47      10.15   
+#> -----------------------------------------
+#> 
+#>                              Test Statistics                              
+#> -------------------------------------------------------------------------
+#> Statistic                            Num DF    Den DF         F    Pr > F 
+#> -------------------------------------------------------------------------
+#> Brown and Forsythe                        2       597    1.1683    0.3116 
+#> Levene                                    2       597    1.3803    0.2523 
+#> Brown and Forsythe (Trimmed Mean)         2       597    1.3258    0.2664 
+#> -------------------------------------------------------------------------
+
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -195,116 +201,119 @@

      See a

      mcnemar.test

      Examples

      - 
      # using variables from data
-hb <- hsb
-hb$himath <- ifelse(hsb$math > 60, 1, 0)
-hb$hiread <- ifelse(hsb$read > 60, 1, 0)
-ifr_mcnemar_test(hb, himath, hiread)
-
      #>            Controls 
-#> ---------------------------------
-#> Cases       0       1       Total 
-#> ---------------------------------
-#>   0        135      21        156 
-#>   1         18      26         44 
-#> ---------------------------------
-#> Total      153      47        200 
-#> ---------------------------------
-#> 
-#>        McNemar's Test        
-#> ----------------------------
-#> McNemar's chi2        0.2308 
-#> DF                         1 
-#> Pr > chi2              0.631 
-#> Exact Pr >= chi2      0.7493 
-#> ----------------------------
-#> 
-#>        Kappa Coefficient         
-#> --------------------------------
-#> Kappa                     0.4454 
-#> ASE                        0.075 
-#> 95% Lower Conf Limit      0.2984 
-#> 95% Upper Conf Limit      0.5923 
-#> --------------------------------
-#> 
-#> Proportion With Factor 
-#> ----------------------
-#> cases             0.78 
-#> controls         0.765 
-#> ratio           1.0196 
-#> odds ratio      1.1667 
-#> ----------------------
      
-# test if the proportion of students in himath and hiread group is same
-himath <- ifelse(hsb$math > 60, 1, 0)
-hiread <- ifelse(hsb$read > 60, 1, 0)
-ifr_mcnemar_test(table(himath, hiread))
-
      #>            Controls 
-#> ---------------------------------
-#> Cases       0       1       Total 
-#> ---------------------------------
-#>   0        135      21        156 
-#>   1         18      26         44 
-#> ---------------------------------
-#> Total      153      47        200 
-#> ---------------------------------
-#> 
-#>        McNemar's Test        
-#> ----------------------------
-#> McNemar's chi2        0.2308 
-#> DF                         1 
-#> Pr > chi2              0.631 
-#> Exact Pr >= chi2      0.7493 
-#> ----------------------------
-#> 
-#>        Kappa Coefficient         
-#> --------------------------------
-#> Kappa                     0.4454 
-#> ASE                        0.075 
-#> 95% Lower Conf Limit      0.2984 
-#> 95% Upper Conf Limit      0.5923 
-#> --------------------------------
-#> 
-#> Proportion With Factor 
-#> ----------------------
-#> cases             0.78 
-#> controls         0.765 
-#> ratio           1.0196 
-#> odds ratio      1.1667 
-#> ----------------------
      
-# using matrix
-ifr_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2))
-
      #>            Controls 
-#> ---------------------------------
-#> Cases       0       1       Total 
-#> ---------------------------------
-#>   0        135      21        156 
-#>   1         18      26         44 
-#> ---------------------------------
-#> Total      153      47        200 
-#> ---------------------------------
-#> 
-#>        McNemar's Test        
-#> ----------------------------
-#> McNemar's chi2        0.2308 
-#> DF                         1 
-#> Pr > chi2              0.631 
-#> Exact Pr >= chi2      0.7493 
-#> ----------------------------
-#> 
-#>        Kappa Coefficient         
-#> --------------------------------
-#> Kappa                     0.4454 
-#> ASE                        0.075 
-#> 95% Lower Conf Limit      0.2984 
-#> 95% Upper Conf Limit      0.5923 
-#> --------------------------------
-#> 
-#> Proportion With Factor 
-#> ----------------------
-#> cases             0.78 
-#> controls         0.765 
-#> ratio           1.0196 
-#> odds ratio      1.1667 
-#> ----------------------
      + 
      # using variables from data
+hb <- hsb
+hb$himath <- ifelse(hsb$math > 60, 1, 0)
+hb$hiread <- ifelse(hsb$read > 60, 1, 0)
+ifr_mcnemar_test(hb, himath, hiread)
+#>            Controls 
+#> ---------------------------------
+#> Cases       0       1       Total 
+#> ---------------------------------
+#>   0        135      21        156 
+#>   1         18      26         44 
+#> ---------------------------------
+#> Total      153      47        200 
+#> ---------------------------------
+#> 
+#>        McNemar's Test        
+#> ----------------------------
+#> McNemar's chi2        0.2308 
+#> DF                         1 
+#> Pr > chi2              0.631 
+#> Exact Pr >= chi2      0.7493 
+#> ----------------------------
+#> 
+#>        Kappa Coefficient         
+#> --------------------------------
+#> Kappa                     0.4454 
+#> ASE                        0.075 
+#> 95% Lower Conf Limit      0.2984 
+#> 95% Upper Conf Limit      0.5923 
+#> --------------------------------
+#> 
+#> Proportion With Factor 
+#> ----------------------
+#> cases             0.78 
+#> controls         0.765 
+#> ratio           1.0196 
+#> odds ratio      1.1667 
+#> ----------------------
+
+# test if the proportion of students in himath and hiread group is same
+himath <- ifelse(hsb$math > 60, 1, 0)
+hiread <- ifelse(hsb$read > 60, 1, 0)
+ifr_mcnemar_test(table(himath, hiread))
+#>            Controls 
+#> ---------------------------------
+#> Cases       0       1       Total 
+#> ---------------------------------
+#>   0        135      21        156 
+#>   1         18      26         44 
+#> ---------------------------------
+#> Total      153      47        200 
+#> ---------------------------------
+#> 
+#>        McNemar's Test        
+#> ----------------------------
+#> McNemar's chi2        0.2308 
+#> DF                         1 
+#> Pr > chi2              0.631 
+#> Exact Pr >= chi2      0.7493 
+#> ----------------------------
+#> 
+#>        Kappa Coefficient         
+#> --------------------------------
+#> Kappa                     0.4454 
+#> ASE                        0.075 
+#> 95% Lower Conf Limit      0.2984 
+#> 95% Upper Conf Limit      0.5923 
+#> --------------------------------
+#> 
+#> Proportion With Factor 
+#> ----------------------
+#> cases             0.78 
+#> controls         0.765 
+#> ratio           1.0196 
+#> odds ratio      1.1667 
+#> ----------------------
+
+# using matrix
+ifr_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2))
+#>            Controls 
+#> ---------------------------------
+#> Cases       0       1       Total 
+#> ---------------------------------
+#>   0        135      21        156 
+#>   1         18      26         44 
+#> ---------------------------------
+#> Total      153      47        200 
+#> ---------------------------------
+#> 
+#>        McNemar's Test        
+#> ----------------------------
+#> McNemar's chi2        0.2308 
+#> DF                         1 
+#> Pr > chi2              0.631 
+#> Exact Pr >= chi2      0.7493 
+#> ----------------------------
+#> 
+#>        Kappa Coefficient         
+#> --------------------------------
+#> Kappa                     0.4454 
+#> ASE                        0.075 
+#> 95% Lower Conf Limit      0.2984 
+#> 95% Upper Conf Limit      0.5923 
+#> --------------------------------
+#> 
+#> Proportion With Factor 
+#> ----------------------
+#> cases             0.78 
+#> controls         0.765 
+#> ratio           1.0196 
+#> odds ratio      1.1667 
+#> ----------------------
+
      @@ -107,6 +107,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -191,51 +197,53 @@

      See a

      anova

      Examples

      - 
      ifr_oneway_anova(mtcars, mpg, cyl)
-
      #>                                ANOVA                                 
-#> --------------------------------------------------------------------
-#>                    Sum of                                           
-#>                   Squares     DF    Mean Square      F        Sig.  
-#> --------------------------------------------------------------------
-#> Between Groups    824.785     2       412.392      39.699      0    
-#> Within Groups     301.263     29      10.388                        
-#> Total             1126.048    31                                    
-#> --------------------------------------------------------------------
-#> 
-#>                  Report                  
-#> ----------------------------------------
-#> Category    N       Mean      Std. Dev. 
-#> ----------------------------------------
-#>    4        11     26.664       4.510   
-#>    6        7      19.743       1.454   
-#>    8        14     15.100       2.560   
-#> ----------------------------------------
-#> 
-#> Number of obs = 32        R-squared     = 0.7325 
-#> Root MSE      = 3.2231    Adj R-squared = 0.714 
-#> 
      ifr_oneway_anova(hsb, write, prog)
-
      #>                                 ANOVA                                  
-#> ----------------------------------------------------------------------
-#>                    Sum of                                             
-#>                    Squares     DF     Mean Square      F        Sig.  
-#> ----------------------------------------------------------------------
-#> Between Groups    3175.698      2      1587.849      21.275      0    
-#> Within Groups     14703.177    197      74.635                        
-#> Total             17878.875    199                                    
-#> ----------------------------------------------------------------------
-#> 
-#>                  Report                   
-#> -----------------------------------------
-#> Category     N       Mean      Std. Dev. 
-#> -----------------------------------------
-#>    1        45      51.333       9.398   
-#>    2        105     56.257       7.943   
-#>    3        50      46.760       9.319   
-#> -----------------------------------------
-#> 
-#> Number of obs = 200       R-squared     = 0.1776 
-#> Root MSE      = 8.6392    Adj R-squared = 0.1693 
-#>
      + 
      ifr_oneway_anova(mtcars, mpg, cyl)
+#>                                ANOVA                                 
+#> --------------------------------------------------------------------
+#>                    Sum of                                           
+#>                   Squares     DF    Mean Square      F        Sig.  
+#> --------------------------------------------------------------------
+#> Between Groups    824.785     2       412.392      39.699      0    
+#> Within Groups     301.263     29      10.388                        
+#> Total             1126.048    31                                    
+#> --------------------------------------------------------------------
+#> 
+#>                  Report                  
+#> ----------------------------------------
+#> Category    N       Mean      Std. Dev. 
+#> ----------------------------------------
+#>    4        11     26.664       4.510   
+#>    6        7      19.743       1.454   
+#>    8        14     15.100       2.560   
+#> ----------------------------------------
+#> 
+#> Number of obs = 32        R-squared     = 0.7325 
+#> Root MSE      = 3.2231    Adj R-squared = 0.714 
+#> 
+ifr_oneway_anova(hsb, write, prog)
+#>                                 ANOVA                                  
+#> ----------------------------------------------------------------------
+#>                    Sum of                                             
+#>                    Squares     DF     Mean Square      F        Sig.  
+#> ----------------------------------------------------------------------
+#> Between Groups    3175.698      2      1587.849      21.275      0    
+#> Within Groups     14703.177    197      74.635                        
+#> Total             17878.875    199                                    
+#> ----------------------------------------------------------------------
+#> 
+#>                  Report                   
+#> -----------------------------------------
+#> Category     N       Mean      Std. Dev. 
+#> -----------------------------------------
+#>    1        45      51.333       9.398   
+#>    2        105     56.257       7.943   
+#>    3        50      46.760       9.319   
+#> -----------------------------------------
+#> 
+#> Number of obs = 200       R-squared     = 0.1776 
+#> Root MSE      = 8.6392    Adj R-squared = 0.1693 
+#> 
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -214,38 +220,40 @@

      See a

      prop.test binom.test

      Examples

      - 
      # use as a calculator
-ifr_os_prop_test(200, prob = 0.5, phat = 0.3)
-
      #>      Test Statistics       
-#> --------------------------
-#> Sample Size            200 
-#> Exp Prop               0.5 
-#> Obs Prop               0.3 
-#> z                  -5.6569 
-#> Pr(|Z| > |z|)            0 
-#> 
-#> -----------------------------------------------------------------
-#> Category    Observed    Expected    % Deviation    Std. Residuals 
-#> -----------------------------------------------------------------
-#>    0          140         100          40.00            4.00      
-#>    1           60         100         -40.00           -4.00      
-#> -----------------------------------------------------------------
      
-# using data set
-ifr_os_prop_test(hsb, female, prob = 0.5)
-
      #>      Test Statistics      
-#> -------------------------
-#> Sample Size           200 
-#> Exp Prop              0.5 
-#> Obs Prop            0.545 
-#> z                  1.2728 
-#> Pr(|Z| > |z|)      0.2031 
-#> 
-#> -----------------------------------------------------------------
-#> Category    Observed    Expected    % Deviation    Std. Residuals 
-#> -----------------------------------------------------------------
-#>    0           91         100          -9.00           -0.90      
-#>    1          109         100           9.00            0.90      
-#> -----------------------------------------------------------------
      + 
      # use as a calculator
+ifr_os_prop_test(200, prob = 0.5, phat = 0.3)
+#>      Test Statistics       
+#> --------------------------
+#> Sample Size            200 
+#> Exp Prop               0.5 
+#> Obs Prop               0.3 
+#> z                  -5.6569 
+#> Pr(|Z| > |z|)            0 
+#> 
+#> -----------------------------------------------------------------
+#> Category    Observed    Expected    % Deviation    Std. Residuals 
+#> -----------------------------------------------------------------
+#>    0          140         100          40.00            4.00      
+#>    1           60         100         -40.00           -4.00      
+#> -----------------------------------------------------------------
+
+# using data set
+ifr_os_prop_test(hsb, female, prob = 0.5)
+#>      Test Statistics      
+#> -------------------------
+#> Sample Size           200 
+#> Exp Prop              0.5 
+#> Obs Prop            0.545 
+#> z                  1.2728 
+#> Pr(|Z| > |z|)      0.2031 
+#> 
+#> -----------------------------------------------------------------
+#> Category    Observed    Expected    % Deviation    Std. Residuals 
+#> -----------------------------------------------------------------
+#>    0           91         100          -9.00           -0.90      
+#>    1          109         100           9.00            0.90      
+#> -----------------------------------------------------------------
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -217,77 +223,82 @@

      See a

      t.test

      Examples

      - 
      # lower tail
-ifr_os_t_test(hsb, write, mu = 50, alternative = 'less')
-
      #>                               One-Sample Statistics                               
-#> ---------------------------------------------------------------------------------
-#>  Variable    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> ---------------------------------------------------------------------------------
-#>   write      200    52.775     0.6702       9.4786         -Inf     53.8828   
-#> ---------------------------------------------------------------------------------
-#> 
-#>                                  Lower Tail Test                                 
-#>                                  ---------------                                  
-#> 
-#>                                Ho: mean(write) >=50                              
-#>                                 Ha: mean(write) <50                               
-#> --------------------------------------------------------------------------------
-#>  Variable      t      DF       Sig       Mean Diff.    [95% Conf. Interval] 
-#> --------------------------------------------------------------------------------
-#>   write      4.141    199    0.99997       2.775          -Inf      3.8828   
-#> --------------------------------------------------------------------------------
      
-# upper tail
-ifr_os_t_test(hsb, write, mu = 50, alternative = 'greater')
-
      #>                               One-Sample Statistics                               
-#> ---------------------------------------------------------------------------------
-#>  Variable    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> ---------------------------------------------------------------------------------
-#>   write      200    52.775     0.6702       9.4786       51.6678      Inf     
-#> ---------------------------------------------------------------------------------
-#> 
-#>                                  Upper Tail Test                                 
-#>                                  ---------------                                  
-#> 
-#>                                Ho: mean(write) <=50                              
-#>                                Ha: mean(write) >50                                
-#> --------------------------------------------------------------------------------
-#>  Variable      t      DF       Sig       Mean Diff.    [95% Conf. Interval] 
-#> --------------------------------------------------------------------------------
-#>   write      4.141    199    0.99997       2.775         1.6678      Inf     
-#> --------------------------------------------------------------------------------
      
-# both tails
-ifr_os_t_test(hsb, write, mu = 50, alternative = 'both')
-
      #>                               One-Sample Statistics                               
-#> ---------------------------------------------------------------------------------
-#>  Variable    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> ---------------------------------------------------------------------------------
-#>   write      200    52.775     0.6702       9.4786       51.4537    54.0969   
-#> ---------------------------------------------------------------------------------
-#> 
-#>                                   Two Tail Test                                  
-#>                                  ---------------                                  
-#> 
-#>                                Ho: mean(write) ~=50                              
-#>                                Ha: mean(write) !=50                               
-#> --------------------------------------------------------------------------------
-#>  Variable      t      DF       Sig       Mean Diff.    [95% Conf. Interval] 
-#> --------------------------------------------------------------------------------
-#>   write      4.141    199    0.99997       2.775         1.4537     4.0969   
-#> --------------------------------------------------------------------------------
      
-# all tails
-ifr_os_t_test(hsb, write, mu = 50, alternative = 'all')
-
      #>                               One-Sample Statistics                               
-#> ---------------------------------------------------------------------------------
-#>  Variable    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> ---------------------------------------------------------------------------------
-#>   write      200    52.775     0.6702       9.4786       51.4537    54.0969   
-#> ---------------------------------------------------------------------------------
-#> 
-#>                                Ho: mean(write) ~=50                              
-#> 
-#>         Ha: mean < 50              Ha: mean ~= 50               Ha: mean > 50        
-#>          t = 4.141                   t = 4.141                   t = 4.141         
-#>        P < t = 1.0000             P > |t| = 0.0001             P > t = 0.0000
      + 
      # lower tail
+ifr_os_t_test(hsb, write, mu = 50, alternative = 'less')
+#>                               One-Sample Statistics                               
+#> ---------------------------------------------------------------------------------
+#>  Variable    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> ---------------------------------------------------------------------------------
+#>   write      200    52.775     0.6702       9.4786         -Inf     53.8828   
+#> ---------------------------------------------------------------------------------
+#> 
+#>                                  Lower Tail Test                                 
+#>                                  ---------------                                  
+#> 
+#>                                Ho: mean(write) >=50                              
+#>                                 Ha: mean(write) <50                               
+#> --------------------------------------------------------------------------------
+#>  Variable      t      DF       Sig       Mean Diff.    [95% Conf. Interval] 
+#> --------------------------------------------------------------------------------
+#>   write      4.141    199    0.99997       2.775          -Inf      3.8828   
+#> --------------------------------------------------------------------------------
+
+# upper tail
+ifr_os_t_test(hsb, write, mu = 50, alternative = 'greater')
+#>                               One-Sample Statistics                               
+#> ---------------------------------------------------------------------------------
+#>  Variable    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> ---------------------------------------------------------------------------------
+#>   write      200    52.775     0.6702       9.4786       51.6678      Inf     
+#> ---------------------------------------------------------------------------------
+#> 
+#>                                  Upper Tail Test                                 
+#>                                  ---------------                                  
+#> 
+#>                                Ho: mean(write) <=50                              
+#>                                Ha: mean(write) >50                                
+#> --------------------------------------------------------------------------------
+#>  Variable      t      DF       Sig       Mean Diff.    [95% Conf. Interval] 
+#> --------------------------------------------------------------------------------
+#>   write      4.141    199    0.00003       2.775         1.6678      Inf     
+#> --------------------------------------------------------------------------------
+
+# both tails
+ifr_os_t_test(hsb, write, mu = 50, alternative = 'both')
+#>                               One-Sample Statistics                               
+#> ---------------------------------------------------------------------------------
+#>  Variable    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> ---------------------------------------------------------------------------------
+#>   write      200    52.775     0.6702       9.4786       51.4537    54.0969   
+#> ---------------------------------------------------------------------------------
+#> 
+#>                                   Two Tail Test                                  
+#>                                  ---------------                                  
+#> 
+#>                                Ho: mean(write) ~=50                              
+#>                                Ha: mean(write) !=50                               
+#> --------------------------------------------------------------------------------
+#>  Variable      t      DF       Sig       Mean Diff.    [95% Conf. Interval] 
+#> --------------------------------------------------------------------------------
+#>   write      4.141    199    0.00005       2.775         1.4537     4.0969   
+#> --------------------------------------------------------------------------------
+
+# all tails
+ifr_os_t_test(hsb, write, mu = 50, alternative = 'all')
+#>                               One-Sample Statistics                               
+#> ---------------------------------------------------------------------------------
+#>  Variable    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> ---------------------------------------------------------------------------------
+#>   write      200    52.775     0.6702       9.4786       51.4537    54.0969   
+#> ---------------------------------------------------------------------------------
+#> 
+#>                                Ho: mean(write) ~=50                              
+#> 
+#>         Ha: mean < 50              Ha: mean ~= 50               Ha: mean > 50        
+#>          t = 4.141                   t = 4.141                   t = 4.141         
+#>        P < t = 0.99997            P > |t| = 0.00005            P > t = 0.00003      
+
+
      @@ -109,6 +109,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -217,80 +223,84 @@

      See a

      var.test

      Examples

      - 
      # lower tail
-ifr_os_var_test(mtcars, mpg, 5, alternative = 'less')
-
      #>                             One-Sample Statistics                             
-#> -----------------------------------------------------------------------------
-#>  Variable    Obs     Mean      Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> -----------------------------------------------------------------------------
-#>    mpg       32     20.0906     1.0654       6.0269        3.8737    10.6527   
-#> -----------------------------------------------------------------------------
-#> 
-#>             Lower Tail Test           
-#>             ---------------           
-#>            Ho: sd(mpg) >= 5           
-#>             Ha: sd(mpg) < 5            
-#> 
-#>     Chi-Square Test for Variance      
-#> -------------------------------------
-#>  Variable       c       DF      Sig       
-#> -------------------------------------
-#>    mpg       45.042     31     0.9506  
-#> -------------------------------------
      
-# upper tail
-ifr_os_var_test(mtcars, mpg, 5, alternative = 'greater')
-
      #>                             One-Sample Statistics                             
-#> -----------------------------------------------------------------------------
-#>  Variable    Obs     Mean      Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> -----------------------------------------------------------------------------
-#>    mpg       32     20.0906     1.0654       6.0269        3.8737    10.6527   
-#> -----------------------------------------------------------------------------
-#> 
-#>             Upper Tail Test           
-#>             ---------------           
-#>            Ho: sd(mpg) <= 5           
-#>             Ha: sd(mpg) > 5            
-#> 
-#>     Chi-Square Test for Variance      
-#> -------------------------------------
-#>  Variable       c       DF      Sig    
-#> -------------------------------------
-#>    mpg       45.042     31     0.0494  
-#> -------------------------------------
      
-# both tails
-ifr_os_var_test(mtcars, mpg, 5, alternative = 'both')
-
      #>                             One-Sample Statistics                             
-#> -----------------------------------------------------------------------------
-#>  Variable    Obs     Mean      Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> -----------------------------------------------------------------------------
-#>    mpg       32     20.0906     1.0654       6.0269        3.8737    10.6527   
-#> -----------------------------------------------------------------------------
-#> 
-#>              Two Tail Test            
-#>             ---------------           
-#>             Ho: sd(mpg) = 5           
-#>            Ha: sd(mpg) != 5            
-#> 
-#>     Chi-Square Test for Variance      
-#> -------------------------------------
-#>  Variable       c       DF      Sig    
-#> -------------------------------------
-#>    mpg       45.042     31     0.0988  
-#> -------------------------------------
      
-# all tails
-ifr_os_var_test(mtcars, mpg, 5, alternative = 'all')
-
      #>                             One-Sample Statistics                             
-#> -----------------------------------------------------------------------------
-#>  Variable    Obs     Mean      Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> -----------------------------------------------------------------------------
-#>    mpg       32     20.0906     1.0654       6.0269        3.8737    10.6527   
-#> -----------------------------------------------------------------------------
-#> 
-#>                                 Ho: sd(mpg) = 5                                
-#> 
-#>          Ha: sd < 5                Ha: sd != 5                 Ha: sd > 5         
-#>         c = 45.0419                c = 45.0419                c = 45.0419       
-#>      Pr(C < c) = 0.9506       2 * Pr(C > c) = 0.0988       Pr(C > c) = 0.0494
      + 
      # lower tail
+ifr_os_var_test(mtcars, mpg, 5, alternative = 'less')
+#>                             One-Sample Statistics                             
+#> -----------------------------------------------------------------------------
+#>  Variable    Obs     Mean      Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> -----------------------------------------------------------------------------
+#>    mpg       32     20.0906     1.0654       6.0269        3.8737    10.6527   
+#> -----------------------------------------------------------------------------
+#> 
+#>             Lower Tail Test           
+#>             ---------------           
+#>            Ho: sd(mpg) >= 5           
+#>             Ha: sd(mpg) < 5            
+#> 
+#>     Chi-Square Test for Variance      
+#> -------------------------------------
+#>  Variable       c       DF      Sig       
+#> -------------------------------------
+#>    mpg       45.042     31     0.9506  
+#> -------------------------------------
+
+# upper tail
+ifr_os_var_test(mtcars, mpg, 5, alternative = 'greater')
+#>                             One-Sample Statistics                             
+#> -----------------------------------------------------------------------------
+#>  Variable    Obs     Mean      Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> -----------------------------------------------------------------------------
+#>    mpg       32     20.0906     1.0654       6.0269        3.8737    10.6527   
+#> -----------------------------------------------------------------------------
+#> 
+#>             Upper Tail Test           
+#>             ---------------           
+#>            Ho: sd(mpg) <= 5           
+#>             Ha: sd(mpg) > 5            
+#> 
+#>     Chi-Square Test for Variance      
+#> -------------------------------------
+#>  Variable       c       DF      Sig    
+#> -------------------------------------
+#>    mpg       45.042     31     0.0494  
+#> -------------------------------------
+
+# both tails
+ifr_os_var_test(mtcars, mpg, 5, alternative = 'both')
+#>                             One-Sample Statistics                             
+#> -----------------------------------------------------------------------------
+#>  Variable    Obs     Mean      Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> -----------------------------------------------------------------------------
+#>    mpg       32     20.0906     1.0654       6.0269        3.8737    10.6527   
+#> -----------------------------------------------------------------------------
+#> 
+#>              Two Tail Test            
+#>             ---------------           
+#>             Ho: sd(mpg) = 5           
+#>            Ha: sd(mpg) != 5            
+#> 
+#>     Chi-Square Test for Variance      
+#> -------------------------------------
+#>  Variable       c       DF      Sig    
+#> -------------------------------------
+#>    mpg       45.042     31     0.0988  
+#> -------------------------------------
+
+# all tails
+ifr_os_var_test(mtcars, mpg, 5, alternative = 'all')
+#>                             One-Sample Statistics                             
+#> -----------------------------------------------------------------------------
+#>  Variable    Obs     Mean      Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> -----------------------------------------------------------------------------
+#>    mpg       32     20.0906     1.0654       6.0269        3.8737    10.6527   
+#> -----------------------------------------------------------------------------
+#> 
+#>                                 Ho: sd(mpg) = 5                                
+#> 
+#>          Ha: sd < 5                Ha: sd != 5                 Ha: sd > 5         
+#>         c = 45.0419                c = 45.0419                c = 45.0419       
+#>      Pr(C < c) = 0.9506       2 * Pr(C > c) = 0.0988       Pr(C > c) = 0.0494    
+
      @@ -111,6 +111,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -214,62 +220,67 @@

      R

      Swed, F. S., and C. Eisenhart. 1943. Tables for testing randomness of grouping in a sequence of alternatives. Annals of Mathematical Statistics 14: 66–87.

      Examples

      - 
      ifr_runs_test(hsb, read)
-
      #> Runs Test
-#>  Total Cases:  200 
-#>  Test Value :  50 
-#>  Cases < Test Value:  101 
-#>  Cases > Test Value:  99 
-#>  Number of Runs:  95 
-#>  Expected Runs:  100.99 
-#>  Variance (Runs):  49.73874 
-#>  z Statistic:  -0.8493358 
-#>  p-value:  0.3956945 
      
-ifr_runs_test(hsb, read, drop = TRUE)
-
      #> Runs Test
-#>  Total Cases:  200 
-#>  Test Value :  50 
-#>  Cases < Test Value:  83 
-#>  Cases > Test Value:  99 
-#>  Number of Runs:  89 
-#>  Expected Runs:  91.2967 
-#>  Variance (Runs):  44.54805 
-#>  z Statistic:  -0.3441046 
-#>  p-value:  0.7307676 
      
-ifr_runs_test(hsb, read, split = TRUE)
-
      #> Runs Test
-#>  Total Cases:  200 
-#>  Test Value :  50 
-#>  Cases < Test Value:  101 
-#>  Cases > Test Value:  99 
-#>  Number of Runs:  95 
-#>  Expected Runs:  100.99 
-#>  Variance (Runs):  49.73874 
-#>  z Statistic:  -0.8493358 
-#>  p-value:  0.3956945 
      
-ifr_runs_test(hsb, read, mean = TRUE)
-
      #> Runs Test
-#>  Total Cases:  200 
-#>  Test Value :  52.23 
-#>  Cases < Test Value:  115 
-#>  Cases > Test Value:  85 
-#>  Number of Runs:  93 
-#>  Expected Runs:  98.75 
-#>  Variance (Runs):  47.52418 
-#>  z Statistic:  -0.8340854 
-#>  p-value:  0.4042329 
      
-ifr_runs_test(hsb, read, threshold = 0)
-
      #> Runs Test
-#>  Total Cases:  200 
-#>  Test Value :  0 
-#>  Cases < Test Value:  0 
-#>  Cases > Test Value:  200 
-#>  Number of Runs:  1 
-#>  Expected Runs:  1 
-#>  Variance (Runs):  0 
-#>  z Statistic:  NaN 
-#>  p-value:  NaN 
      
-
      + 
      ifr_runs_test(hsb, read)
+#> Runs Test
+#>  Total Cases:  200 
+#>  Test Value :  50 
+#>  Cases < Test Value:  101 
+#>  Cases > Test Value:  99 
+#>  Number of Runs:  95 
+#>  Expected Runs:  100.99 
+#>  Variance (Runs):  49.73874 
+#>  z Statistic:  -0.8493358 
+#>  p-value:  0.3956945 
+
+ifr_runs_test(hsb, read, drop = TRUE)
+#> Runs Test
+#>  Total Cases:  200 
+#>  Test Value :  50 
+#>  Cases < Test Value:  83 
+#>  Cases > Test Value:  99 
+#>  Number of Runs:  89 
+#>  Expected Runs:  91.2967 
+#>  Variance (Runs):  44.54805 
+#>  z Statistic:  -0.3441046 
+#>  p-value:  0.7307676 
+
+ifr_runs_test(hsb, read, split = TRUE)
+#> Runs Test
+#>  Total Cases:  200 
+#>  Test Value :  50 
+#>  Cases < Test Value:  101 
+#>  Cases > Test Value:  99 
+#>  Number of Runs:  95 
+#>  Expected Runs:  100.99 
+#>  Variance (Runs):  49.73874 
+#>  z Statistic:  -0.8493358 
+#>  p-value:  0.3956945 
+
+ifr_runs_test(hsb, read, mean = TRUE)
+#> Runs Test
+#>  Total Cases:  200 
+#>  Test Value :  52.23 
+#>  Cases < Test Value:  115 
+#>  Cases > Test Value:  85 
+#>  Number of Runs:  93 
+#>  Expected Runs:  98.75 
+#>  Variance (Runs):  47.52418 
+#>  z Statistic:  -0.8340854 
+#>  p-value:  0.4042329 
+
+ifr_runs_test(hsb, read, threshold = 0)
+#> Runs Test
+#>  Total Cases:  200 
+#>  Test Value :  0 
+#>  Cases < Test Value:  0 
+#>  Cases > Test Value:  200 
+#>  Number of Runs:  1 
+#>  Expected Runs:  1 
+#>  Variance (Runs):  0 
+#>  z Statistic:  NaN 
+#>  p-value:  NaN 
+
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -231,143 +237,147 @@

      See a

      t.test

      Examples

      - 
      # lower tail
-ifr_ts_ind_ttest(hsb, female, write, alternative = 'less')
-
      #>                               Group Statistics                                
-#> -----------------------------------------------------------------------------
-#>   Group       Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> -----------------------------------------------------------------------------
-#>     0          91    50.121      1.080       10.305       47.97539   52.26661  
-#>     1         109    54.991      0.779        8.134       53.44689   56.53511  
-#> -----------------------------------------------------------------------------
-#>  combined     200    52.775      0.67         9.479       51.45379   54.09621  
-#> -----------------------------------------------------------------------------
-#>    diff       200    -4.87       1.304        9.231       -7.42623   -2.31377  
-#> -----------------------------------------------------------------------------
-#> 
-#>                       Independent Samples Test                        
-#>                       ------------------------                        
-#> 
-#>                   Ho: mean(0) - mean(1) = diff = 0                    
-#>                             Ha: diff < 0                              
-#> 
-#> ---------------------------------------------------------------------
-#>  Variable        Method        Variances    DF     t Value     P < t  
-#> ---------------------------------------------------------------------
-#>   write          Pooled          Equal      198    -3.7341    0.0001  
-#>   write       Satterthwaite     Unequal     170    -3.6564    0.0002  
-#> ---------------------------------------------------------------------
-#> 
-#>                 Test for Equality of Variances                  
-#> ---------------------------------------------------------------
-#>  Variable      Method     Num DF    Den DF    F Value    P > F  
-#> ---------------------------------------------------------------
-#>   write       Folded F      90       108       1.605     0.0188 
-#> ---------------------------------------------------------------
      
-# upper tail
-ifr_ts_ind_ttest(hsb, female, write, alternative = 'greater')
-
      #>                               Group Statistics                                
-#> -----------------------------------------------------------------------------
-#>   Group       Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> -----------------------------------------------------------------------------
-#>     0          91    50.121      1.080       10.305       47.97539   52.26661  
-#>     1         109    54.991      0.779        8.134       53.44689   56.53511  
-#> -----------------------------------------------------------------------------
-#>  combined     200    52.775      0.67         9.479       51.45379   54.09621  
-#> -----------------------------------------------------------------------------
-#>    diff       200    -4.87       1.304        9.231       -7.42623   -2.31377  
-#> -----------------------------------------------------------------------------
-#> 
-#>                       Independent Samples Test                        
-#>                       ------------------------                        
-#> 
-#>                   Ho: mean(0) - mean(1) = diff = 0                    
-#>                             Ha: diff > 0                              
-#> 
-#> ---------------------------------------------------------------------
-#>  Variable        Method        Variances    DF     t Value     P > t  
-#> ---------------------------------------------------------------------
-#>   write          Pooled          Equal      198    -3.7341    0.9999  
-#>   write       Satterthwaite     Unequal     170    -3.6564    0.9998  
-#> ---------------------------------------------------------------------
-#> 
-#>                 Test for Equality of Variances                  
-#> ---------------------------------------------------------------
-#>  Variable      Method     Num DF    Den DF    F Value    P > F  
-#> ---------------------------------------------------------------
-#>   write       Folded F      90       108       1.605     0.0188 
-#> ---------------------------------------------------------------
      
-# both tails
-ifr_ts_ind_ttest(hsb, female, write, alternative = 'both')
-
      #>                               Group Statistics                                
-#> -----------------------------------------------------------------------------
-#>   Group       Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> -----------------------------------------------------------------------------
-#>     0          91    50.121      1.080       10.305       47.97539   52.26661  
-#>     1         109    54.991      0.779        8.134       53.44689   56.53511  
-#> -----------------------------------------------------------------------------
-#>  combined     200    52.775      0.67         9.479       51.45379   54.09621  
-#> -----------------------------------------------------------------------------
-#>    diff       200    -4.87       1.304        9.231       -7.42623   -2.31377  
-#> -----------------------------------------------------------------------------
-#> 
-#>                       Independent Samples Test                        
-#>                       ------------------------                        
-#> 
-#>                   Ho: mean(0) - mean(1) = diff = 0                    
-#>                             Ha: diff ~= 0                             
-#> 
-#> ---------------------------------------------------------------------
-#>  Variable        Method        Variances    DF     t Value    P > |t| 
-#> ---------------------------------------------------------------------
-#>   write          Pooled          Equal      198    -3.7341    0.0002  
-#>   write       Satterthwaite     Unequal     170    -3.6564    0.0003  
-#> ---------------------------------------------------------------------
-#> 
-#>                 Test for Equality of Variances                  
-#> ---------------------------------------------------------------
-#>  Variable      Method     Num DF    Den DF    F Value    P > F  
-#> ---------------------------------------------------------------
-#>   write       Folded F      90       108       1.605     0.0188 
-#> ---------------------------------------------------------------
      
-# all tails
-ifr_ts_ind_ttest(hsb, female, write, alternative = 'all')
-
      #>                               Group Statistics                                
-#> -----------------------------------------------------------------------------
-#>   Group       Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> -----------------------------------------------------------------------------
-#>     0          91    50.121      1.080       10.305       47.97539   52.26661  
-#>     1         109    54.991      0.779        8.134       53.44689   56.53511  
-#> -----------------------------------------------------------------------------
-#>  combined     200    52.775      0.67         9.479       51.45379   54.09621  
-#> -----------------------------------------------------------------------------
-#>    diff       200    -4.87       1.304        9.231       -7.42623   -2.31377  
-#> -----------------------------------------------------------------------------
-#> 
-#>                         Independent Samples Test                         
-#>                       ------------------------                        
-#> 
-#>                     Ho: mean(0) - mean(1) = diff = 0                     
-#> 
-#>       Ha: diff < 0            Ha: diff ~= 0             Ha: diff > 0       
-#> 
-#>                                   Pooled                                   
-#> ------------------------------------------------------------------------
-#>        t = -3.7341              t = -3.7341              t = -3.7341       
-#>      P < t = 0.0001          P > |t| = 0.0002          P > t = 0.9999      
-#> 
-#>                               Satterthwaite                                
-#> ------------------------------------------------------------------------
-#>        t = -3.6564              t = -3.6564              t = -3.6564       
-#>      P < t = 0.0002          P > |t| = 0.0003          P > t = 0.9998      
-#> 
-#> 
-#>                 Test for Equality of Variances                  
-#> ---------------------------------------------------------------
-#>  Variable      Method     Num DF    Den DF    F Value    P > F  
-#> ---------------------------------------------------------------
-#>   write       Folded F      90       108       1.605     0.0188 
-#> ---------------------------------------------------------------
      + 
      # lower tail
+ifr_ts_ind_ttest(hsb, female, write, alternative = 'less')
+#>                               Group Statistics                                
+#> -----------------------------------------------------------------------------
+#>   Group       Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> -----------------------------------------------------------------------------
+#>     0          91    50.121      1.080       10.305       47.97539   52.26661  
+#>     1         109    54.991      0.779        8.134       53.44689   56.53511  
+#> -----------------------------------------------------------------------------
+#>  combined     200    52.775      0.67         9.479       51.45379   54.09621  
+#> -----------------------------------------------------------------------------
+#>    diff       200    -4.87       1.304        9.231       -7.42623   -2.31377  
+#> -----------------------------------------------------------------------------
+#> 
+#>                       Independent Samples Test                        
+#>                       ------------------------                        
+#> 
+#>                   Ho: mean(0) - mean(1) = diff = 0                    
+#>                             Ha: diff < 0                              
+#> 
+#> ---------------------------------------------------------------------
+#>  Variable        Method        Variances    DF     t Value     P < t  
+#> ---------------------------------------------------------------------
+#>   write          Pooled          Equal      198    -3.7341    0.0001  
+#>   write       Satterthwaite     Unequal     170    -3.6564    0.0002  
+#> ---------------------------------------------------------------------
+#> 
+#>                 Test for Equality of Variances                  
+#> ---------------------------------------------------------------
+#>  Variable      Method     Num DF    Den DF    F Value    P > F  
+#> ---------------------------------------------------------------
+#>   write       Folded F      90       108       1.605     0.0188 
+#> ---------------------------------------------------------------
+
+# upper tail
+ifr_ts_ind_ttest(hsb, female, write, alternative = 'greater')
+#>                               Group Statistics                                
+#> -----------------------------------------------------------------------------
+#>   Group       Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> -----------------------------------------------------------------------------
+#>     0          91    50.121      1.080       10.305       47.97539   52.26661  
+#>     1         109    54.991      0.779        8.134       53.44689   56.53511  
+#> -----------------------------------------------------------------------------
+#>  combined     200    52.775      0.67         9.479       51.45379   54.09621  
+#> -----------------------------------------------------------------------------
+#>    diff       200    -4.87       1.304        9.231       -7.42623   -2.31377  
+#> -----------------------------------------------------------------------------
+#> 
+#>                       Independent Samples Test                        
+#>                       ------------------------                        
+#> 
+#>                   Ho: mean(0) - mean(1) = diff = 0                    
+#>                             Ha: diff > 0                              
+#> 
+#> ---------------------------------------------------------------------
+#>  Variable        Method        Variances    DF     t Value     P > t  
+#> ---------------------------------------------------------------------
+#>   write          Pooled          Equal      198    -3.7341    0.9999  
+#>   write       Satterthwaite     Unequal     170    -3.6564    0.9998  
+#> ---------------------------------------------------------------------
+#> 
+#>                 Test for Equality of Variances                  
+#> ---------------------------------------------------------------
+#>  Variable      Method     Num DF    Den DF    F Value    P > F  
+#> ---------------------------------------------------------------
+#>   write       Folded F      90       108       1.605     0.0188 
+#> ---------------------------------------------------------------
+
+# both tails
+ifr_ts_ind_ttest(hsb, female, write, alternative = 'both')
+#>                               Group Statistics                                
+#> -----------------------------------------------------------------------------
+#>   Group       Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> -----------------------------------------------------------------------------
+#>     0          91    50.121      1.080       10.305       47.97539   52.26661  
+#>     1         109    54.991      0.779        8.134       53.44689   56.53511  
+#> -----------------------------------------------------------------------------
+#>  combined     200    52.775      0.67         9.479       51.45379   54.09621  
+#> -----------------------------------------------------------------------------
+#>    diff       200    -4.87       1.304        9.231       -7.42623   -2.31377  
+#> -----------------------------------------------------------------------------
+#> 
+#>                       Independent Samples Test                        
+#>                       ------------------------                        
+#> 
+#>                   Ho: mean(0) - mean(1) = diff = 0                    
+#>                             Ha: diff ~= 0                             
+#> 
+#> ---------------------------------------------------------------------
+#>  Variable        Method        Variances    DF     t Value    P > |t| 
+#> ---------------------------------------------------------------------
+#>   write          Pooled          Equal      198    -3.7341    0.0002  
+#>   write       Satterthwaite     Unequal     170    -3.6564    0.0003  
+#> ---------------------------------------------------------------------
+#> 
+#>                 Test for Equality of Variances                  
+#> ---------------------------------------------------------------
+#>  Variable      Method     Num DF    Den DF    F Value    P > F  
+#> ---------------------------------------------------------------
+#>   write       Folded F      90       108       1.605     0.0188 
+#> ---------------------------------------------------------------
+
+# all tails
+ifr_ts_ind_ttest(hsb, female, write, alternative = 'all')
+#>                               Group Statistics                                
+#> -----------------------------------------------------------------------------
+#>   Group       Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> -----------------------------------------------------------------------------
+#>     0          91    50.121      1.080       10.305       47.97539   52.26661  
+#>     1         109    54.991      0.779        8.134       53.44689   56.53511  
+#> -----------------------------------------------------------------------------
+#>  combined     200    52.775      0.67         9.479       51.45379   54.09621  
+#> -----------------------------------------------------------------------------
+#>    diff       200    -4.87       1.304        9.231       -7.42623   -2.31377  
+#> -----------------------------------------------------------------------------
+#> 
+#>                         Independent Samples Test                         
+#>                       ------------------------                        
+#> 
+#>                     Ho: mean(0) - mean(1) = diff = 0                     
+#> 
+#>       Ha: diff < 0            Ha: diff ~= 0             Ha: diff > 0       
+#> 
+#>                                   Pooled                                   
+#> ------------------------------------------------------------------------
+#>        t = -3.7341              t = -3.7341              t = -3.7341       
+#>      P < t = 0.0001          P > |t| = 0.0002          P > t = 0.9999      
+#> 
+#>                               Satterthwaite                                
+#> ------------------------------------------------------------------------
+#>        t = -3.6564              t = -3.6564              t = -3.6564       
+#>      P < t = 0.0002          P > |t| = 0.0003          P > t = 0.9998      
+#> 
+#> 
+#>                 Test for Equality of Variances                  
+#> ---------------------------------------------------------------
+#>  Variable      Method     Num DF    Den DF    F Value    P > F  
+#> ---------------------------------------------------------------
+#>   write       Folded F      90       108       1.605     0.0188 
+#> ---------------------------------------------------------------
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -214,113 +220,117 @@

      See a

      t.test

      Examples

      - 
      # lower tail
-ifr_ts_paired_ttest(hsb, read, write, alternative = 'less')
-
      #>                          Paired Samples Statistics                           
-#> ----------------------------------------------------------------------------
-#> Variables    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> ----------------------------------------------------------------------------
-#>    read       200    52.23     0.7249921    10.25294        50.8      53.66   
-#>    write      200    52.775    0.6702372    9.478586       51.45       54.1    
-#> ----------------------------------------------------------------------------
-#>    diff       200    -0.545    0.6283822    8.886666       -1.78       0.69    
-#> ----------------------------------------------------------------------------
-#> 
-#>          Paired Samples Correlations         
-#> -------------------------------------------
-#>   Variables      Obs    Correlation    Sig.
-#>  read & write    200       0.60        0 
-#> -------------------------------------------
-#> 
-#>           Paired Samples Test            
-#>           -------------------            
-#>        Ho: mean(read - write) = 0        
-#>        Ha: mean(read - write) < 0        
-#> 
-#> ----------------------------------------
-#>   Variables         t       df     Sig.  
-#> ----------------------------------------
-#>  read - write    -0.8673    199    0.193 
-#> ----------------------------------------
      
-# upper tail
-ifr_ts_paired_ttest(hsb, read, write, alternative = 'greater')
-
      #>                          Paired Samples Statistics                           
-#> ----------------------------------------------------------------------------
-#> Variables    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> ----------------------------------------------------------------------------
-#>    read       200    52.23     0.7249921    10.25294        50.8      53.66   
-#>    write      200    52.775    0.6702372    9.478586       51.45       54.1    
-#> ----------------------------------------------------------------------------
-#>    diff       200    -0.545    0.6283822    8.886666       -1.78       0.69    
-#> ----------------------------------------------------------------------------
-#> 
-#>          Paired Samples Correlations         
-#> -------------------------------------------
-#>   Variables      Obs    Correlation    Sig.
-#>  read & write    200       0.60        0 
-#> -------------------------------------------
-#> 
-#>           Paired Samples Test            
-#>           -------------------            
-#>        Ho: mean(read - write) = 0        
-#>        Ha: mean(read - write) > 0        
-#> 
-#> ----------------------------------------
-#>   Variables         t       df     Sig.  
-#> ----------------------------------------
-#>  read - write    -0.8673    199    0.807 
-#> ----------------------------------------
      
-# both tails
-ifr_ts_paired_ttest(hsb, read, write, alternative = 'both')
-
      #>                          Paired Samples Statistics                           
-#> ----------------------------------------------------------------------------
-#> Variables    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> ----------------------------------------------------------------------------
-#>    read       200    52.23     0.7249921    10.25294        50.8      53.66   
-#>    write      200    52.775    0.6702372    9.478586       51.45       54.1    
-#> ----------------------------------------------------------------------------
-#>    diff       200    -0.545    0.6283822    8.886666       -1.78       0.69    
-#> ----------------------------------------------------------------------------
-#> 
-#>          Paired Samples Correlations         
-#> -------------------------------------------
-#>   Variables      Obs    Correlation    Sig.
-#>  read & write    200       0.60        0 
-#> -------------------------------------------
-#> 
-#>           Paired Samples Test            
-#>           -------------------            
-#>        Ho: mean(read - write) = 0        
-#>       Ha: mean(read - write) ~= 0        
-#> 
-#> ----------------------------------------
-#>   Variables         t       df     Sig.  
-#> ----------------------------------------
-#>  read - write    -0.8673    199    0.387 
-#> ----------------------------------------
      
-# all tails
-ifr_ts_paired_ttest(hsb, read, write, alternative = 'all')
-
      #>                          Paired Samples Statistics                           
-#> ----------------------------------------------------------------------------
-#> Variables    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
-#> ----------------------------------------------------------------------------
-#>    read       200    52.23     0.7249921    10.25294        50.8      53.66   
-#>    write      200    52.775    0.6702372    9.478586       51.45       54.1    
-#> ----------------------------------------------------------------------------
-#>    diff       200    -0.545    0.6283822    8.886666       -1.78       0.69    
-#> ----------------------------------------------------------------------------
-#> 
-#>          Paired Samples Correlations         
-#> -------------------------------------------
-#>   Variables      Obs    Correlation    Sig.
-#>  read & write    200       0.60        0 
-#> -------------------------------------------
-#> 
-#>                 Ho: mean(read - write) = mean(diff) = 0                  
-#> 
-#>    Ha: mean(diff) < 0      Ha: mean(diff) ~= 0       Ha: mean(diff) > 0    
-#>        t = -0.8673              t = -0.8673              t = -0.8673       
-#>      P < t = 0.193           P > |t| = 0.387           P > t = 0.807
      + 
      # lower tail
+ifr_ts_paired_ttest(hsb, read, write, alternative = 'less')
+#>                          Paired Samples Statistics                           
+#> ----------------------------------------------------------------------------
+#> Variables    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> ----------------------------------------------------------------------------
+#>    read       200    52.23     0.7249921    10.25294        50.8      53.66   
+#>    write      200    52.775    0.6702372    9.478586       51.45       54.1    
+#> ----------------------------------------------------------------------------
+#>    diff       200    -0.545    0.6283822    8.886666       -1.78       0.69    
+#> ----------------------------------------------------------------------------
+#> 
+#>          Paired Samples Correlations         
+#> -------------------------------------------
+#>   Variables      Obs    Correlation    Sig.
+#>  read & write    200       0.60        0 
+#> -------------------------------------------
+#> 
+#>           Paired Samples Test            
+#>           -------------------            
+#>        Ho: mean(read - write) = 0        
+#>        Ha: mean(read - write) < 0        
+#> 
+#> ----------------------------------------
+#>   Variables         t       df     Sig.  
+#> ----------------------------------------
+#>  read - write    -0.8673    199    0.193 
+#> ----------------------------------------
+
+# upper tail
+ifr_ts_paired_ttest(hsb, read, write, alternative = 'greater')
+#>                          Paired Samples Statistics                           
+#> ----------------------------------------------------------------------------
+#> Variables    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> ----------------------------------------------------------------------------
+#>    read       200    52.23     0.7249921    10.25294        50.8      53.66   
+#>    write      200    52.775    0.6702372    9.478586       51.45       54.1    
+#> ----------------------------------------------------------------------------
+#>    diff       200    -0.545    0.6283822    8.886666       -1.78       0.69    
+#> ----------------------------------------------------------------------------
+#> 
+#>          Paired Samples Correlations         
+#> -------------------------------------------
+#>   Variables      Obs    Correlation    Sig.
+#>  read & write    200       0.60        0 
+#> -------------------------------------------
+#> 
+#>           Paired Samples Test            
+#>           -------------------            
+#>        Ho: mean(read - write) = 0        
+#>        Ha: mean(read - write) > 0        
+#> 
+#> ----------------------------------------
+#>   Variables         t       df     Sig.  
+#> ----------------------------------------
+#>  read - write    -0.8673    199    0.807 
+#> ----------------------------------------
+
+# both tails
+ifr_ts_paired_ttest(hsb, read, write, alternative = 'both')
+#>                          Paired Samples Statistics                           
+#> ----------------------------------------------------------------------------
+#> Variables    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> ----------------------------------------------------------------------------
+#>    read       200    52.23     0.7249921    10.25294        50.8      53.66   
+#>    write      200    52.775    0.6702372    9.478586       51.45       54.1    
+#> ----------------------------------------------------------------------------
+#>    diff       200    -0.545    0.6283822    8.886666       -1.78       0.69    
+#> ----------------------------------------------------------------------------
+#> 
+#>          Paired Samples Correlations         
+#> -------------------------------------------
+#>   Variables      Obs    Correlation    Sig.
+#>  read & write    200       0.60        0 
+#> -------------------------------------------
+#> 
+#>           Paired Samples Test            
+#>           -------------------            
+#>        Ho: mean(read - write) = 0        
+#>       Ha: mean(read - write) ~= 0        
+#> 
+#> ----------------------------------------
+#>   Variables         t       df     Sig.  
+#> ----------------------------------------
+#>  read - write    -0.8673    199    0.387 
+#> ----------------------------------------
+
+# all tails
+ifr_ts_paired_ttest(hsb, read, write, alternative = 'all')
+#>                          Paired Samples Statistics                           
+#> ----------------------------------------------------------------------------
+#> Variables    Obs     Mean     Std. Err.    Std. Dev.    [95% Conf. Interval] 
+#> ----------------------------------------------------------------------------
+#>    read       200    52.23     0.7249921    10.25294        50.8      53.66   
+#>    write      200    52.775    0.6702372    9.478586       51.45       54.1    
+#> ----------------------------------------------------------------------------
+#>    diff       200    -0.545    0.6283822    8.886666       -1.78       0.69    
+#> ----------------------------------------------------------------------------
+#> 
+#>          Paired Samples Correlations         
+#> -------------------------------------------
+#>   Variables      Obs    Correlation    Sig.
+#>  read & write    200       0.60        0 
+#> -------------------------------------------
+#> 
+#>                 Ho: mean(read - write) = mean(diff) = 0                  
+#> 
+#>    Ha: mean(diff) < 0      Ha: mean(diff) ~= 0       Ha: mean(diff) > 0    
+#>        t = -0.8673              t = -0.8673              t = -0.8673       
+#>      P < t = 0.193           P > |t| = 0.387           P > t = 0.807       
+
      @@ -109,6 +109,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -191,14 +197,6 @@

      Arg ...

      additional arguments passed to or from other methods

      - - var -

      factor; column in data

      - - - group -

      factor; column in data

      - n1

      sample 1 size

      @@ -215,6 +213,14 @@

      Arg p2

      sample 2 proportion

      + + var +

      factor; column in data

      + + + group +

      factor; column in data

      +

      Value

      @@ -234,7 +240,7 @@

      References

      @@ -246,36 +252,39 @@

      See a

      prop.test

      Examples

      - 
      # using variables
-# lower tail
-ifr_ts_prop_test(treatment, treatment1, treatment2,
-alternative = 'less')
-
      #>        Test Statistics        
-#> -----------------------------
-#> Total Observations        100 
-#> z                       0.403 
-#> Pr(Z < z)               0.656 
-#> 
      
-# using groups
-# lower tail
-ifr_ts_prop_group(treatment2, outcome, female,
-alternative = 'less')
-
      #>        Test Statistics        
-#> -----------------------------
-#> Total Observations        200 
-#> z                       0.351 
-#> Pr(Z < z)               0.637 
-#> 
      
-# using sample size and proportions
-# lower tail
-ifr_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'less')
-
      #>        Test Statistics         
-#> ------------------------------
-#> Total Observations          55 
-#> z                       -1.514 
-#> Pr(Z < z)                0.065 
-#> 
      
-
      + 
      # using variables
+# lower tail
+ifr_ts_prop_test(treatment, treatment1, treatment2,
+alternative = 'less')
+#>        Test Statistics        
+#> -----------------------------
+#> Total Observations        100 
+#> z                       0.403 
+#> Pr(Z < z)               0.656 
+#> 
+
+# using groups
+# lower tail
+ifr_ts_prop_group(treatment2, outcome, female,
+alternative = 'less')
+#>        Test Statistics        
+#> -----------------------------
+#> Total Observations        200 
+#> z                       0.351 
+#> Pr(Z < z)               0.637 
+#> 
+
+# using sample size and proportions
+# lower tail
+ifr_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'less')
+#>        Test Statistics         
+#> ------------------------------
+#> Total Observations          55 
+#> z                       -1.514 
+#> Pr(Z < z)                0.065 
+#> 
+
+
      @@ -108,6 +108,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • @@ -207,55 +213,57 @@

      See a

      var.test

      Examples

      - 
      # using grouping variable
-ifr_ts_var_test(hsb, read, group_var = female, alternative = 'less')
-
      #>                Variance Ratio Test                 
-#> --------------------------------------------------
-#>   Group      Obs    Mean     Std. Err.    Std. Dev. 
-#> --------------------------------------------------
-#>    0        91     52.82       1.1         10.51   
-#>    1        109    51.73      0.96         10.06   
-#> --------------------------------------------------
-#>  combined    200    52.23      0.72         10.25   
-#> --------------------------------------------------
-#> 
-#>            Lower Tail Test           
-#>            ---------------           
-#>          ratio = sd(0) / (1)         
-#>             Ho: ratio = 1            
-#>             Ha: ratio < 1             
-#> 
-#>         Variance Ratio Test          
-#> ------------------------------------
-#>    F       Num DF    Den DF      p    
-#> ------------------------------------
-#>  1.0913      90       108      0.6694 
-#> ------------------------------------
      
-# using two variables
-ifr_ts_var_test(hsb, read, write, alternative = 'less')
-
      #>                Variance Ratio Test                 
-#> --------------------------------------------------
-#>   Group      Obs    Mean     Std. Err.    Std. Dev. 
-#> --------------------------------------------------
-#>   read      200    52.23      0.72         10.25   
-#>  write      200    52.77      0.67         9.48    
-#> --------------------------------------------------
-#>  combined    400    52.5       0.49         9.86    
-#> --------------------------------------------------
-#> 
-#>            Lower Tail Test           
-#>            ---------------           
-#>       ratio = sd(read) / (write)     
-#>             Ho: ratio = 1            
-#>             Ha: ratio < 1             
-#> 
-#>         Variance Ratio Test          
-#> ------------------------------------
-#>    F       Num DF    Den DF      p    
-#> ------------------------------------
-#>  1.1701     199       199      0.8656 
-#> ------------------------------------
      
-
      + 
      # using grouping variable
+ifr_ts_var_test(hsb, read, group_var = female, alternative = 'less')
+#>                Variance Ratio Test                 
+#> --------------------------------------------------
+#>   Group      Obs    Mean     Std. Err.    Std. Dev. 
+#> --------------------------------------------------
+#>    0        91     52.82       1.1         10.51   
+#>    1        109    51.73      0.96         10.06   
+#> --------------------------------------------------
+#>  combined    200    52.23      0.72         10.25   
+#> --------------------------------------------------
+#> 
+#>            Lower Tail Test           
+#>            ---------------           
+#>          ratio = sd(0) / (1)         
+#>             Ho: ratio = 1            
+#>             Ha: ratio < 1             
+#> 
+#>         Variance Ratio Test          
+#> ------------------------------------
+#>    F       Num DF    Den DF      p    
+#> ------------------------------------
+#>  1.0913      90       108      0.6694 
+#> ------------------------------------
+
+# using two variables
+ifr_ts_var_test(hsb, read, write, alternative = 'less')
+#>                Variance Ratio Test                 
+#> --------------------------------------------------
+#>   Group      Obs    Mean     Std. Err.    Std. Dev. 
+#> --------------------------------------------------
+#>   read      200    52.23      0.72         10.25   
+#>  write      200    52.77      0.67         9.48    
+#> --------------------------------------------------
+#>  combined    400    52.5       0.49         9.86    
+#> --------------------------------------------------
+#> 
+#>            Lower Tail Test           
+#>            ---------------           
+#>       ratio = sd(read) / (write)     
+#>             Ho: ratio = 1            
+#>             Ha: ratio < 1             
+#> 
+#>         Variance Ratio Test          
+#> ------------------------------------
+#>    F       Num DF    Den DF      p    
+#> ------------------------------------
+#>  1.1701     199       199      0.8656 
+#> ------------------------------------
+
+
    + +
  • + Blog +
    • +
  • + Online Courses
    • + +
  • + Blog +
    • +
  • + Online Courses
      • diff --git a/docs/reference/treatment.html b/docs/reference/treatment.html index 571b94d..adda5df 100644 --- a/docs/reference/treatment.html +++ b/docs/reference/treatment.html @@ -107,6 +107,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • diff --git a/docs/reference/treatment2.html b/docs/reference/treatment2.html index c107536..1e593b8 100644 --- a/docs/reference/treatment2.html +++ b/docs/reference/treatment2.html @@ -107,6 +107,12 @@ News
    + +
  • + Blog +
    • +
  • + Online Courses
      • diff --git a/docs/sitemap.xml b/docs/sitemap.xml index 8404323..84c31db 100644 --- a/docs/sitemap.xml +++ b/docs/sitemap.xml @@ -10,55 +10,55 @@ https://inferr.rsquaredacademy.com/reference/hsb.html - https://inferr.rsquaredacademy.com/reference/inferr.html + https://inferr.rsquaredacademy.com/reference/ifr_binom_calc.html - https://inferr.rsquaredacademy.com/reference/infer_binom_calc.html + https://inferr.rsquaredacademy.com/reference/ifr_chisq_assoc_test.html - https://inferr.rsquaredacademy.com/reference/infer_chisq_assoc_test.html + https://inferr.rsquaredacademy.com/reference/ifr_chisq_gof_test.html - https://inferr.rsquaredacademy.com/reference/infer_chisq_gof_test.html + https://inferr.rsquaredacademy.com/reference/ifr_cochran_qtest.html - https://inferr.rsquaredacademy.com/reference/infer_cochran_qtest.html + https://inferr.rsquaredacademy.com/reference/ifr_launch_shiny_app.html - https://inferr.rsquaredacademy.com/reference/infer_launch_shiny_app.html + https://inferr.rsquaredacademy.com/reference/ifr_levene_test.html - https://inferr.rsquaredacademy.com/reference/infer_levene_test.html + https://inferr.rsquaredacademy.com/reference/ifr_mcnemar_test.html - https://inferr.rsquaredacademy.com/reference/infer_mcnemar_test.html + https://inferr.rsquaredacademy.com/reference/ifr_oneway_anova.html - https://inferr.rsquaredacademy.com/reference/infer_oneway_anova.html + https://inferr.rsquaredacademy.com/reference/ifr_os_prop_test.html - https://inferr.rsquaredacademy.com/reference/infer_os_prop_test.html + https://inferr.rsquaredacademy.com/reference/ifr_os_t_test.html - https://inferr.rsquaredacademy.com/reference/infer_os_t_test.html + https://inferr.rsquaredacademy.com/reference/ifr_os_var_test.html - https://inferr.rsquaredacademy.com/reference/infer_os_var_test.html + https://inferr.rsquaredacademy.com/reference/ifr_runs_test.html - https://inferr.rsquaredacademy.com/reference/infer_runs_test.html + https://inferr.rsquaredacademy.com/reference/ifr_ts_ind_ttest.html - https://inferr.rsquaredacademy.com/reference/infer_ts_ind_ttest.html + https://inferr.rsquaredacademy.com/reference/ifr_ts_paired_ttest.html - https://inferr.rsquaredacademy.com/reference/infer_ts_paired_ttest.html + https://inferr.rsquaredacademy.com/reference/ifr_ts_prop_test.html - https://inferr.rsquaredacademy.com/reference/infer_ts_prop_test.html + https://inferr.rsquaredacademy.com/reference/ifr_ts_var_test.html - https://inferr.rsquaredacademy.com/reference/infer_ts_var_test.html + https://inferr.rsquaredacademy.com/reference/inferr.html https://inferr.rsquaredacademy.com/reference/treatment.html diff --git a/man/infer_binom_calc.Rd b/man/ifr_binom_calc.Rd similarity index 72% rename from man/infer_binom_calc.Rd rename to man/ifr_binom_calc.Rd index 7b645ea..80b2a36 100644 --- a/man/infer_binom_calc.Rd +++ b/man/ifr_binom_calc.Rd @@ -1,13 +1,13 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-binom-test.R -\name{infer_binom_calc} -\alias{infer_binom_calc} -\alias{infer_binom_test} +\name{ifr_binom_calc} +\alias{ifr_binom_calc} +\alias{ifr_binom_test} \title{Binomial Test} \usage{ -infer_binom_calc(n, success, prob = 0.5, ...) +ifr_binom_calc(n, success, prob = 0.5, ...) -infer_binom_test(data, variable, prob = 0.5) +ifr_binom_test(data, variable, prob = 0.5) } \arguments{ \item{n}{number of observations} @@ -23,8 +23,8 @@ infer_binom_test(data, variable, prob = 0.5) \item{variable}{factor; column in \code{data}} } \value{ -\code{infer_binom_test} returns an object of class \code{"infer_binom_test"}. -An object of class \code{"infer_binom_test"} is a list containing the +\code{ifr_binom_test} returns an object of class \code{"ifr_binom_test"}. +An object of class \code{"ifr_binom_test"} is a list containing the following components: \item{exp_k}{expected number of successes} @@ -42,15 +42,15 @@ categorical dependent variable significantly differs from a hypothesized value. \section{Deprecated Functions}{ \code{binom_calc()} and \code{binom_test()} have been deprecated. Instead use -\code{infer_binom_cal()} and \code{infer_binom_test()}. +\code{ifr_binom_cal()} and \code{ifr_binom_test()}. } \examples{ # using calculator -infer_binom_calc(32, 13, prob = 0.5) +ifr_binom_calc(32, 13, prob = 0.5) # using data set -infer_binom_test(hsb, female, prob = 0.5) +ifr_binom_test(hsb, female, prob = 0.5) } \references{ Hoel, P. G. 1984. Introduction to Mathematical Statistics. diff --git a/man/infer_chisq_assoc_test.Rd b/man/ifr_chisq_assoc_test.Rd similarity index 78% rename from man/infer_chisq_assoc_test.Rd rename to man/ifr_chisq_assoc_test.Rd index c513882..9bf638a 100644 --- a/man/infer_chisq_assoc_test.Rd +++ b/man/ifr_chisq_assoc_test.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-chisq-assoc-test.R -\name{infer_chisq_assoc_test} -\alias{infer_chisq_assoc_test} +\name{ifr_chisq_assoc_test} +\alias{ifr_chisq_assoc_test} \title{Chi Square Test of Association} \usage{ -infer_chisq_assoc_test(data, x, y) +ifr_chisq_assoc_test(data, x, y) } \arguments{ \item{data}{a \code{data.frame} or \code{tibble}} @@ -14,9 +14,9 @@ infer_chisq_assoc_test(data, x, y) \item{y}{factor; column in \code{data}} } \value{ -\code{infer_chisq_assoc_test} returns an object of class -\code{"infer_chisq_assoc_test"}. An object of class -\code{"infer_chisq_assoc_test"} is a list containing the +\code{ifr_chisq_assoc_test} returns an object of class +\code{"ifr_chisq_assoc_test"}. An object of class +\code{"ifr_chisq_assoc_test"} is a list containing the following components: \item{chisquare}{chi square} @@ -40,13 +40,13 @@ relationship between two categorical variables. \section{Deprecated Function}{ \code{chisq_test()} has been deprecated. Instead use -\code{infer_chisq_assoc_test()}. +\code{ifr_chisq_assoc_test()}. } \examples{ -infer_chisq_assoc_test(hsb, female, schtyp) +ifr_chisq_assoc_test(hsb, female, schtyp) -infer_chisq_assoc_test(hsb, female, ses) +ifr_chisq_assoc_test(hsb, female, ses) } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/infer_chisq_gof_test.Rd b/man/ifr_chisq_gof_test.Rd similarity index 77% rename from man/infer_chisq_gof_test.Rd rename to man/ifr_chisq_gof_test.Rd index 8bd5ff0..b8ee9ea 100644 --- a/man/infer_chisq_gof_test.Rd +++ b/man/ifr_chisq_gof_test.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-chisq-gof-test.R -\name{infer_chisq_gof_test} -\alias{infer_chisq_gof_test} +\name{ifr_chisq_gof_test} +\alias{ifr_chisq_gof_test} \title{Chi Square Goodness of Fit Test} \usage{ -infer_chisq_gof_test(data, x, y, correct = FALSE) +ifr_chisq_gof_test(data, x, y, correct = FALSE) } \arguments{ \item{data}{a \code{data.frame} or \code{tibble}} @@ -16,8 +16,8 @@ infer_chisq_gof_test(data, x, y, correct = FALSE) \item{correct}{logical; if TRUE continuity correction is applied} } \value{ -\code{infer_chisq_gof_test} returns an object of class -\code{"infer_chisq_gof_test"}. An object of class \code{"infer_chisq_gof_test"} +\code{ifr_chisq_gof_test} returns an object of class +\code{"ifr_chisq_gof_test"}. An object of class \code{"ifr_chisq_gof_test"} is a list containing the following components: \item{categories}{levels of \code{x}} @@ -39,14 +39,14 @@ differ from hypothesized proportions \section{Deprecated Function}{ \code{chisq_gof()} has been deprecated. Instead use -\code{infer_chisq_gof_test()} +\code{ifr_chisq_gof_test()} } \examples{ -infer_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) +ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) # apply continuity correction -infer_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE) +ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE) } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/infer_cochran_qtest.Rd b/man/ifr_cochran_qtest.Rd similarity index 71% rename from man/infer_cochran_qtest.Rd rename to man/ifr_cochran_qtest.Rd index e527126..19b9b40 100644 --- a/man/infer_cochran_qtest.Rd +++ b/man/ifr_cochran_qtest.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-cochran-q-test.R -\name{infer_cochran_qtest} -\alias{infer_cochran_qtest} +\name{ifr_cochran_qtest} +\alias{ifr_cochran_qtest} \title{Cochran Q Test} \usage{ -infer_cochran_qtest(data, ...) +ifr_cochran_qtest(data, ...) } \arguments{ \item{data}{a \code{data.frame} or \code{tibble}} @@ -12,8 +12,8 @@ infer_cochran_qtest(data, ...) \item{...}{columns in \code{data}} } \value{ -\code{infer_cochran_qtest} returns an object of class -\code{"infer_cochran_qtest"}. An object of class \code{"infer_cochran_qtest"} +\code{ifr_cochran_qtest} returns an object of class +\code{"ifr_cochran_qtest"}. An object of class \code{"ifr_cochran_qtest"} is a list containing the following components: \item{df}{degrees of freedom} @@ -28,11 +28,11 @@ equal in the same population. \section{Deprecated Function}{ \code{cochran_test()} has been deprecated. Instead use -\code{infer_cochran_qtest()}. +\code{ifr_cochran_qtest()}. } \examples{ -infer_cochran_qtest(exam, exam1, exam2, exam3) +ifr_cochran_qtest(exam, exam1, exam2, exam3) } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/infer_launch_shiny_app.Rd b/man/ifr_launch_shiny_app.Rd similarity index 63% rename from man/infer_launch_shiny_app.Rd rename to man/ifr_launch_shiny_app.Rd index 7f944c6..bf29059 100644 --- a/man/infer_launch_shiny_app.Rd +++ b/man/ifr_launch_shiny_app.Rd @@ -1,16 +1,16 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-launch-shiny-app.R -\name{infer_launch_shiny_app} -\alias{infer_launch_shiny_app} +\name{ifr_launch_shiny_app} +\alias{ifr_launch_shiny_app} \title{Launch Shiny App} \usage{ -infer_launch_shiny_app() +ifr_launch_shiny_app() } \description{ Launches shiny app } \examples{ \dontrun{ -infer_launch_shiny_app() +ifr_launch_shiny_app() } } diff --git a/man/infer_levene_test.Rd b/man/ifr_levene_test.Rd similarity index 77% rename from man/infer_levene_test.Rd rename to man/ifr_levene_test.Rd index 5dde4ac..d5d5ec5 100644 --- a/man/infer_levene_test.Rd +++ b/man/ifr_levene_test.Rd @@ -1,13 +1,13 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-levene-test.R -\name{infer_levene_test} -\alias{infer_levene_test} -\alias{infer_levene_test.default} +\name{ifr_levene_test} +\alias{ifr_levene_test} +\alias{ifr_levene_test.default} \title{Levene's test for equality of variances} \usage{ -infer_levene_test(data, ...) +ifr_levene_test(data, ...) -\method{infer_levene_test}{default}(data, ..., group_var = NULL, trim_mean = 0.1) +\method{ifr_levene_test}{default}(data, ..., group_var = NULL, trim_mean = 0.1) } \arguments{ \item{data}{a \code{data.frame} or \code{tibble}} @@ -19,8 +19,8 @@ infer_levene_test(data, ...) \item{trim_mean}{trimmed mean} } \value{ -\code{infer_levene_test} returns an object of class \code{"infer_levene_test"}. -An object of class \code{"infer_levene_test"} is a list containing the +\code{ifr_levene_test} returns an object of class \code{"ifr_levene_test"}. +An object of class \code{"ifr_levene_test"} is a list containing the following components: \item{bf}{Brown and Forsythe f statistic} @@ -41,7 +41,7 @@ following components: \item{type}{alternative hypothesis} } \description{ -\code{infer_levene_test} reports Levene's robust test statistic +\code{ifr_levene_test} reports Levene's robust test statistic for the equality of variances and the two statistics proposed by Brown and Forsythe that replace the mean in Levene's formula with alternative location estimators. The first alternative @@ -50,15 +50,15 @@ the mean with the 10% trimmed mean. } \section{Deprecated Function}{ -\code{levene_test()} has been deprecated. Instead use \code{infer_levene_test()}. +\code{levene_test()} has been deprecated. Instead use \code{ifr_levene_test()}. } \examples{ # using grouping variable -infer_levene_test(hsb, read, group_var = race) +ifr_levene_test(hsb, read, group_var = race) # using variables -infer_levene_test(hsb, read, write, socst) +ifr_levene_test(hsb, read, write, socst) } \references{ diff --git a/man/infer_mcnemar_test.Rd b/man/ifr_mcnemar_test.Rd similarity index 78% rename from man/infer_mcnemar_test.Rd rename to man/ifr_mcnemar_test.Rd index c83e234..d26ef25 100644 --- a/man/infer_mcnemar_test.Rd +++ b/man/ifr_mcnemar_test.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-mcnemar-test.R -\name{infer_mcnemar_test} -\alias{infer_mcnemar_test} +\name{ifr_mcnemar_test} +\alias{ifr_mcnemar_test} \title{McNemar Test} \usage{ -infer_mcnemar_test(data, x = NULL, y = NULL) +ifr_mcnemar_test(data, x = NULL, y = NULL) } \arguments{ \item{data}{a \code{data.frame} or \code{tibble}} @@ -14,8 +14,8 @@ infer_mcnemar_test(data, x = NULL, y = NULL) \item{y}{factor; column in \code{data}} } \value{ -\code{infer_mcnemar_test} returns an object of class \code{"infer_mcnemar_test"}. -An object of class \code{"infer_mcnemar_test"} is a list containing the +\code{ifr_mcnemar_test} returns an object of class \code{"ifr_mcnemar_test"}. +An object of class \code{"ifr_mcnemar_test"} is a list containing the following components: \item{statistic}{chi square statistic} @@ -41,7 +41,7 @@ equal in the same population. \section{Deprecated Function}{ \code{mcnermar_test()} has been deprecated. Instead use -\code{infer_mcnemar_test()}. +\code{ifr_mcnemar_test()}. } \examples{ @@ -49,15 +49,15 @@ equal in the same population. hb <- hsb hb$himath <- ifelse(hsb$math > 60, 1, 0) hb$hiread <- ifelse(hsb$read > 60, 1, 0) -infer_mcnemar_test(hb, himath, hiread) +ifr_mcnemar_test(hb, himath, hiread) # test if the proportion of students in himath and hiread group is same himath <- ifelse(hsb$math > 60, 1, 0) hiread <- ifelse(hsb$read > 60, 1, 0) -infer_mcnemar_test(table(himath, hiread)) +ifr_mcnemar_test(table(himath, hiread)) # using matrix -infer_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) +ifr_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/infer_oneway_anova.Rd b/man/ifr_oneway_anova.Rd similarity index 78% rename from man/infer_oneway_anova.Rd rename to man/ifr_oneway_anova.Rd index 8fa304e..8d7e881 100644 --- a/man/infer_oneway_anova.Rd +++ b/man/ifr_oneway_anova.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-anova.R -\name{infer_oneway_anova} -\alias{infer_oneway_anova} +\name{ifr_oneway_anova} +\alias{ifr_oneway_anova} \title{One Way ANOVA} \usage{ -infer_oneway_anova(data, x, y, ...) +ifr_oneway_anova(data, x, y, ...) } \arguments{ \item{data}{a \code{data.frame} or a \code{tibble}} @@ -16,8 +16,8 @@ infer_oneway_anova(data, x, y, ...) \item{...}{additional arguments passed to or from other methods} } \value{ -\code{infer_oneway_anova} returns an object of class \code{"infer_oneway_anova"}. -An object of class \code{"infer_oneway_anova"} is a list containing the +\code{ifr_oneway_anova} returns an object of class \code{"ifr_oneway_anova"}. +An object of class \code{"ifr_oneway_anova"} is a list containing the following components: \item{adjusted_r2}{adjusted r squared value} @@ -40,8 +40,8 @@ following components: One way analysis of variance } \examples{ -infer_oneway_anova(mtcars, mpg, cyl) -infer_oneway_anova(hsb, write, prog) +ifr_oneway_anova(mtcars, mpg, cyl) +ifr_oneway_anova(hsb, write, prog) } \references{ Kutner, M. H., Nachtsheim, C., Neter, J., & Li, W. (2005). diff --git a/man/infer_os_prop_test.Rd b/man/ifr_os_prop_test.Rd similarity index 73% rename from man/infer_os_prop_test.Rd rename to man/ifr_os_prop_test.Rd index f0f3551..1953a21 100644 --- a/man/infer_os_prop_test.Rd +++ b/man/ifr_os_prop_test.Rd @@ -1,11 +1,11 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-os-prop-test.R -\name{infer_os_prop_test} -\alias{infer_os_prop_test} -\alias{infer_os_prop_test.default} +\name{ifr_os_prop_test} +\alias{ifr_os_prop_test} +\alias{ifr_os_prop_test.default} \title{One Sample Test of Proportion} \usage{ -infer_os_prop_test( +ifr_os_prop_test( data, variable = NULL, prob = 0.5, @@ -13,7 +13,7 @@ infer_os_prop_test( alternative = c("both", "less", "greater", "all") ) -\method{infer_os_prop_test}{default}( +\method{ifr_os_prop_test}{default}( data, variable = NULL, prob = 0.5, @@ -35,8 +35,8 @@ must be one of "both" (default), "greater", "less" or "all". You can specify just the initial letter.} } \value{ -\code{infer_os_prop_test} returns an object of class \code{"infer_os_prop_test"}. -An object of class \code{"infer_os_prop_test"} is a list containing the +\code{ifr_os_prop_test} returns an object of class \code{"ifr_os_prop_test"}. +An object of class \code{"ifr_os_prop_test"} is a list containing the following components: \item{n}{number of observations} @@ -51,20 +51,20 @@ following components: \item{std}{standardized resiudals} } \description{ -\code{infer_os_prop_test} compares proportion in one group to a +\code{ifr_os_prop_test} compares proportion in one group to a specified population proportion. } \section{Deprecated Function}{ -\code{prop_test()} has been deprecated. Instead use \code{infer_os_prop_test()}. +\code{prop_test()} has been deprecated. Instead use \code{ifr_os_prop_test()}. } \examples{ # use as a calculator -infer_os_prop_test(200, prob = 0.5, phat = 0.3) +ifr_os_prop_test(200, prob = 0.5, phat = 0.3) # using data set -infer_os_prop_test(hsb, female, prob = 0.5) +ifr_os_prop_test(hsb, female, prob = 0.5) } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/infer_os_t_test.Rd b/man/ifr_os_t_test.Rd similarity index 74% rename from man/infer_os_t_test.Rd rename to man/ifr_os_t_test.Rd index 2c83ee1..a417720 100644 --- a/man/infer_os_t_test.Rd +++ b/man/ifr_os_t_test.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-os-t-test.R -\name{infer_os_t_test} -\alias{infer_os_t_test} +\name{ifr_os_t_test} +\alias{ifr_os_t_test} \title{One Sample t Test} \usage{ -infer_os_t_test( +ifr_os_t_test( data, x, mu = 0, @@ -29,8 +29,8 @@ initial letter} \item{...}{additional arguments passed to or from other methods} } \value{ -\code{infer_os_t_test} returns an object of class \code{"infer_os_t_test"}. -An object of class \code{"infer_os_t_test"} is a list containing the +\code{ifr_os_t_test} returns an object of class \code{"ifr_os_t_test"}. +An object of class \code{"ifr_os_t_test"} is a list containing the following components: \item{mu}{a number indicating the true value of the mean} @@ -52,26 +52,26 @@ following components: \item{var_name}{name of \code{x}} } \description{ -\code{infer_os_t_test} performs t tests on the equality of means. It tests the +\code{ifr_os_t_test} performs t tests on the equality of means. It tests the hypothesis that a sample has a mean equal to a hypothesized value. } \section{Deprecated Function}{ -\code{ttest()} has been deprecated. Instead use \code{infer_os_t_test()}. +\code{ttest()} has been deprecated. Instead use \code{ifr_os_t_test()}. } \examples{ # lower tail -infer_os_t_test(hsb, write, mu = 50, alternative = 'less') +ifr_os_t_test(hsb, write, mu = 50, alternative = 'less') # upper tail -infer_os_t_test(hsb, write, mu = 50, alternative = 'greater') +ifr_os_t_test(hsb, write, mu = 50, alternative = 'greater') # both tails -infer_os_t_test(hsb, write, mu = 50, alternative = 'both') +ifr_os_t_test(hsb, write, mu = 50, alternative = 'both') # all tails -infer_os_t_test(hsb, write, mu = 50, alternative = 'all') +ifr_os_t_test(hsb, write, mu = 50, alternative = 'all') } \references{ diff --git a/man/infer_os_var_test.Rd b/man/ifr_os_var_test.Rd similarity index 74% rename from man/infer_os_var_test.Rd rename to man/ifr_os_var_test.Rd index b9df360..102cb81 100644 --- a/man/infer_os_var_test.Rd +++ b/man/ifr_os_var_test.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-os-var-test.R -\name{infer_os_var_test} -\alias{infer_os_var_test} +\name{ifr_os_var_test} +\alias{ifr_os_var_test} \title{One Sample Variance Comparison Test} \usage{ -infer_os_var_test( +ifr_os_var_test( data, x, sd, @@ -29,8 +29,8 @@ just the initial letter} \item{...}{additional arguments passed to or from other methods} } \value{ -\code{infer_os_var_test} returns an object of class \code{"infer_os_var_test"}. -An object of class \code{"infer_os_var_test"} is a list containing the +\code{ifr_os_var_test} returns an object of class \code{"ifr_os_var_test"}. +An object of class \code{"ifr_os_var_test"} is a list containing the following components: \item{n}{number of observations} @@ -50,27 +50,27 @@ following components: \item{type}{alternative hypothesis} } \description{ -\code{infer_os_var_test} performs tests on the equality of standard +\code{ifr_os_var_test} performs tests on the equality of standard deviations (variances).It tests that the standard deviation of a sample is equal to a hypothesized value. } \section{Deprecated Function}{ -\code{os_vartest()} has been deprecated. Instead use \code{infer_os_var_test()}. +\code{os_vartest()} has been deprecated. Instead use \code{ifr_os_var_test()}. } \examples{ # lower tail -infer_os_var_test(mtcars, mpg, 5, alternative = 'less') +ifr_os_var_test(mtcars, mpg, 5, alternative = 'less') # upper tail -infer_os_var_test(mtcars, mpg, 5, alternative = 'greater') +ifr_os_var_test(mtcars, mpg, 5, alternative = 'greater') # both tails -infer_os_var_test(mtcars, mpg, 5, alternative = 'both') +ifr_os_var_test(mtcars, mpg, 5, alternative = 'both') # all tails -infer_os_var_test(mtcars, mpg, 5, alternative = 'all') +ifr_os_var_test(mtcars, mpg, 5, alternative = 'all') } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/infer_runs_test.Rd b/man/ifr_runs_test.Rd similarity index 80% rename from man/infer_runs_test.Rd rename to man/ifr_runs_test.Rd index d94a164..f20ce0c 100644 --- a/man/infer_runs_test.Rd +++ b/man/ifr_runs_test.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-runs-test.R -\name{infer_runs_test} -\alias{infer_runs_test} +\name{ifr_runs_test} +\alias{ifr_runs_test} \title{Test for Random Order} \usage{ -infer_runs_test( +ifr_runs_test( data, x, drop = FALSE, @@ -29,8 +29,8 @@ from \code{x}} is coded as a binary.} } \value{ -\code{infer_runs_test} returns an object of class \code{"infer_runs_test"}. -An object of class \code{"infer_runs_test"} is a list containing the +\code{ifr_runs_test} returns an object of class \code{"ifr_runs_test"}. +An object of class \code{"ifr_runs_test"} is a list containing the following components: \item{n}{number of observations} @@ -52,19 +52,19 @@ correlation; a large number indicates negative serial correlation. } \section{Deprecated Function}{ -\code{runs_test()} has been deprecated. Instead use \code{infer_runs_test()}. +\code{runs_test()} has been deprecated. Instead use \code{ifr_runs_test()}. } \examples{ -infer_runs_test(hsb, read) +ifr_runs_test(hsb, read) -infer_runs_test(hsb, read, drop = TRUE) +ifr_runs_test(hsb, read, drop = TRUE) -infer_runs_test(hsb, read, split = TRUE) +ifr_runs_test(hsb, read, split = TRUE) -infer_runs_test(hsb, read, mean = TRUE) +ifr_runs_test(hsb, read, mean = TRUE) -infer_runs_test(hsb, read, threshold = 0) +ifr_runs_test(hsb, read, threshold = 0) } \references{ diff --git a/man/infer_ts_ind_ttest.Rd b/man/ifr_ts_ind_ttest.Rd similarity index 81% rename from man/infer_ts_ind_ttest.Rd rename to man/ifr_ts_ind_ttest.Rd index 0701571..ba75051 100644 --- a/man/infer_ts_ind_ttest.Rd +++ b/man/ifr_ts_ind_ttest.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-ts-ind-ttest.R -\name{infer_ts_ind_ttest} -\alias{infer_ts_ind_ttest} +\name{ifr_ts_ind_ttest} +\alias{ifr_ts_ind_ttest} \title{Two Independent Sample t Test} \usage{ -infer_ts_ind_ttest( +ifr_ts_ind_ttest( data, x, y, @@ -29,8 +29,8 @@ just the initial letter} \item{...}{additional arguments passed to or from other methods} } \value{ -\code{infer_ts_ind_ttest} returns an object of class \code{"infer_ts_ind_ttest"}. -An object of class \code{"infer_ts_ind_ttest"} is a list containing the +\code{ifr_ts_ind_ttest} returns an object of class \code{"ifr_ts_ind_ttest"}. +An object of class \code{"ifr_ts_ind_ttest"} is a list containing the following components: \item{levels}{levels of \code{x}} @@ -66,26 +66,26 @@ confidence limit of mean of \code{y}} \item{alternative}{alternative hypothesis} } \description{ -\code{infer_ts_ind_ttest} compares the means of two independent groups in order to determine whether +\code{ifr_ts_ind_ttest} compares the means of two independent groups in order to determine whether there is statistical evidence that the associated population means are significantly different. } \section{Deprecated Function}{ -\code{ind_ttest()} has been deprecated. Instead use \code{infer_ts_ind_ttest()}. +\code{ind_ttest()} has been deprecated. Instead use \code{ifr_ts_ind_ttest()}. } \examples{ # lower tail -infer_ts_ind_ttest(hsb, female, write, alternative = 'less') +ifr_ts_ind_ttest(hsb, female, write, alternative = 'less') # upper tail -infer_ts_ind_ttest(hsb, female, write, alternative = 'greater') +ifr_ts_ind_ttest(hsb, female, write, alternative = 'greater') # both tails -infer_ts_ind_ttest(hsb, female, write, alternative = 'both') +ifr_ts_ind_ttest(hsb, female, write, alternative = 'both') # all tails -infer_ts_ind_ttest(hsb, female, write, alternative = 'all') +ifr_ts_ind_ttest(hsb, female, write, alternative = 'all') } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/infer_ts_paired_ttest.Rd b/man/ifr_ts_paired_ttest.Rd similarity index 75% rename from man/infer_ts_paired_ttest.Rd rename to man/ifr_ts_paired_ttest.Rd index a6d6c9d..74218e3 100644 --- a/man/infer_ts_paired_ttest.Rd +++ b/man/ifr_ts_paired_ttest.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-ts-paired-ttest.R -\name{infer_ts_paired_ttest} -\alias{infer_ts_paired_ttest} +\name{ifr_ts_paired_ttest} +\alias{ifr_ts_paired_ttest} \title{Paired t test} \usage{ -infer_ts_paired_ttest( +ifr_ts_paired_ttest( data, x, y, @@ -26,8 +26,8 @@ one of "both" (default), "greater", "less" or "all". You can specify just the initial letter.} } \value{ -\code{infer_ts_paired_ttest} returns an object of class \code{"infer_ts_paired_ttest"}. -An object of class \code{"infer_ts_paired_ttest"} is a list containing the +\code{ifr_ts_paired_ttest} returns an object of class \code{"ifr_ts_paired_ttest"}. +An object of class \code{"ifr_ts_paired_ttest"} is a list containing the following components: \item{Obs}{number of observations} @@ -50,27 +50,27 @@ and \code{y}} \item{xy}{string used in printing results of the test} } \description{ -\code{infer_ts_paired_ttest} tests that two samples have the +\code{ifr_ts_paired_ttest} tests that two samples have the same mean, assuming paired data. } \section{Deprecated Function}{ \code{paired_ttest()} has been deprecated. Instead use -\code{infer_ts_paired_ttest()}. +\code{ifr_ts_paired_ttest()}. } \examples{ # lower tail -infer_ts_paired_ttest(hsb, read, write, alternative = 'less') +ifr_ts_paired_ttest(hsb, read, write, alternative = 'less') # upper tail -infer_ts_paired_ttest(hsb, read, write, alternative = 'greater') +ifr_ts_paired_ttest(hsb, read, write, alternative = 'greater') # both tails -infer_ts_paired_ttest(hsb, read, write, alternative = 'both') +ifr_ts_paired_ttest(hsb, read, write, alternative = 'both') # all tails -infer_ts_paired_ttest(hsb, read, write, alternative = 'all') +ifr_ts_paired_ttest(hsb, read, write, alternative = 'all') } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/infer_ts_prop_test.Rd b/man/ifr_ts_prop_test.Rd similarity index 72% rename from man/infer_ts_prop_test.Rd rename to man/ifr_ts_prop_test.Rd index 446dc45..69798b3 100644 --- a/man/infer_ts_prop_test.Rd +++ b/man/ifr_ts_prop_test.Rd @@ -1,12 +1,12 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-ts-prop-test.R -\name{infer_ts_prop_test} -\alias{infer_ts_prop_test} -\alias{infer_ts_prop_calc} -\alias{infer_ts_prop_group} +\name{ifr_ts_prop_test} +\alias{ifr_ts_prop_test} +\alias{ifr_ts_prop_calc} +\alias{ifr_ts_prop_group} \title{Two Sample Test of Proportion} \usage{ -infer_ts_prop_test( +ifr_ts_prop_test( data, var1, var2, @@ -14,14 +14,14 @@ infer_ts_prop_test( ... ) -infer_ts_prop_group( +ifr_ts_prop_group( data, var, group, alternative = c("both", "less", "greater", "all") ) -infer_ts_prop_calc( +ifr_ts_prop_calc( n1, n2, p1, @@ -56,8 +56,8 @@ just the initial letter} \item{group}{factor; column in \code{data}} } \value{ -an object of class \code{"infer_ts_prop_test"}. -An object of class \code{"infer_ts_prop_test"} is a list containing the +an object of class \code{"ifr_ts_prop_test"}. +An object of class \code{"ifr_ts_prop_test"} is a list containing the following components: \item{n1}{sample 1 size} @@ -75,25 +75,25 @@ within two independent groups or two samples have the same proportion. } \section{Deprecated Functions}{ -\code{infer_ts_prop_test()}, \code{infer_ts_prop_grp()} and \code{infer_ts_prop_calc()} have -been deprecated. Instead use \code{infer_ts_prop_test()}, -\code{infer_ts_prop_group()} and \code{infer_ts_prop_calc()}. +\code{ifr_ts_prop_test()}, \code{ifr_ts_prop_grp()} and \code{ifr_ts_prop_calc()} have +been deprecated. Instead use \code{ifr_ts_prop_test()}, +\code{ifr_ts_prop_group()} and \code{ifr_ts_prop_calc()}. } \examples{ # using variables # lower tail -infer_ts_prop_test(treatment, treatment1, treatment2, +ifr_ts_prop_test(treatment, treatment1, treatment2, alternative = 'less') # using groups # lower tail -infer_ts_prop_group(treatment2, outcome, female, +ifr_ts_prop_group(treatment2, outcome, female, alternative = 'less') # using sample size and proportions # lower tail -infer_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'less') +ifr_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'less') } \references{ diff --git a/man/infer_ts_var_test.Rd b/man/ifr_ts_var_test.Rd similarity index 77% rename from man/infer_ts_var_test.Rd rename to man/ifr_ts_var_test.Rd index 8217e6a..deab092 100644 --- a/man/infer_ts_var_test.Rd +++ b/man/ifr_ts_var_test.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/ifr-ts-var-test.R -\name{infer_ts_var_test} -\alias{infer_ts_var_test} +\name{ifr_ts_var_test} +\alias{ifr_ts_var_test} \title{Two Sample Variance Comparison Test} \usage{ -infer_ts_var_test( +ifr_ts_var_test( data, ..., group_var = NULL, @@ -23,8 +23,8 @@ must be one of "both" (default), "greater", "less" or "all". You can specify just the initial letter.} } \value{ -\code{infer_ts_var_test} returns an object of class \code{"infer_ts_var_test"}. -An object of class \code{"infer_ts_var_test"} is a list containing the +\code{ifr_ts_var_test} returns an object of class \code{"ifr_ts_var_test"}. +An object of class \code{"ifr_ts_var_test"} is a list containing the following components: \item{f}{f statistic} @@ -46,20 +46,20 @@ following components: \item{type}{alternative hypothesis} } \description{ -\code{infer_ts_var_test} performs tests on the equality of standard +\code{ifr_ts_var_test} performs tests on the equality of standard deviations (variances). } \section{Deprecated Function}{ -\code{var_test()} has been deprecated. Instead use \code{infer_ts_var_test()}. +\code{var_test()} has been deprecated. Instead use \code{ifr_ts_var_test()}. } \examples{ # using grouping variable -infer_ts_var_test(hsb, read, group_var = female, alternative = 'less') +ifr_ts_var_test(hsb, read, group_var = female, alternative = 'less') # using two variables -infer_ts_var_test(hsb, read, write, alternative = 'less') +ifr_ts_var_test(hsb, read, write, alternative = 'less') } \references{ diff --git a/tests/testthat/test-anova.R b/tests/testthat/test-anova.R index ad44ccd..d1ec31e 100644 --- a/tests/testthat/test-anova.R +++ b/tests/testthat/test-anova.R @@ -1,7 +1,7 @@ context("anova") -test_that("output from infer_oneway_anova matches the expected output", { - k <- infer_oneway_anova(mtcars, mpg, cyl) +test_that("output from ifr_oneway_anova matches the expected output", { + k <- ifr_oneway_anova(mtcars, mpg, cyl) expect_equal(k$ss_between, 824.785) expect_equal(k$ss_within, 301.263) expect_equal(k$ss_total, 1126.048) @@ -41,5 +41,5 @@ Total 1126.048 31 Number of obs = 32 R-squared = 0.7325 Root MSE = 3.2231 Adj R-squared = 0.714") - expect_equivalent(print(infer_oneway_anova(mtcars, mpg, cyl)), x) + expect_equivalent(print(ifr_oneway_anova(mtcars, mpg, cyl)), x) }) diff --git a/tests/testthat/test-binom.R b/tests/testthat/test-binom.R index 8fe56ab..5a357f0 100644 --- a/tests/testthat/test-binom.R +++ b/tests/testthat/test-binom.R @@ -1,7 +1,7 @@ context("binomtest") -test_that("output from infer_binom_calc matches the expected output", { - k <- infer_binom_calc(32, 8) +test_that("output from ifr_binom_calc matches the expected output", { + k <- ifr_binom_calc(32, 8) expect_equal(k$n, 32) expect_equal(k$k, 8) expect_equal(k$exp_k, 16) @@ -11,7 +11,7 @@ test_that("output from infer_binom_calc matches the expected output", { expect_equal(k$pval_upper, 0.998949) - k <- infer_binom_calc(32, 20) + k <- ifr_binom_calc(32, 20) expect_equal(k$n, 32) expect_equal(k$k, 20) expect_equal(k$exp_k, 16) @@ -21,12 +21,12 @@ test_that("output from infer_binom_calc matches the expected output", { expect_equal(k$pval_upper, 0.107664) }) -test_that("infer_binom_calc throws the appropriate error", { - expect_error(infer_binom_calc("32", 20), "n must be an integer") - expect_error(infer_binom_calc(32, "20"), "success must be an integer") - expect_error(infer_binom_calc(32, 20, "0.5"), "prob must be numeric") - expect_error(infer_binom_calc(32, 20, 1.5), "prob must be between 0 and 1") - expect_error(infer_binom_calc(32, 20, -1.5), "prob must be between 0 and 1") +test_that("ifr_binom_calc throws the appropriate error", { + expect_error(ifr_binom_calc("32", 20), "n must be an integer") + expect_error(ifr_binom_calc(32, "20"), "success must be an integer") + expect_error(ifr_binom_calc(32, 20, "0.5"), "prob must be numeric") + expect_error(ifr_binom_calc(32, 20, 1.5), "prob must be between 0 and 1") + expect_error(ifr_binom_calc(32, 20, -1.5), "prob must be between 0 and 1") }) @@ -34,8 +34,8 @@ mt <- mtcars mt$vs <- as.factor(mt$vs) mt$am <- as.factor(mt$am) -test_that("output from infer_binom_test matches the expected output", { - k <- infer_binom_test(mt, vs) +test_that("output from ifr_binom_test matches the expected output", { + k <- ifr_binom_test(mt, vs) expect_equal(k$n, 32) expect_equal(k$k, 14) expect_equal(k$exp_k, 16) @@ -45,15 +45,15 @@ test_that("output from infer_binom_test matches the expected output", { expect_equal(k$pval_upper, 0.811457) }) -test_that("infer_binom_test throws the appropriate error", { - expect_error(infer_binom_test(mtcars, mpg), "variable must be of type factor") - expect_error(infer_binom_test(mt, am, "0.5"), "prob must be numeric") - expect_error(infer_binom_test(mt, am, 1.5), "prob must be between 0 and 1") - expect_error(infer_binom_test(mt, am, -1.5), "prob must be between 0 and 1") +test_that("ifr_binom_test throws the appropriate error", { + expect_error(ifr_binom_test(mtcars, mpg), "variable must be of type factor") + expect_error(ifr_binom_test(mt, am, "0.5"), "prob must be numeric") + expect_error(ifr_binom_test(mt, am, 1.5), "prob must be between 0 and 1") + expect_error(ifr_binom_test(mt, am, -1.5), "prob must be between 0 and 1") }) -test_that("output from infer_binom_calc is as expected when k < exp_k", { +test_that("output from ifr_binom_calc is as expected when k < exp_k", { x <- cat(" Binomial Test -------------------------------------- Group N Obs. Prop Exp. Prop @@ -71,10 +71,10 @@ test_that("output from infer_binom_calc is as expected when k < exp_k", { Upper Pr(k >= 8) 0.998949 ------------------------------------------") - expect_equivalent(print(infer_binom_calc(32, 8)), x) + expect_equivalent(print(ifr_binom_calc(32, 8)), x) }) -test_that("output from infer_binom_calc is as expected when k > exp_k", { +test_that("output from ifr_binom_calc is as expected when k > exp_k", { x <- cat(" Binomial Test -------------------------------------- Group N Obs. Prop Exp. Prop @@ -92,5 +92,5 @@ test_that("output from infer_binom_calc is as expected when k > exp_k", { Upper Pr(k >= 20) 0.107664 --------------------------------------------") - expect_equivalent(print(infer_binom_calc(32, 20)), x) + expect_equivalent(print(ifr_binom_calc(32, 20)), x) }) diff --git a/tests/testthat/test-chisq.R b/tests/testthat/test-chisq.R index a78bf9f..4241ec8 100644 --- a/tests/testthat/test-chisq.R +++ b/tests/testthat/test-chisq.R @@ -1,7 +1,7 @@ context("chi2-contingency") -test_that("ouput from infer_chisq_assoc_test matches the expected result", { - k <- infer_chisq_assoc_test(hsb, female, schtyp) +test_that("ouput from ifr_chisq_assoc_test matches the expected result", { + k <- ifr_chisq_assoc_test(hsb, female, schtyp) expect_equal(k$df, 1) expect_equal(k$chisquare, 0.047) expect_equal(k$chisquare_lr, 0.0471) @@ -17,8 +17,8 @@ test_that("ouput from infer_chisq_assoc_test matches the expected result", { expect_equal(k$ds, 4) }) -test_that("ouput from infer_chisq_assoc_test matches the expected result", { - k <- infer_chisq_assoc_test(hsb, female, ses) +test_that("ouput from ifr_chisq_assoc_test matches the expected result", { + k <- ifr_chisq_assoc_test(hsb, female, ses) expect_equal(k$df, 2) expect_equal(k$chisquare, 4.5765) expect_equal(k$chisquare_lr, 4.6789) @@ -30,12 +30,12 @@ test_that("ouput from infer_chisq_assoc_test matches the expected result", { expect_equal(k$ds, 6) }) -test_that("infer_chisq_assoc_test throws the appropriate error", { - expect_error(infer_chisq_assoc_test(hsb, female, read), "y must be a categorical variable") - expect_error(infer_chisq_assoc_test(hsb, read, ses), "x must be a categorical variable") +test_that("ifr_chisq_assoc_test throws the appropriate error", { + expect_error(ifr_chisq_assoc_test(hsb, female, read), "y must be a categorical variable") + expect_error(ifr_chisq_assoc_test(hsb, read, ses), "x must be a categorical variable") }) -test_that("ouput from infer_chisq_assoc_test is as expected", { +test_that("ouput from ifr_chisq_assoc_test is as expected", { x <- cat(" Chi Square Statistics Statistics DF Value Prob @@ -49,10 +49,10 @@ Contingency Coefficient 0.0153 Cramer's V 0.0153 ----------------------------------------------------") - expect_equivalent(print(infer_chisq_assoc_test(hsb, female, schtyp)), x) + expect_equivalent(print(ifr_chisq_assoc_test(hsb, female, schtyp)), x) }) -test_that("ouput from infer_chisq_assoc_test 2 is as expected", { +test_that("ouput from ifr_chisq_assoc_test 2 is as expected", { x <- cat(" Chi Square Statistics Statistics DF Value Prob @@ -64,5 +64,5 @@ Contingency Coefficient 0.1496 Cramer's V 0.1513 ----------------------------------------------------") - expect_equivalent(print(infer_chisq_assoc_test(hsb, female, ses)), x) + expect_equivalent(print(ifr_chisq_assoc_test(hsb, female, ses)), x) }) diff --git a/tests/testthat/test-chisqgof.R b/tests/testthat/test-chisqgof.R index f6a20ec..6dbbcb1 100644 --- a/tests/testthat/test-chisqgof.R +++ b/tests/testthat/test-chisqgof.R @@ -1,7 +1,7 @@ context("chi2-gof") -test_that("output from infer_chisq_gof_test matches the expected output", { - k <- infer_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) +test_that("output from ifr_chisq_gof_test matches the expected output", { + k <- ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) expect_equal(k$chisquare, 5.0286) expect_equal(k$pvalue, 0.1697) expect_equal(k$degrees_of_freedom, 3) @@ -16,8 +16,8 @@ test_that("output from infer_chisq_gof_test matches the expected output", { }) -test_that("output from infer_chisq_gof_test matches the expected output", { - k <- infer_chisq_gof_test(hsb, race, c(0.1, 0.1, 0.1, 0.7)) +test_that("output from ifr_chisq_gof_test matches the expected output", { + k <- ifr_chisq_gof_test(hsb, race, c(0.1, 0.1, 0.1, 0.7)) expect_equal(k$chisquare, 5.0286) expect_equal(k$pvalue, 0.1697) expect_equal(k$degrees_of_freedom, 3) @@ -31,8 +31,8 @@ test_that("output from infer_chisq_gof_test matches the expected output", { expect_equivalent(k$varname, "race") }) -test_that("output from infer_chisq_gof_test matches the expected output", { - k <- infer_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE) +test_that("output from ifr_chisq_gof_test matches the expected output", { + k <- ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE) expect_equal(k$chisquare, 4.3821) expect_equal(k$pvalue, 0.2231) expect_equal(k$degrees_of_freedom, 3) @@ -47,29 +47,29 @@ test_that("output from infer_chisq_gof_test matches the expected output", { }) -test_that("infer_chisq_gof_test throws appropriate errors", { +test_that("ifr_chisq_gof_test throws appropriate errors", { expect_error( - infer_chisq_gof_test( + ifr_chisq_gof_test( hsb, race, c(20, 20, 20, 140), correct = "FALSE" ), "correct must be either TRUE or FALSE" ) expect_error( - infer_chisq_gof_test( + ifr_chisq_gof_test( hsb, race, c("20", "20", "20", "140") ), "y must be numeric" ) expect_error( - infer_chisq_gof_test(hsb, race, c(20, 20, 20)), + ifr_chisq_gof_test(hsb, race, c(20, 20, 20)), "Length of y must be equal to the number of categories in x" ) }) -test_that("output from infer_chisq_gof_test is as expected", { +test_that("output from ifr_chisq_gof_test is as expected", { x <- cat(" Test Statistics ----------------------- Chi-Square 5.0286 @@ -87,5 +87,5 @@ Category Observed Expected % Deviation Std. Residuals 4 145 140 3.57 0.42 -----------------------------------------------------------------") - expect_equivalent(print(infer_chisq_gof_test(hsb, race, c(20, 20, 20, 140))), x) + expect_equivalent(print(ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140))), x) }) diff --git a/tests/testthat/test-cochran.R b/tests/testthat/test-cochran.R index 31268a2..be4dd43 100644 --- a/tests/testthat/test-cochran.R +++ b/tests/testthat/test-cochran.R @@ -1,7 +1,7 @@ context("cochran") -test_that("output from infer_cochran_qtest matches the expected result", { - k <- infer_cochran_qtest(exam, exam1, exam2, exam3) +test_that("output from ifr_cochran_qtest matches the expected result", { + k <- ifr_cochran_qtest(exam, exam1, exam2, exam3) expect_equal(k$n, 15) expect_equal(k$df, 2) expect_equal(k$q, 4.75) @@ -9,13 +9,13 @@ test_that("output from infer_cochran_qtest matches the expected result", { }) -test_that("infer_cochran_qtest throws appropriate errors", { +test_that("ifr_cochran_qtest throws appropriate errors", { expect_error( - infer_cochran_qtest(exam, exam1, exam2), + ifr_cochran_qtest(exam, exam1, exam2), "Please specify at least 3 variables." ) expect_error( - infer_cochran_qtest(hsb, female, schtyp, race), + ifr_cochran_qtest(hsb, female, schtyp, race), "Please specify dichotomous/binary variables only." ) }) @@ -29,5 +29,5 @@ df 2 p value 0.093 ----------------------") - expect_equivalent(print(infer_cochran_qtest(exam, exam1, exam2, exam3)), x) + expect_equivalent(print(ifr_cochran_qtest(exam, exam1, exam2, exam3)), x) }) diff --git a/tests/testthat/test-indttest.R b/tests/testthat/test-indttest.R index 376313d..7d22317 100644 --- a/tests/testthat/test-indttest.R +++ b/tests/testthat/test-indttest.R @@ -1,7 +1,7 @@ -context("infer_ts_ind_ttest") +context("ifr_ts_ind_ttest") -test_that("output from infer_ts_ind_ttest matches expected result", { - k <- infer_ts_ind_ttest(hsb, female, write) +test_that("output from ifr_ts_ind_ttest matches expected result", { + k <- ifr_ts_ind_ttest(hsb, female, write) expect_equivalent(k$levels, c("0", "1")) expect_equivalent(as.numeric(k$obs), c(91, 109)) expect_equal(k$n, 200) @@ -71,7 +71,7 @@ test_that("output from independent sample t test is as expected when alternative write Folded F 90 108 1.605 0.0188 ---------------------------------------------------------------") - expect_equivalent(print(infer_ts_ind_ttest(hsb, female, write, alternative = "less")), x) + expect_equivalent(print(ifr_ts_ind_ttest(hsb, female, write, alternative = "less")), x) }) test_that("output from independent sample t test is as expected when alternative is greater", { @@ -107,7 +107,7 @@ test_that("output from independent sample t test is as expected when alternative write Folded F 90 108 1.605 0.0188 ---------------------------------------------------------------") - expect_equivalent(print(infer_ts_ind_ttest(hsb, female, write, alternative = "greater")), x) + expect_equivalent(print(ifr_ts_ind_ttest(hsb, female, write, alternative = "greater")), x) }) test_that("output from independent sample t test is as expected when alternative is both", { @@ -143,7 +143,7 @@ test_that("output from independent sample t test is as expected when alternative write Folded F 90 108 1.605 0.0188 ---------------------------------------------------------------") - expect_equivalent(print(infer_ts_ind_ttest(hsb, female, write, alternative = "both")), x) + expect_equivalent(print(ifr_ts_ind_ttest(hsb, female, write, alternative = "both")), x) }) test_that("output from independent sample t test is as expected when alternative is all", { @@ -184,5 +184,5 @@ test_that("output from independent sample t test is as expected when alternative write Folded F 90 108 1.605 0.0188 ---------------------------------------------------------------") - expect_equivalent(print(infer_ts_ind_ttest(hsb, female, write, alternative = "all")), x) + expect_equivalent(print(ifr_ts_ind_ttest(hsb, female, write, alternative = "all")), x) }) diff --git a/tests/testthat/test-levene.R b/tests/testthat/test-levene.R index 3d27f79..4804243 100644 --- a/tests/testthat/test-levene.R +++ b/tests/testthat/test-levene.R @@ -1,10 +1,10 @@ context("levene-test") -test_that("output from infer_levene_test matches the expected result", { +test_that("output from ifr_levene_test matches the expected result", { mt <- mtcars mt$cyl <- as.factor(mt$cyl) - k <- infer_levene_test(mt, mpg, group_var = cyl) + k <- ifr_levene_test(mt, mpg, group_var = cyl) expect_equal(k$bf, 6.4843) expect_equal(k$p_bf, 0.0047) expect_equal(k$lev, 5.5071) @@ -24,8 +24,8 @@ test_that("output from infer_levene_test matches the expected result", { -test_that("output from infer_levene_test matches the expected result", { - k <- infer_levene_test(mtcars, mpg, qsec) +test_that("output from ifr_levene_test matches the expected result", { + k <- ifr_levene_test(mtcars, mpg, qsec) expect_equal(k$bf, 24.3932) expect_equal(k$p_bf, 0) expect_equal(k$lev, 20.9464) @@ -65,5 +65,5 @@ Levene 3 196 3.4792 0.017 Brown and Forsythe (Trimmed Mean) 3 196 3.3936 0.019 -------------------------------------------------------------------------") - expect_equivalent(print(infer_levene_test(hsb, read, group_var = race)), x) + expect_equivalent(print(ifr_levene_test(hsb, read, group_var = race)), x) }) diff --git a/tests/testthat/test-mcnemar.R b/tests/testthat/test-mcnemar.R index a2096d3..2b83585 100644 --- a/tests/testthat/test-mcnemar.R +++ b/tests/testthat/test-mcnemar.R @@ -1,7 +1,7 @@ context("mcnemar-test") -test_that("output from infer_mcnemar_test matches the expected result", { - k <- infer_mcnemar_test(matrix(c(172, 7, 6, 15), nrow = 2)) +test_that("output from ifr_mcnemar_test matches the expected result", { + k <- ifr_mcnemar_test(matrix(c(172, 7, 6, 15), nrow = 2)) expect_equal(k$statistic, 0.0769) expect_equal(k$df, 1.000) expect_equal(k$pvalue, 0.7815) @@ -17,8 +17,8 @@ test_that("output from infer_mcnemar_test matches the expected result", { }) -test_that("output from infer_mcnemar_test matches the expected result", { - k <- infer_mcnemar_test(table(hsb$female, hsb$schtyp)) +test_that("output from ifr_mcnemar_test matches the expected result", { + k <- ifr_mcnemar_test(table(hsb$female, hsb$schtyp)) expect_equal(k$statistic, 56.4667) expect_equal(k$df, 1) expect_equal(k$pvalue, 0) @@ -73,5 +73,5 @@ odds ratio 1.1667 himath <- ifelse(hsb$math > 60, 1, 0) hiread <- ifelse(hsb$read > 60, 1, 0) - expect_equivalent(print(infer_mcnemar_test(table(himath, hiread))), x) + expect_equivalent(print(ifr_mcnemar_test(table(himath, hiread))), x) }) diff --git a/tests/testthat/test-os-vartest.R b/tests/testthat/test-os-vartest.R index 0e44811..41c2e37 100644 --- a/tests/testthat/test-os-vartest.R +++ b/tests/testthat/test-os-vartest.R @@ -1,7 +1,7 @@ context("os-vartest") -test_that("output from infer_os_var_test matches the expected result", { - k <- infer_os_var_test(mtcars, mpg, 0.3) +test_that("output from ifr_os_var_test matches the expected result", { + k <- ifr_os_var_test(mtcars, mpg, 0.3) expect_equal(k$n, 32) expect_equal(k$sd, 0.3) expect_equal(k$sigma, 6.0269) @@ -20,17 +20,17 @@ test_that("output from infer_os_var_test matches the expected result", { }) -test_that("infer_os_var_test returns appropriate errors", { +test_that("ifr_os_var_test returns appropriate errors", { expect_error( - infer_os_var_test(hsb, race, 0.3), + ifr_os_var_test(hsb, race, 0.3), "x must be numeric" ) expect_error( - infer_os_var_test(mtcars, mpg, "0.3"), + ifr_os_var_test(mtcars, mpg, "0.3"), "sd must be numeric" ) expect_error( - infer_os_var_test(mtcars, mpg, 0.3, "0.95"), + ifr_os_var_test(mtcars, mpg, 0.3, "0.95"), "confint must be numeric" ) }) @@ -56,7 +56,7 @@ test_that("output from one sample variance test is as expected when alternative mpg 45.041 31 0.9506 -------------------------------------") - expect_equivalent(print(infer_os_var_test(mtcars, mpg, 5, alternative = "less")), x) + expect_equivalent(print(ifr_os_var_test(mtcars, mpg, 5, alternative = "less")), x) }) test_that("output from one sample variance test is as expected when alternative is greater", { @@ -79,7 +79,7 @@ test_that("output from one sample variance test is as expected when alternative mpg 45.041 31 0.0494 -------------------------------------") - expect_equivalent(print(infer_os_var_test(mtcars, mpg, 5, alternative = "greater")), x) + expect_equivalent(print(ifr_os_var_test(mtcars, mpg, 5, alternative = "greater")), x) }) test_that("output from one sample variance test is as expected when alternative is both", { @@ -102,7 +102,7 @@ test_that("output from one sample variance test is as expected when alternative mpg 45.041 31 0.0989 -------------------------------------") - expect_equivalent(print(infer_os_var_test(mtcars, mpg, 5, alternative = "both")), x) + expect_equivalent(print(ifr_os_var_test(mtcars, mpg, 5, alternative = "both")), x) }) test_that("output from one sample variance test is as expected when alternative is all", { @@ -119,5 +119,5 @@ test_that("output from one sample variance test is as expected when alternative c = 45.0412 c = 45.0412 c = 45.0412 Pr(C < c) = 0.9506 2 * Pr(C > c) = 0.0989 Pr(C > c) = 0.0494") - expect_equivalent(print(infer_os_var_test(mtcars, mpg, 5, alternative = "all")), x) + expect_equivalent(print(ifr_os_var_test(mtcars, mpg, 5, alternative = "all")), x) }) diff --git a/tests/testthat/test-paired-test.R b/tests/testthat/test-paired-test.R index 11f46cc..26c136a 100644 --- a/tests/testthat/test-paired-test.R +++ b/tests/testthat/test-paired-test.R @@ -1,8 +1,8 @@ context("paired t test") -test_that("output from infer_ts_paired_ttest matches expected output", { +test_that("output from ifr_ts_paired_ttest matches expected output", { - k <- infer_ts_paired_ttest(mtcars, mpg, qsec) + k <- ifr_ts_paired_ttest(mtcars, mpg, qsec) expect_equal(k$Obs, 32) expect_equal(round(unname(k$b[[1]]), 2), c(20.09, 17.85, 2.24)) expect_equal(round(unname(k$b[[2]]), 2), c(6.03, 1.79, 5.52)) @@ -52,7 +52,7 @@ Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] read - write -0.873 199 0.192 ---------------------------------------") - expect_equivalent(print(infer_ts_paired_ttest( + expect_equivalent(print(ifr_ts_paired_ttest( hsb, read, write, alternative = "less" )), x) @@ -86,7 +86,7 @@ Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] read - write -0.873 199 0.808 ---------------------------------------") - expect_equivalent(print(infer_ts_paired_ttest( + expect_equivalent(print(ifr_ts_paired_ttest( hsb, read, write, alternative = "greater" )), x) @@ -120,7 +120,7 @@ Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] read - write -0.873 199 0.384 ---------------------------------------") - expect_equivalent(print(infer_ts_paired_ttest( + expect_equivalent(print(ifr_ts_paired_ttest( hsb, read, write, alternative = "both" )), x) @@ -149,7 +149,7 @@ Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] t = -0.873 t = -0.873 t = -0.873 P < t = 0.192 P > |t| = 0.384 P > t = 0.808") - expect_equivalent(print(infer_ts_paired_ttest( + expect_equivalent(print(ifr_ts_paired_ttest( hsb, read, write, alternative = "all" )), x) diff --git a/tests/testthat/test-prop-test.R b/tests/testthat/test-prop-test.R index e6b51c4..d81b3a8 100644 --- a/tests/testthat/test-prop-test.R +++ b/tests/testthat/test-prop-test.R @@ -1,7 +1,7 @@ context("prop-test") -test_that("output from infer_os_prop_test matches expected result", { - k <- infer_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "both") +test_that("output from ifr_os_prop_test matches expected result", { + k <- ifr_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "both") expect_equal(k$n, 200) expect_equal(k$phat, 0.3) expect_equal(k$p, 0.5) @@ -14,8 +14,8 @@ test_that("output from infer_os_prop_test matches expected result", { expect_equivalent(k$std, c(" 4.00", "-4.00")) }) -test_that("output from infer_os_prop_test matches expected result when using factor variables", { - k <- infer_os_prop_test(hsb, female, prob = 0.5) +test_that("output from ifr_os_prop_test matches expected result when using factor variables", { + k <- ifr_os_prop_test(hsb, female, prob = 0.5) expect_equal(k$n, 200) expect_equal(k$phat, 0.545) expect_equal(k$p, 0.5) @@ -28,21 +28,21 @@ test_that("output from infer_os_prop_test matches expected result when using fac expect_equivalent(k$std, c("-0.90", " 0.90")) }) -test_that("output from infer_os_prop_test matches expected result", { - k <- infer_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "less") +test_that("output from ifr_os_prop_test matches expected result", { + k <- ifr_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "less") expect_equal(k$sig, 0) expect_equivalent(k$alt, "less") }) -test_that("output from infer_os_prop_test matches expected result", { - k <- infer_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "greater") +test_that("output from ifr_os_prop_test matches expected result", { + k <- ifr_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "greater") expect_equal(k$sig, 1) expect_equivalent(k$alt, "greater") }) -test_that("output from infer_os_prop_test matches expected result", { - k <- infer_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "all") +test_that("output from ifr_os_prop_test matches expected result", { + k <- ifr_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "all") expect_equal(unname(k$sig), c(0, 0, 1)) expect_equivalent(k$alt, "all") }) diff --git a/tests/testthat/test-runs.R b/tests/testthat/test-runs.R index 3987caa..7d633f9 100644 --- a/tests/testthat/test-runs.R +++ b/tests/testthat/test-runs.R @@ -3,7 +3,7 @@ context("runs test") test_that("output from runs test matches the expected result", { reg <- lm(mpg ~ disp, data = mtcars) resid <- data.frame(residual = residuals(reg)) - k <- infer_runs_test(resid, residual) + k <- ifr_runs_test(resid, residual) expect_equal(k$n, 32) expect_equal(round(k$threshold, 3), -0.963) expect_equal(k$n_above, 16) @@ -18,7 +18,7 @@ test_that("output from runs test matches the expected result", { test_that("output from runs test matches the expected result", { reg <- lm(mpg ~ disp, data = mtcars) resid <- data.frame(residual = residuals(reg)) - k <- infer_runs_test(resid, residual, drop = TRUE) + k <- ifr_runs_test(resid, residual, drop = TRUE) expect_equal(k$n, 32) expect_equal(round(k$threshold, 3), -0.963) expect_equal(k$n_above, 16) @@ -33,7 +33,7 @@ test_that("output from runs test matches the expected result", { test_that("output from runs test matches the expected result", { reg <- lm(mpg ~ disp, data = mtcars) resid <- data.frame(residual = residuals(reg)) - k <- infer_runs_test(resid, residual, split = TRUE) + k <- ifr_runs_test(resid, residual, split = TRUE) expect_equal(k$n, 32) expect_equal(round(k$threshold, 3), -0.963) expect_equal(k$n_above, 16) @@ -48,7 +48,7 @@ test_that("output from runs test matches the expected result", { test_that("output from runs test matches the expected result", { reg <- lm(mpg ~ disp, data = mtcars) resid <- data.frame(residual = residuals(reg)) - k <- infer_runs_test(resid, residual, mean = TRUE) + k <- ifr_runs_test(resid, residual, mean = TRUE) expect_equal(k$n, 32) expect_equal(k$threshold, -1.127570e-16) expect_equal(k$n_above, 13) @@ -63,7 +63,7 @@ test_that("output from runs test matches the expected result", { test_that("output from runs test matches the expected result", { reg <- lm(mpg ~ disp, data = mtcars) resid <- data.frame(residual = residuals(reg)) - k <- infer_runs_test(resid, residual, threshold = 0) + k <- ifr_runs_test(resid, residual, threshold = 0) expect_equal(k$n, 32) expect_equal(round(k$threshold, 3), 0) expect_equal(k$n_above, 13) @@ -89,5 +89,5 @@ test_that("output from runs test is as expected", { reg <- lm(mpg ~ disp, data = mtcars) resid <- data.frame(residual = residuals(reg)) - expect_equivalent(print(infer_runs_test(resid, residual)), x) + expect_equivalent(print(ifr_runs_test(resid, residual)), x) }) diff --git a/tests/testthat/test-ttest.R b/tests/testthat/test-ttest.R index 32c6737..ed7325e 100644 --- a/tests/testthat/test-ttest.R +++ b/tests/testthat/test-ttest.R @@ -1,7 +1,7 @@ -context("infer_os_t_test") +context("ifr_os_t_test") -test_that("output from infer_os_t_test matches the expected output", { - k <- infer_os_t_test(mtcars, mpg, mu = 50, alternative = "less") +test_that("output from ifr_os_t_test matches the expected output", { + k <- ifr_os_t_test(mtcars, mpg, mu = 50, alternative = "less") expect_equal(k$mu, 50) expect_equal(k$n, 32) expect_equal(k$df, 31) @@ -20,17 +20,17 @@ test_that("output from infer_os_t_test matches the expected output", { expect_equivalent(k$type, "less") expect_equivalent(k$var_name, "mpg") - k <- infer_os_t_test(mtcars, mpg, mu = 50, alternative = "greater") + k <- ifr_os_t_test(mtcars, mpg, mu = 50, alternative = "greater") expect_equivalent(k$confint, c(18.2846, Inf)) - k <- infer_os_t_test(mtcars, mpg, mu = 50, alternative = "both") + k <- ifr_os_t_test(mtcars, mpg, mu = 50, alternative = "both") expect_equivalent(k$confint, c(17.9181, 22.2639)) }) -test_that("infer_os_t_test throws the appropriate error", { - expect_error(infer_os_t_test(hsb, race, mu = 50), "x must be numeric") - expect_error(infer_os_t_test(mtcars, mpg, mu = "50"), "mu must be numeric") - expect_error(infer_os_t_test(mtcars, mpg, mu = 50, alpha = "0.05"), "alpha must be numeric") +test_that("ifr_os_t_test throws the appropriate error", { + expect_error(ifr_os_t_test(hsb, race, mu = 50), "x must be numeric") + expect_error(ifr_os_t_test(mtcars, mpg, mu = "50"), "mu must be numeric") + expect_error(ifr_os_t_test(mtcars, mpg, mu = 50, alpha = "0.05"), "alpha must be numeric") }) test_that("output from one sample t test is as expected when alternative is less", { @@ -52,7 +52,7 @@ test_that("output from one sample t test is as expected when alternative is less write 4.141 199 0.99997 2.775 -Inf 3.8828 --------------------------------------------------------------------------------") - expect_output(print(infer_os_t_test(hsb, write, mu = 50, alternative = "less")), x) + expect_output(print(ifr_os_t_test(hsb, write, mu = 50, alternative = "less")), x) }) test_that("output from one sample t test is as expected when alternative is greater", { @@ -74,7 +74,7 @@ test_that("output from one sample t test is as expected when alternative is grea write 4.141 199 0.99997 2.775 1.6678 Inf --------------------------------------------------------------------------------") - expect_output(print(infer_os_t_test(hsb, write, mu = 50, alternative = "greater")), x) + expect_output(print(ifr_os_t_test(hsb, write, mu = 50, alternative = "greater")), x) }) test_that("output from one sample t test is as expected when alternative is both", { @@ -96,7 +96,7 @@ test_that("output from one sample t test is as expected when alternative is both write 4.141 199 0.99997 2.775 1.4537 4.0969 --------------------------------------------------------------------------------") - expect_output(print(infer_os_t_test(hsb, write, mu = 50, alternative = "both")), x) + expect_output(print(ifr_os_t_test(hsb, write, mu = 50, alternative = "both")), x) }) test_that("output from one sample t test is as expected when alternative is all", { @@ -113,5 +113,5 @@ test_that("output from one sample t test is as expected when alternative is all" t = 4.141 t = 4.141 t = 4.141 P < t = 1.0000 P > |t| = 0.0001 P > t = 0.0000") - expect_output(print(infer_os_t_test(hsb, write, mu = 50, alternative = "all")), x) + expect_output(print(ifr_os_t_test(hsb, write, mu = 50, alternative = "all")), x) }) diff --git a/tests/testthat/test-two-prop-test.R b/tests/testthat/test-two-prop-test.R index 06d892e..8ca1bd8 100644 --- a/tests/testthat/test-two-prop-test.R +++ b/tests/testthat/test-two-prop-test.R @@ -4,8 +4,8 @@ mtcarz <- mtcars mtcarz$vs <- as.factor(mtcarz$vs) mtcarz$am <- as.factor(mtcarz$am) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_test(mtcarz, am, vs, alternative = "less") +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_test(mtcarz, am, vs, alternative = "less") expect_equal(k$n1, 32) expect_equal(k$n2, 32) expect_equal(k$phat1, 0.4062) @@ -16,8 +16,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_test( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_test( mtcarz, am, vs, alternative = "greater" ) @@ -26,8 +26,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_test( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_test( mtcarz, am, vs, alternative = "both" ) @@ -35,8 +35,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { expect_equivalent(k$alt, "both") }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_test( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_test( mtcarz, am, vs, alternative = "all" ) @@ -45,8 +45,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_group(mtcarz, am, vs, alternative = "less") +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_group(mtcarz, am, vs, alternative = "less") expect_equal(k$n1, 18) expect_equal(k$n2, 14) expect_equal(round(k$phat1, 3), 0.333) @@ -56,8 +56,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { expect_equivalent(k$alt, "less") }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_group( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_group( mtcarz, am, vs, alternative = "greater" ) @@ -65,8 +65,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { expect_equivalent(k$alt, "greater") }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_group( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_group( mtcarz, am, vs, alternative = "both" ) @@ -74,8 +74,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { expect_equivalent(k$alt, "both") }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_group( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_group( mtcarz, am, vs, alternative = "all" ) @@ -83,8 +83,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { expect_equivalent(k$alt, "all") }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_calc( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_calc( n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = "less" ) @@ -97,8 +97,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { expect_equivalent(k$alt, "less") }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_calc( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_calc( n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = "greater" ) @@ -106,8 +106,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { expect_equivalent(k$alt, "greater") }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_calc( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_calc( n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = "both" ) @@ -116,8 +116,8 @@ test_that("output from infer_ts_prop_test matches the expected result", { }) -test_that("output from infer_ts_prop_test matches the expected result", { - k <- infer_ts_prop_calc( +test_that("output from ifr_ts_prop_test matches the expected result", { + k <- ifr_ts_prop_calc( n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = "all" ) @@ -132,7 +132,7 @@ test_that("output from 2 sample proportion test is as expected when alternative z 0.351 Pr(Z < z) 0.637 ") - expect_equivalent(print(infer_ts_prop_group(treatment2, outcome, female, alternative = "less")), x) + expect_equivalent(print(ifr_ts_prop_group(treatment2, outcome, female, alternative = "less")), x) }) test_that("output from 2 sample proportion test is as expected when alternative is greater", { @@ -142,7 +142,7 @@ test_that("output from 2 sample proportion test is as expected when alternative z 0.351 Pr(Z > z) 0.363") - expect_equivalent(print(infer_ts_prop_group(treatment2, outcome, female, alternative = "greater")), x) + expect_equivalent(print(ifr_ts_prop_group(treatment2, outcome, female, alternative = "greater")), x) }) test_that("output from 2 sample proportion test is as expected when alternative is both", { @@ -152,7 +152,7 @@ test_that("output from 2 sample proportion test is as expected when alternative z 0.351 Pr(|Z| < |z|) 0.726") - expect_equivalent(print(infer_ts_prop_group(treatment2, outcome, female, alternative = "both")), x) + expect_equivalent(print(ifr_ts_prop_group(treatment2, outcome, female, alternative = "both")), x) }) test_that("output from 2 sample proportion test is as expected when alternative is all", { @@ -163,5 +163,5 @@ Pr(|Z| < |z|) 0.726 Pr(Z < z) 0.637 Pr(Z > z) 0.363") - expect_equivalent(print(infer_ts_prop_group(treatment2, outcome, female, alternative = "all")), x) + expect_equivalent(print(ifr_ts_prop_group(treatment2, outcome, female, alternative = "all")), x) }) diff --git a/tests/testthat/test-two-var-test.R b/tests/testthat/test-two-var-test.R index f1db140..2e3bb6e 100644 --- a/tests/testthat/test-two-var-test.R +++ b/tests/testthat/test-two-var-test.R @@ -3,8 +3,8 @@ context("two sample variance test") mtcarz <- mtcars mtcarz$vs <- as.factor(mtcarz$vs) -test_that("output from infer_ts_var_test matches expected result", { - k <- infer_ts_var_test(mtcarz, mpg, group_var = vs) +test_that("output from ifr_ts_var_test matches expected result", { + k <- ifr_ts_var_test(mtcarz, mpg, group_var = vs) expect_equal(k$f, 0.5151) expect_equal(k$lower, 0.0999) expect_equal(k$upper, 0.9001) @@ -23,8 +23,8 @@ test_that("output from infer_ts_var_test matches expected result", { expect_equivalent(k$lev, c("0", "1")) }) -test_that("output from infer_ts_var_test matches expected result", { - k <- infer_ts_var_test(mtcarz, mpg, qsec) +test_that("output from ifr_ts_var_test matches expected result", { + k <- ifr_ts_var_test(mtcarz, mpg, qsec) expect_equal(k$f, 11.3756) expect_equal(k$lower, 1) expect_equal(k$upper, 0) @@ -68,7 +68,7 @@ test_that("output from 2 sample variance test is as expected when alternative is 1.1701 199 199 0.8656 ------------------------------------") - expect_equivalent(print(infer_ts_var_test(hsb, read, write, alternative = "less")), x) + expect_equivalent(print(ifr_ts_var_test(hsb, read, write, alternative = "less")), x) }) test_that("output from 2 sample variance test is as expected when alternative is greater", { @@ -94,7 +94,7 @@ test_that("output from 2 sample variance test is as expected when alternative is 1.1701 199 199 0.1344 ------------------------------------") - expect_equivalent(print(infer_ts_var_test(hsb, read, write, alternative = "greater")), x) + expect_equivalent(print(ifr_ts_var_test(hsb, read, write, alternative = "greater")), x) }) test_that("output from 2 sample variance test is as expected when alternative is all", { @@ -124,5 +124,5 @@ test_that("output from 2 sample variance test is as expected when alternative is Pr(F < f) = 0.8656 Pr(F > f) = 0.1344 ----------------------------------------") - expect_equivalent(print(infer_ts_var_test(hsb, read, write, alternative = "all")), x) + expect_equivalent(print(ifr_ts_var_test(hsb, read, write, alternative = "all")), x) }) diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R index 820eae3..13cdeca 100644 --- a/tests/testthat/test-utils.R +++ b/tests/testthat/test-utils.R @@ -54,7 +54,7 @@ test_that("output from lev_metric matches the expected result", { }) test_that("output from serr matches the expected result", { - k <- infer_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) + k <- ifr_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) expected <- sum(rowSums(k$tbl) * colSums(k$tbl)) / (sum(k$tbl) ^ 2) expect_equal(round(serr(k$tbl, k$kappa, expected), 3), 0.075) }) diff --git a/vignettes/intro.Rmd b/vignettes/intro.Rmd index fc6a277..772b2a0 100644 --- a/vignettes/intro.Rmd +++ b/vignettes/intro.Rmd @@ -52,7 +52,7 @@ A one sample t-test is used to determine whether a sample of observations comes Using the hsb data, test whether the average of write differs significantly from 50. ```{r ttest} -infer_os_t_test(hsb, write, mu = 50, alternative = 'all') +ifr_os_t_test(hsb, write, mu = 50, alternative = 'all') ``` ## Paired t test @@ -65,10 +65,10 @@ Using the hsb data, test whether the mean of read is equal to the mean of write. ```{r pair1} # Lower Tail Test -infer_ts_paired_ttest(hsb, read, write, alternative = 'less') +ifr_ts_paired_ttest(hsb, read, write, alternative = 'less') # Test all alternatives -infer_ts_paired_ttest(hsb, read, write, alternative = 'all') +ifr_ts_paired_ttest(hsb, read, write, alternative = 'all') ``` ## Two Independent Sample t Test @@ -84,7 +84,7 @@ different i.e. a subject in one group cannot also be a subject of the other grou Using the hsb data, test whether the mean for write is the same for males and females. ```{r ind} -infer_ts_ind_ttest(hsb, female, write, alternative = 'all') +ifr_ts_ind_ttest(hsb, female, write, alternative = 'all') ``` ## One Sample Test of Proportion @@ -97,14 +97,14 @@ Using hsb data, test whether the proportion of females is 50%. ```{r os_prop1} # Using Variables -infer_os_prop_test(hsb, female, prob = 0.5) +ifr_os_prop_test(hsb, female, prob = 0.5) ``` Using Calculator ```{r os_prop2} # Calculator -infer_os_prop_test(200, prob = 0.5, phat = 0.3) +ifr_os_prop_test(200, prob = 0.5, phat = 0.3) ``` ## Two Sample Test of Proportion @@ -118,7 +118,7 @@ Two sample test of proportion performs tests on the equality of proportions usin Using the treatment data, test equality of proportion of two treatments ```{r ts_prop1} # Using Variables -infer_ts_prop_test(treatment, treatment1, treatment2, alternative = 'all') +ifr_ts_prop_test(treatment, treatment1, treatment2, alternative = 'all') ``` #### Use Grouping Variable @@ -127,7 +127,7 @@ Using the treatment2 data, test whether outcome has same proportion for male and ```{r ts_prop2} # Using Grouping Variable -infer_ts_prop_group(treatment2, outcome, female, alternative = 'all') +ifr_ts_prop_group(treatment2, outcome, female, alternative = 'all') ``` #### Using Calculator @@ -139,7 +139,7 @@ review. ```{r ts_prop3} # Calculator -infer_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'all') +ifr_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'all') ``` ## One Sample Variance Test @@ -156,10 +156,10 @@ Using the mtcars data, compare the standard deviation of mpg to a hypothesized v ```{r os_var} # Lower Tail Test -infer_os_var_test(mtcars, mpg, 0.3, alternative = 'less') +ifr_os_var_test(mtcars, mpg, 0.3, alternative = 'less') # Test all alternatives -infer_os_var_test(mtcars, mpg, 0.3, alternative = 'all') +ifr_os_var_test(mtcars, mpg, 0.3, alternative = 'all') ``` ## Two Sample Variance Test @@ -174,7 +174,7 @@ Using the mtcars data, compare the standard deviation in miles per gallon for au ```{r ts_var1} # Using Grouping Variable -infer_ts_var_test(hsb, read, group_var = female, alternative = 'all') +ifr_ts_var_test(hsb, read, group_var = female, alternative = 'all') ``` #### Using Variables @@ -183,7 +183,7 @@ Using the hsb data, compare the standard deviation of reading and writing scores ```{r ts_var2} # Using Variables -infer_ts_var_test(hsb, read, write, alternative = 'all') +ifr_ts_var_test(hsb, read, write, alternative = 'all') ``` ## Binomial Probability Test @@ -196,14 +196,14 @@ Using the hsb data, test whether the proportion of females and males are equal. ```{r binom_calc} # Using variables -infer_binom_test(hsb, female, prob = 0.5) +ifr_binom_test(hsb, female, prob = 0.5) ``` #### Using Calculator ```{r binom_calc2} # calculator -infer_binom_calc(32, 16, prob = 0.5) +ifr_binom_calc(32, 16, prob = 0.5) ``` ## ANOVA @@ -215,7 +215,7 @@ The one-way analysis of variance (ANOVA) is used to determine whether there are Using the hsb data, test whether the mean of write differs between the three program types. ```{r anova} -infer_oneway_anova(hsb, write, prog) +ifr_oneway_anova(hsb, write, prog) ``` ## Chi Square Goodness of Fit Test @@ -229,14 +229,14 @@ hypothesized proportions. ```{r gof1} # basic example -infer_chisq_gof_test(hsb, race, c(20, 20, 20 , 140)) +ifr_chisq_gof_test(hsb, race, c(20, 20, 20 , 140)) ``` #### Continuity Correction ```{r gof2} # using continuity correction -infer_chisq_gof_test(hsb, race, c(20, 20, 20 , 140), correct = TRUE) +ifr_chisq_gof_test(hsb, race, c(20, 20, 20 , 140), correct = TRUE) ``` ## Chi Square Test of Independence @@ -248,7 +248,7 @@ A chi-square test is used when you want to test if there is a significant relati Using the hsb data, test if there is a relationship between the type of school attended (schtyp) and students' gender (female). ```{r chi1} -infer_chisq_assoc_test(hsb, female, schtyp) +ifr_chisq_assoc_test(hsb, female, schtyp) ``` Using the hsb data, test if there is a relationship between the type of school attended (schtyp) and students' @@ -256,7 +256,7 @@ socio economic status (ses). ```{r chi2} -infer_chisq_assoc_test(hsb, schtyp, ses) +ifr_chisq_assoc_test(hsb, schtyp, ses) ``` ## Levene's Test @@ -271,7 +271,7 @@ Using the hsb data, test whether variance in reading score is same across race. ```{r lev1} # Using Grouping Variable -infer_levene_test(hsb, read, group_var = race) +ifr_levene_test(hsb, read, group_var = race) ``` #### Using Variables @@ -281,7 +281,7 @@ social studies scores. ```{r lev2} # Using Variables -infer_levene_test(hsb, read, write, socst) +ifr_levene_test(hsb, read, write, socst) ``` ## Cochran's Q Test @@ -292,7 +292,7 @@ Cochran's Q test is an extension to the McNemar test for related samples that pr The exam data set contains scores of 15 students for three exams (exam1, exam2, exam3). Test if three exams are equally difficult. ```{r cochran} -infer_cochran_qtest(exam, exam1, exam2, exam3) +ifr_cochran_qtest(exam, exam1, exam2, exam3) ``` ## McNemar Test @@ -314,20 +314,20 @@ Using the hsb data, test if the proportion of students in himath and hiread grou hb <- hsb hb$himath <- ifelse(hsb$math > 60, 1, 0) hb$hiread <- ifelse(hsb$read > 60, 1, 0) -infer_mcnemar_test(hb, himath, hiread) +ifr_mcnemar_test(hb, himath, hiread) ``` ```{r mc1} himath <- ifelse(hsb$math > 60, 1, 0) hiread <- ifelse(hsb$read > 60, 1, 0) -infer_mcnemar_test(table(himath, hiread)) +ifr_mcnemar_test(table(himath, hiread)) ``` Perform the above test using matrix as input. ```{r mc2} -infer_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) +ifr_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) ``` ## Runs Test for Randomness @@ -340,17 +340,17 @@ We will use runs test to check regression residuals for serial correlation. ```{r runs1} # basic example -infer_runs_test(hsb, read) +ifr_runs_test(hsb, read) # drop values equal to threshold -infer_runs_test(hsb, read, drop = TRUE) +ifr_runs_test(hsb, read, drop = TRUE) # recode data in binary format -infer_runs_test(hsb, read, split = TRUE) +ifr_runs_test(hsb, read, split = TRUE) # use mean as threshold -infer_runs_test(hsb, read, mean = TRUE) +ifr_runs_test(hsb, read, mean = TRUE) # threshold to be used for counting runs -infer_runs_test(hsb, read, threshold = 0) +ifr_runs_test(hsb, read, threshold = 0) ``` From 146ea2a61ea6212c38a120d587b45371275af7b8 Mon Sep 17 00:00:00 2001 From: rsquaredin Date: Mon, 19 Jul 2021 21:16:33 +0530 Subject: [PATCH 02/10] refactor: deprecate infer_ functions --- NAMESPACE | 18 ++++++++++++++++++ R/ifr-anova.R | 16 +++++++++++++++- R/ifr-binom-test.R | 32 ++++++++++++++++++++++++++------ R/ifr-chisq-assoc-test.R | 15 +++++++++++++-- R/ifr-chisq-gof-test.R | 23 +++++++++++++++++------ R/ifr-cochran-q-test.R | 13 ++++++++++++- R/ifr-launch-shiny-app.R | 10 ++++++++++ R/ifr-levene-test.R | 15 ++++++++++++++- R/ifr-mcnemar-test.R | 17 +++++++++++++++-- R/ifr-os-prop-test.R | 19 +++++++++++++++++-- R/ifr-os-t-test.R | 17 +++++++++++++++-- R/ifr-os-var-test.R | 19 +++++++++++++++++-- R/ifr-runs-test.R | 14 +++++++++++++- R/ifr-ts-ind-ttest.R | 19 +++++++++++++++++-- R/ifr-ts-paired-ttest.R | 27 +++++++++++++++++++++------ R/ifr-ts-prop-test.R | 29 ++++++++++++++++++++++++++--- R/ifr-ts-var-test.R | 20 +++++++++++++++++--- man/ifr_binom_calc.Rd | 5 ++++- man/ifr_chisq_assoc_test.Rd | 7 +++++-- man/ifr_chisq_gof_test.Rd | 4 +++- man/ifr_cochran_qtest.Rd | 4 +++- man/ifr_launch_shiny_app.Rd | 6 ++++++ man/ifr_levene_test.Rd | 2 +- man/ifr_mcnemar_test.Rd | 4 +++- man/ifr_oneway_anova.Rd | 8 ++++++++ man/ifr_os_prop_test.Rd | 4 +++- man/ifr_os_t_test.Rd | 3 ++- man/ifr_os_var_test.Rd | 4 +++- man/ifr_runs_test.Rd | 3 ++- man/ifr_ts_ind_ttest.Rd | 4 +++- man/ifr_ts_paired_ttest.Rd | 4 +++- man/ifr_ts_prop_test.Rd | 15 +++++++++------ man/ifr_ts_var_test.Rd | 3 ++- 33 files changed, 343 insertions(+), 60 deletions(-) diff --git a/NAMESPACE b/NAMESPACE index e7643c1..de1904f 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -49,6 +49,24 @@ export(ifr_ts_prop_calc) export(ifr_ts_prop_group) export(ifr_ts_prop_test) export(ifr_ts_var_test) +export(infer_binom_calc) +export(infer_binom_test) +export(infer_chisq_assoc_test) +export(infer_chisq_gof_test) +export(infer_cochran_qtest) +export(infer_launch_shiny_app) +export(infer_levene_test) +export(infer_mcnemar_test) +export(infer_oneway_anova) +export(infer_os_prop_test) +export(infer_os_t_test) +export(infer_os_var_test) +export(infer_runs_test) +export(infer_ts_paired_ttest) +export(infer_ts_prop_calc) +export(infer_ts_prop_grp) +export(infer_ts_prop_test) +export(infer_ts_var_test) import(magrittr) importFrom(Rcpp,sourceCpp) importFrom(data.table,":=") diff --git a/R/ifr-anova.R b/R/ifr-anova.R index 2639fc2..3cc2769 100644 --- a/R/ifr-anova.R +++ b/R/ifr-anova.R @@ -24,13 +24,19 @@ #' \item{ss_within}{within group sum of squares} #' \item{ss_total}{total sum of squares} #' +#' @section Deprecated Function: +#' \code{infer_oneway_anova()} has been deprecated. Instead use +#' \code{ifr_oneway_anova()} +#' #' @references Kutner, M. H., Nachtsheim, C., Neter, J., & Li, W. (2005). #' Applied linear statistical models. Boston: McGraw-Hill Irwin. #' -#' @seealso \code{\link[stats]{anova}} #' @examples #' ifr_oneway_anova(mtcars, mpg, cyl) #' ifr_oneway_anova(hsb, write, prog) +#' +#' @seealso \code{\link[stats]{anova}} +#' #' @export #' ifr_oneway_anova <- function(data, x, y, ...) UseMethod("ifr_oneway_anova") @@ -68,6 +74,14 @@ ifr_oneway_anova.default <- function(data, x, y, ...) { return(result) } +#' @export +#' @rdname ifr_oneway_anova +#' @usage NULL +#' +infer_oneway_anova <- function(data, x, y, ...) { + .Deprecated("ifr_oneway_anova()") +} + #' @export print.ifr_oneway_anova <- function(x, ...) { print_owanova(x) diff --git a/R/ifr-binom-test.R b/R/ifr-binom-test.R index 28397bd..bc19a22 100644 --- a/R/ifr-binom-test.R +++ b/R/ifr-binom-test.R @@ -19,19 +19,23 @@ #' \item{obs_p}{assumed probability of success} #' \item{pval_lower}{lower one sided p value} #' \item{pval_upper}{upper one sided p value} +#' #' @section Deprecated Functions: -#' \code{binom_calc()} and \code{binom_test()} have been deprecated. Instead use +#' \code{infer_binom_calc()} and \code{infer_binom_test()} have been deprecated. Instead use #' \code{ifr_binom_cal()} and \code{ifr_binom_test()}. +#' #' @references Hoel, P. G. 1984. Introduction to Mathematical Statistics. #' 5th ed. New York: Wiley. #' -#' @seealso \code{\link[stats]{binom.test}} #' @examples #' # using calculator #' ifr_binom_calc(32, 13, prob = 0.5) #' #' # using data set #' ifr_binom_test(hsb, female, prob = 0.5) +#' +#' @seealso \code{\link[stats]{binom.test}} +#' #' @export #' ifr_binom_calc <- function(n, success, prob = 0.5, ...) UseMethod("ifr_binom_calc") @@ -72,6 +76,14 @@ ifr_binom_calc.default <- function(n, success, prob = 0.5, ...) { return(out) } +#' @export +#' @rdname ifr_binom_calc +#' @usage NULL +#' +infer_binom_calc <- function(n, success, prob = 0.5, ...) { + .Deprecated("ifr_binom_calc()") +} + #' @export print.ifr_binom_calc <- function(x, ...) { print_binom(x) @@ -105,6 +117,14 @@ ifr_binom_test <- function(data, variable, prob = 0.5) { ifr_binom_calc.default(n, k, prob) } +#' @export +#' @rdname ifr_binom_calc +#' @usage NULL +#' +infer_binom_test <- function(data, variable, prob = 0.5) { + .Deprecated("ifr_binom_test()") +} + #' @importFrom stats pbinom dbinom binom_comp <- function(n, success, prob) { @@ -143,12 +163,12 @@ binom_comp <- function(n, success, prob) { } list(exp_k = exp_k, - exp_p = prob, + exp_p = prob, ik = i_k, k = k, - lower = round(lt, 6), - n = n, - obs_p = obs_p, + lower = round(lt, 6), + n = n, + obs_p = obs_p, two_tail = round(ttf, 6), upper = round(ut, 6) ) diff --git a/R/ifr-chisq-assoc-test.R b/R/ifr-chisq-assoc-test.R index 681cb3a..f5cadc3 100644 --- a/R/ifr-chisq-assoc-test.R +++ b/R/ifr-chisq-assoc-test.R @@ -24,16 +24,19 @@ #' \item{pval_chisquare_mantel_haenszel}{p-value of mantel haenszel chi square} #' #' @section Deprecated Function: -#' \code{chisq_test()} has been deprecated. Instead use +#' \code{infer_chisq_assoc_test()} has been deprecated. Instead use #' \code{ifr_chisq_assoc_test()}. #' -#' @seealso \code{\link[stats]{chisq.test}} #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. +#' #' @examples #' ifr_chisq_assoc_test(hsb, female, schtyp) #' #' ifr_chisq_assoc_test(hsb, female, ses) +#' +#' @seealso \code{\link[stats]{chisq.test}} +#' #' @export #' ifr_chisq_assoc_test <- function(data, x, y) UseMethod("ifr_chisq_assoc_test") @@ -115,6 +118,14 @@ ifr_chisq_assoc_test.default <- function(data, x, y) { return(result) } +#' @export +#' @rdname ifr_chisq_assoc_test +#' @usage NULL +#' +infer_chisq_assoc_test <- function(data, x, y) { + .Deprecated("ifr_chisq_assoc_test()") +} + #' @export print.ifr_chisq_assoc_test <- function(x, ...) { print_chisq_test(x) diff --git a/R/ifr-chisq-gof-test.R b/R/ifr-chisq-gof-test.R index 9caf6cd..d605b09 100644 --- a/R/ifr-chisq-gof-test.R +++ b/R/ifr-chisq-gof-test.R @@ -22,17 +22,20 @@ #' \item{varname}{name of categorical variable} #' #' @section Deprecated Function: -#' \code{chisq_gof()} has been deprecated. Instead use +#' \code{infer_chisq_gof_test()} has been deprecated. Instead use #' \code{ifr_chisq_gof_test()} #' -#' @seealso \code{\link[stats]{chisq.test}} #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. +#' #' @examples #' ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) #' #' # apply continuity correction #' ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE) +#' +#' @seealso \code{\link[stats]{chisq.test}} +#' #' @export #' ifr_chisq_gof_test <- function(data, x, y, correct = FALSE) UseMethod("ifr_chisq_gof_test") @@ -96,6 +99,14 @@ ifr_chisq_gof_test.default <- function(data, x, y, correct = FALSE) { return(result) } +#' @export +#' @rdname ifr_chisq_gof_test +#' @usage NULL +#' +infer_chisq_gof_test <- function(data, x, y, correct = FALSE) { + .Deprecated("ifr_chisq_gof_test()") +} + #' @export print.ifr_chisq_gof_test <- function(x, ...) { print_chisq_gof(x) @@ -110,8 +121,8 @@ chi_cort <- function(x, y) { std <- round(diff / sqrt(y), 2) chi <- round(sum(dif2 / y), 4) - list(dev = dev, - std = std, + list(dev = dev, + std = std, chi = chi) } @@ -123,7 +134,7 @@ chigof <- function(x, y) { std <- round(dif / sqrt(y), 2) chi <- round(sum(dif2 / y), 4) - list(dev = dev, - std = std, + list(dev = dev, + std = std, chi = chi) } diff --git a/R/ifr-cochran-q-test.R b/R/ifr-cochran-q-test.R index ad828db..ca203ba 100644 --- a/R/ifr-cochran-q-test.R +++ b/R/ifr-cochran-q-test.R @@ -3,6 +3,7 @@ #' equal in the same population. #' @param data a \code{data.frame} or \code{tibble} #' @param ... columns in \code{data} +#' #' @return \code{ifr_cochran_qtest} returns an object of class #' \code{"ifr_cochran_qtest"}. An object of class \code{"ifr_cochran_qtest"} #' is a list containing the following components: @@ -13,13 +14,15 @@ #' \item{q}{cochran's q statistic} #' #' @section Deprecated Function: -#' \code{cochran_test()} has been deprecated. Instead use +#' \code{infer_cochran_test()} has been deprecated. Instead use #' \code{ifr_cochran_qtest()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' #' @examples #' ifr_cochran_qtest(exam, exam1, exam2, exam3) +#' #' @export #' ifr_cochran_qtest <- function(data, ...) UseMethod("ifr_cochran_qtest") @@ -51,6 +54,14 @@ ifr_cochran_qtest.default <- function(data, ...) { return(result) } +#' @export +#' @rdname ifr_cochran_qtest +#' @usage NULL +#' +infer_cochran_qtest <- function(data, ...) { + .Deprecated("ifr_cochran_qtest()") +} + #' @export #' print.ifr_cochran_qtest <- function(x, ...) { diff --git a/R/ifr-launch-shiny-app.R b/R/ifr-launch-shiny-app.R index 3e154fe..e4c2d5f 100644 --- a/R/ifr-launch-shiny-app.R +++ b/R/ifr-launch-shiny-app.R @@ -1,5 +1,7 @@ #' @title Launch Shiny App #' @description Launches shiny app +#' @section Deprecated Function: +#' \code{infer_launch_shiny_app()} has been deprecated. Instead use \code{ifr_launch_shiny_app()}. #' @examples #' \dontrun{ #' ifr_launch_shiny_app() @@ -26,3 +28,11 @@ ifr_launch_shiny_app <- function() { xplorerr::app_inference() } + +#' @export +#' @rdname ifr_launch_shiny_app +#' @usage NULL +#' +infer_launch_shiny_app <- function(data, x, y) { + .Deprecated("ifr_launch_shiny_app()") +} \ No newline at end of file diff --git a/R/ifr-levene-test.R b/R/ifr-levene-test.R index a9d3dfe..9a2604a 100644 --- a/R/ifr-levene-test.R +++ b/R/ifr-levene-test.R @@ -1,14 +1,17 @@ #' @title Levene's test for equality of variances +#' #' @description \code{ifr_levene_test} reports Levene's robust test statistic #' for the equality of variances and the #' two statistics proposed by Brown and Forsythe that replace the mean in #' Levene's formula with alternative location estimators. The first alternative #' replaces the mean with the median. The second alternative replaces #' the mean with the 10% trimmed mean. +#' #' @param data a \code{data.frame} or \code{tibble} #' @param ... numeric; columns in \code{data} #' @param group_var factor; column in \code{data} #' @param trim_mean trimmed mean +#' #' @return \code{ifr_levene_test} returns an object of class \code{"ifr_levene_test"}. #' An object of class \code{"ifr_levene_test"} is a list containing the #' following components: @@ -29,14 +32,17 @@ #' \item{levs}{levels of the grouping variable} #' \item{lens}{number of observations for each level of the grouping variable} #' \item{type}{alternative hypothesis} +#' #' @section Deprecated Function: -#' \code{levene_test()} has been deprecated. Instead use \code{ifr_levene_test()}. +#' \code{infer_levene_test()} has been deprecated. Instead use \code{ifr_levene_test()}. +#' #' @references #' {Bland, M. 2000. An Introduction to Medical Statistics. 3rd ed. Oxford: Oxford University Press.} #' #' {Brown, M. B., and A. B. Forsythe. 1974. Robust tests for the equality of variances. Journal of the American Statistical Association 69: 364–367.} #' #' {Carroll, R. J., and H. Schneider. 1985. A note on Levene’s tests for equality of variances. Statistics and Probability Letters 3: 191–194.} +#' #' @examples #' # using grouping variable #' ifr_levene_test(hsb, read, group_var = race) @@ -102,6 +108,13 @@ ifr_levene_test.default <- function(data, ..., group_var = NULL, trim_mean = 0.1 return(out) } +#' @export +#' @rdname ifr_chisq_assoc_test +#' @usage NULL +#' +infer_levene_test <- function(data, ..., group_var = NULL, trim_mean = 0.1) { + .Deprecated("ifr_levene_test()") +} #' @export #' diff --git a/R/ifr-mcnemar-test.R b/R/ifr-mcnemar-test.R index 65fd78f..397e626 100644 --- a/R/ifr-mcnemar-test.R +++ b/R/ifr-mcnemar-test.R @@ -5,6 +5,7 @@ #' @param data a \code{data.frame} or \code{tibble} #' @param x factor; column in \code{data} #' @param y factor; column in \code{data} +#' #' @return \code{ifr_mcnemar_test} returns an object of class \code{"ifr_mcnemar_test"}. #' An object of class \code{"ifr_mcnemar_test"} is a list containing the #' following components: @@ -24,13 +25,14 @@ #' \item{ratio}{ratio of proportion with factor} #' \item{odratio}{odds ratio} #' \item{tbl}{two way table} +#' #' @section Deprecated Function: -#' \code{mcnermar_test()} has been deprecated. Instead use +#' \code{infer_mcnermar_test()} has been deprecated. Instead use #' \code{ifr_mcnemar_test()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. #' -#' @seealso \code{\link[stats]{mcnemar.test}} #' @examples #' # using variables from data #' hb <- hsb @@ -45,6 +47,9 @@ #' #' # using matrix #' ifr_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) +#' +#' @seealso \code{\link[stats]{mcnemar.test}} +#' #' @export #' ifr_mcnemar_test <- function(data, x = NULL, y = NULL) UseMethod("ifr_mcnemar_test") @@ -86,6 +91,14 @@ ifr_mcnemar_test.default <- function(data, x = NULL, y = NULL) { return(result) } +#' @export +#' @rdname ifr_mcnemar_test +#' @usage NULL +#' +infer_mcnemar_test <- function(data, x = NULL, y = NULL) { + .Deprecated("ifr_mcnemar_test()") +} + #' @export #' print.ifr_mcnemar_test <- function(x, ...) { diff --git a/R/ifr-os-prop-test.R b/R/ifr-os-prop-test.R index b809ca2..45856ba 100644 --- a/R/ifr-os-prop-test.R +++ b/R/ifr-os-prop-test.R @@ -8,6 +8,7 @@ #' @param alternative a character string specifying the alternative hypothesis, #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter. +#' #' @return \code{ifr_os_prop_test} returns an object of class \code{"ifr_os_prop_test"}. #' An object of class \code{"ifr_os_prop_test"} is a list containing the #' following components: @@ -22,17 +23,22 @@ #' \item{exp}{expected number of 0's and 1's} #' \item{deviation}{deviation of observed from expected} #' \item{std}{standardized resiudals} +#' #' @section Deprecated Function: -#' \code{prop_test()} has been deprecated. Instead use \code{ifr_os_prop_test()}. +#' \code{infer_os_prop_test()} has been deprecated. Instead use \code{ifr_os_prop_test()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. -#' @seealso \code{\link[stats]{prop.test}} \code{\link[stats]{binom.test}} +#' #' @examples #' # use as a calculator #' ifr_os_prop_test(200, prob = 0.5, phat = 0.3) #' #' # using data set #' ifr_os_prop_test(hsb, female, prob = 0.5) +#' +#' @seealso \code{\link[stats]{prop.test}} \code{\link[stats]{binom.test}} +#' #' @export #' ifr_os_prop_test <- function(data, variable = NULL, prob = 0.5, phat = 0.5, @@ -77,6 +83,15 @@ ifr_os_prop_test.default <- function(data, variable = NULL, prob = 0.5, phat = 0 return(result) } +#' @export +#' @rdname ifr_os_prop_test +#' @usage NULL +#' +infer_os_prop_test <- function(data, variable = NULL, prob = 0.5, phat = 0.5, + alternative = c("both", "less", "greater", "all")) { + .Deprecated("ifr_os_prop_test()") +} + #' @export #' print.ifr_os_prop_test <- function(x, ...) { diff --git a/R/ifr-os-t-test.R b/R/ifr-os-t-test.R index d5ed7cb..d2307aa 100644 --- a/R/ifr-os-t-test.R +++ b/R/ifr-os-t-test.R @@ -9,6 +9,7 @@ #' one of "both" (default), "greater", "less" or "all". You can specify just the #' initial letter #' @param ... additional arguments passed to or from other methods +#' #' @return \code{ifr_os_t_test} returns an object of class \code{"ifr_os_t_test"}. #' An object of class \code{"ifr_os_t_test"} is a list containing the #' following components: @@ -30,11 +31,12 @@ #' \item{conf}{confidence level} #' \item{type}{alternative hypothesis} #' \item{var_name}{name of \code{x}} +#' #' @section Deprecated Function: -#' \code{ttest()} has been deprecated. Instead use \code{ifr_os_t_test()}. +#' \code{infer_os_t_test()} has been deprecated. Instead use \code{ifr_os_t_test()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. -#' @seealso \code{\link[stats]{t.test}} #' #' @examples #' # lower tail @@ -49,6 +51,8 @@ #' # all tails #' ifr_os_t_test(hsb, write, mu = 50, alternative = 'all') #' +#' @seealso \code{\link[stats]{t.test}} +#' #' @export #' ifr_os_t_test <- function(data, x, mu = 0, alpha = 0.05, @@ -99,6 +103,15 @@ ifr_os_t_test.default <- function(data, x, mu = 0, alpha = 0.05, return(result) } +#' @export +#' @rdname ifr_os_t_test +#' @usage NULL +#' +infer_os_t_test <- function(data, x, mu = 0, alpha = 0.05, + alternative = c("both", "less", "greater", "all"), ...) { + .Deprecated("ifr_os_t_test()") +} + #' @export #' print.ifr_os_t_test <- function(x, ...) { diff --git a/R/ifr-os-var-test.R b/R/ifr-os-var-test.R index 8639ccd..536c9a2 100644 --- a/R/ifr-os-var-test.R +++ b/R/ifr-os-var-test.R @@ -10,6 +10,7 @@ #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter #' @param ... additional arguments passed to or from other methods +#' #' @return \code{ifr_os_var_test} returns an object of class \code{"ifr_os_var_test"}. #' An object of class \code{"ifr_os_var_test"} is a list containing the #' following components: @@ -29,11 +30,13 @@ #' \item{var_name}{name of \code{x}} #' \item{conf}{confidence level} #' \item{type}{alternative hypothesis} +#' #' @section Deprecated Function: -#' \code{os_vartest()} has been deprecated. Instead use \code{ifr_os_var_test()}. +#' \code{infer_os_var_test()} has been deprecated. Instead use \code{ifr_os_var_test()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. -#' @seealso \code{\link[stats]{var.test}} +#' #' @examples #' # lower tail #' ifr_os_var_test(mtcars, mpg, 5, alternative = 'less') @@ -46,6 +49,9 @@ #' #' # all tails #' ifr_os_var_test(mtcars, mpg, 5, alternative = 'all') +#' +#' @seealso \code{\link[stats]{var.test}} +#' #' @export #' ifr_os_var_test <- function(data, x, sd, confint = 0.95, @@ -96,6 +102,15 @@ ifr_os_var_test.default <- function(data, x, sd, confint = 0.95, return(result) } +#' @export +#' @rdname ifr_os_var_test +#' @usage NULL +#' +infer_os_var_test <- function(data, x, sd, confint = 0.95, + alternative = c("both", "less", "greater", "all"), ...) { + .Deprecated("ifr_os_var_test()") +} + #' @export #' print.ifr_os_var_test <- function(x, ...) { diff --git a/R/ifr-runs-test.R b/R/ifr-runs-test.R index b86b7cf..cc73385 100644 --- a/R/ifr-runs-test.R +++ b/R/ifr-runs-test.R @@ -14,7 +14,8 @@ #' @param mean logical; if TRUE, mean will be used as threshold #' @param threshold threshold to be used for counting runs, specify 0 if data #' is coded as a binary. -#' @return \code{ifr_runs_test} returns an object of class \code{"ifr_runs_test"}. +#' +#' @return \code{infer_runs_test} returns an object of class \code{"ifr_runs_test"}. #' An object of class \code{"ifr_runs_test"} is a list containing the #' following components: #' @@ -27,8 +28,10 @@ #' \item{n_runs}{number of runs} #' \item{z}{z statistic} #' \item{p}{p-value of \code{z}} +#' #' @section Deprecated Function: #' \code{runs_test()} has been deprecated. Instead use \code{ifr_runs_test()}. +#' #' @references #' {Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric Statistical Procedures, 4th edition. : Chapman & Hall/CRC.} #' @@ -37,6 +40,7 @@ #' {Madansky, A. 1988. Prescriptions for Working Statisticians. New York: Springer.} #' #' {Swed, F. S., and C. Eisenhart. 1943. Tables for testing randomness of grouping in a sequence of alternatives. Annals of Mathematical Statistics 14: 66–87.} +#' #' @examples #' ifr_runs_test(hsb, read) #' @@ -118,6 +122,14 @@ ifr_runs_test.default <- function(data, x, drop = FALSE, return(result) } +#' @export +#' @rdname ifr_runs_test +#' @usage NULL +#' +infer_runs_test <- function(data, x, drop = FALSE, split = FALSE, mean = FALSE, threshold = NA) { + .Deprecated("ifr_runs_test()") +} + #' @export #' print.ifr_runs_test <- function(x, ...) { diff --git a/R/ifr-ts-ind-ttest.R b/R/ifr-ts-ind-ttest.R index e81f57d..239677d 100644 --- a/R/ifr-ts-ind-ttest.R +++ b/R/ifr-ts-ind-ttest.R @@ -9,6 +9,7 @@ #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter #' @param ... additional arguments passed to or from other methods +#' #' @return \code{ifr_ts_ind_ttest} returns an object of class \code{"ifr_ts_ind_ttest"}. #' An object of class \code{"ifr_ts_ind_ttest"} is a list containing the #' following components: @@ -44,11 +45,13 @@ #' \item{var_y}{name of \code{y}} #' \item{confint}{confidence level} #' \item{alternative}{alternative hypothesis} +#' #' @section Deprecated Function: -#' \code{ind_ttest()} has been deprecated. Instead use \code{ifr_ts_ind_ttest()}. +#' \code{infer_ts_ind_ttest()} has been deprecated. Instead use \code{ifr_ts_ind_ttest()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. -#' @seealso \code{\link[stats]{t.test}} +#' #' @examples #' # lower tail #' ifr_ts_ind_ttest(hsb, female, write, alternative = 'less') @@ -61,6 +64,9 @@ #' #' # all tails #' ifr_ts_ind_ttest(hsb, female, write, alternative = 'all') +#' +#' @seealso \code{\link[stats]{t.test}} +#' #' @export #' ifr_ts_ind_ttest <- function(data, x, y, confint = 0.95, @@ -131,6 +137,15 @@ ifr_ts_ind_ttest.default <- function(data, x, y, confint = 0.95, } +#' @export +#' @rdname ifr_ts_ind_ttest +#' @usage NULL +#' +infer_chisq_assoc_test <- function(data, x, y, confint = 0.95, + alternative = c("both", "less", "greater", "all"), ...) { + .Deprecated("ifr_ts_ind_ttest()") +} + #' @export #' print.ifr_ts_ind_ttest <- function(x, ...) { diff --git a/R/ifr-ts-paired-ttest.R b/R/ifr-ts-paired-ttest.R index 0a2897c..4666016 100644 --- a/R/ifr-ts-paired-ttest.R +++ b/R/ifr-ts-paired-ttest.R @@ -8,6 +8,7 @@ #' @param alternative a character string specifying the alternative hypothesis, must be #' one of "both" (default), "greater", "less" or "all". You can specify just the #' initial letter. +#' #' @return \code{ifr_ts_paired_ttest} returns an object of class \code{"ifr_ts_paired_ttest"}. #' An object of class \code{"ifr_ts_paired_ttest"} is a list containing the #' following components: @@ -30,12 +31,14 @@ #' \item{alternative}{alternative hypothesis} #' \item{var_names}{names of \code{x} and \code{y}} #' \item{xy}{string used in printing results of the test} +#' #' @section Deprecated Function: -#' \code{paired_ttest()} has been deprecated. Instead use +#' \code{infer_ts_paired_ttest()} has been deprecated. Instead use #' \code{ifr_ts_paired_ttest()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. -#' @seealso \code{\link[stats]{t.test}} +#' #' @examples #' # lower tail #' ifr_ts_paired_ttest(hsb, read, write, alternative = 'less') @@ -48,6 +51,9 @@ #' #' # all tails #' ifr_ts_paired_ttest(hsb, read, write, alternative = 'all') +#' +#' @seealso \code{\link[stats]{t.test}} +#' #' @export #' ifr_ts_paired_ttest <- function(data, x, y, confint = 0.95, @@ -80,6 +86,15 @@ ifr_ts_paired_ttest.default <- function(data, x, y, confint = 0.95, return(result) } +#' @export +#' @rdname ifr_ts_paired_ttest +#' @usage NULL +#' +infer_ts_paired_ttest <- function(data, x, y, confint = 0.95, + alternative = c("both", "less", "greater", "all")) { + .Deprecated("ifr_ts_paired_ttest()") +} + #' @export #' print.ifr_ts_paired_ttest <- function(x, ...) { @@ -99,7 +114,7 @@ paired_comp <- function(x, y, confint, var_names) { corsig <- cor_sig(corr, n) alpha <- 1 - confint - + confint1 <- conf_int_t(b[[1, 1]], b[[1, 2]], n, alpha = alpha) %>% round(2) confint2 <- conf_int_t(b[[2, 1]], b[[2, 2]], n, alpha = alpha) %>% round(2) confint3 <- conf_int_t(b[[3, 1]], b[[3, 2]], n, alpha = alpha) %>% round(2) @@ -153,16 +168,16 @@ cor_sig <- function(corr, n) { } conf_int_t <- function(u, s, n, alpha = 0.05) { - + a <- alpha / 2 df <- n - 1 error <- round(qt(a, df), 3) * -1 lower <- u - (error * samp_err(s, n)) upper <- u + (error * samp_err(s, n)) c(lower, upper) - + } samp_err <- function(sigma, n) { sigma / (n ^ 0.5) -} \ No newline at end of file +} diff --git a/R/ifr-ts-prop-test.R b/R/ifr-ts-prop-test.R index e8e568d..bf11991 100644 --- a/R/ifr-ts-prop-test.R +++ b/R/ifr-ts-prop-test.R @@ -15,6 +15,7 @@ #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter #' @param ... additional arguments passed to or from other methods +#' #' @return an object of class \code{"ifr_ts_prop_test"}. #' An object of class \code{"ifr_ts_prop_test"} is a list containing the #' following components: @@ -26,13 +27,15 @@ #' \item{z}{z statistic} #' \item{sig}{p-value for z statistic} #' \item{alt}{alternative hypothesis} +#' #' @section Deprecated Functions: -#' \code{ifr_ts_prop_test()}, \code{ifr_ts_prop_grp()} and \code{ifr_ts_prop_calc()} have +#' \code{infer_ts_prop_test()}, \code{infer_ts_prop_grp()} and \code{infer_ts_prop_calc()} have #' been deprecated. Instead use \code{ifr_ts_prop_test()}, #' \code{ifr_ts_prop_group()} and \code{ifr_ts_prop_calc()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. -#' @seealso \code{\link[stats]{prop.test}} +#' #' @examples #' # using variables #' # lower tail @@ -48,6 +51,8 @@ #' # lower tail #' ifr_ts_prop_calc(n1 = 30, n2 = 25, p1 = 0.3, p2 = 0.5, alternative = 'less') #' +#' @seealso \code{\link[stats]{prop.test}} +#' #' @export #' ifr_ts_prop_test <- function(data, var1, var2, @@ -84,7 +89,25 @@ ifr_ts_prop_test.default <- function(data, var1, var2, #' @rdname ifr_ts_prop_test #' @usage NULL #' -ifr_ts_prop_calc <- function(n1, n2, p1, p2, +infer_ts_prop_test <- function(var1, var2, + alternative = c("both", "less", "greater", "all"), ...) { + .Deprecated("ifr_ts_prop_test()") +} + +#' @export +#' @rdname ifr_ts_prop_test +#' @usage NULL +#' +infer_ts_prop_grp <- function(data, var, group, + alternative = c("both", "less", "greater", "all")) { + .Deprecated("ifr_ts_prop_group()") +} + +#' @export +#' @rdname ifr_ts_prop_test +#' @usage NULL +#' +infer_ts_prop_calc <- function(n1, n2, p1, p2, alternative = c("both", "less", "greater", "all"), ...) { .Deprecated("ifr_ts_prop_calc()") } diff --git a/R/ifr-ts-var-test.R b/R/ifr-ts-var-test.R index 09664de..e8ec76a 100644 --- a/R/ifr-ts-var-test.R +++ b/R/ifr-ts-var-test.R @@ -7,6 +7,7 @@ #' @param alternative a character string specifying the alternative hypothesis, #' must be one of "both" (default), "greater", "less" or "all". You can specify #' just the initial letter. +#' #' @return \code{ifr_ts_var_test} returns an object of class \code{"ifr_ts_var_test"}. #' An object of class \code{"ifr_ts_var_test"} is a list containing the #' following components: @@ -28,11 +29,13 @@ #' \item{len}{number of observations} #' \item{lev}{levels of the grouping variable} #' \item{type}{alternative hypothesis} +#' #' @section Deprecated Function: -#' \code{var_test()} has been deprecated. Instead use \code{ifr_ts_var_test()}. +#' \code{infer_ts_var_test()} has been deprecated. Instead use \code{ifr_ts_var_test()}. +#' #' @references Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric #' Statistical Procedures, 4th edition. : Chapman & Hall/CRC. -#' @seealso \code{\link[stats]{var.test}} +#' #' @examples #' # using grouping variable #' ifr_ts_var_test(hsb, read, group_var = female, alternative = 'less') @@ -40,6 +43,8 @@ #' # using two variables #' ifr_ts_var_test(hsb, read, write, alternative = 'less') #' +#' @seealso \code{\link[stats]{var.test}} +#' #' @export #' ifr_ts_var_test <- function(data, ..., group_var = NULL, @@ -104,6 +109,15 @@ ifr_ts_var_test.default <- function(data, ..., group_var = NULL, return(out) } +#' @export +#' @rdname ifr_ts_var_test +#' @usage NULL +#' +infer_ts_var_test <- function(data, ..., group_var = NULL, + alternative = c("less", "greater", "all")) { + .Deprecated("ifr_ts_var_test()") +} + #' @export #' print.ifr_ts_var_test <- function(x, ...) { @@ -164,5 +178,5 @@ tbl_stats <- function(data, y) { dat <- data[[y]] c(length(dat), mean(dat), sd(dat), (sd(dat) / sqrt(length(dat)))) - + } diff --git a/man/ifr_binom_calc.Rd b/man/ifr_binom_calc.Rd index 80b2a36..dab0b99 100644 --- a/man/ifr_binom_calc.Rd +++ b/man/ifr_binom_calc.Rd @@ -2,7 +2,9 @@ % Please edit documentation in R/ifr-binom-test.R \name{ifr_binom_calc} \alias{ifr_binom_calc} +\alias{infer_binom_calc} \alias{ifr_binom_test} +\alias{infer_binom_test} \title{Binomial Test} \usage{ ifr_binom_calc(n, success, prob = 0.5, ...) @@ -41,7 +43,7 @@ categorical dependent variable significantly differs from a hypothesized value. } \section{Deprecated Functions}{ -\code{binom_calc()} and \code{binom_test()} have been deprecated. Instead use +\code{infer_binom_calc()} and \code{infer_binom_test()} have been deprecated. Instead use \code{ifr_binom_cal()} and \code{ifr_binom_test()}. } @@ -51,6 +53,7 @@ ifr_binom_calc(32, 13, prob = 0.5) # using data set ifr_binom_test(hsb, female, prob = 0.5) + } \references{ Hoel, P. G. 1984. Introduction to Mathematical Statistics. diff --git a/man/ifr_chisq_assoc_test.Rd b/man/ifr_chisq_assoc_test.Rd index 9bf638a..30d44a2 100644 --- a/man/ifr_chisq_assoc_test.Rd +++ b/man/ifr_chisq_assoc_test.Rd @@ -1,7 +1,9 @@ % Generated by roxygen2: do not edit by hand -% Please edit documentation in R/ifr-chisq-assoc-test.R +% Please edit documentation in R/ifr-chisq-assoc-test.R, R/ifr-levene-test.R \name{ifr_chisq_assoc_test} \alias{ifr_chisq_assoc_test} +\alias{infer_chisq_assoc_test} +\alias{infer_levene_test} \title{Chi Square Test of Association} \usage{ ifr_chisq_assoc_test(data, x, y) @@ -39,7 +41,7 @@ relationship between two categorical variables. } \section{Deprecated Function}{ -\code{chisq_test()} has been deprecated. Instead use +\code{infer_chisq_assoc_test()} has been deprecated. Instead use \code{ifr_chisq_assoc_test()}. } @@ -47,6 +49,7 @@ relationship between two categorical variables. ifr_chisq_assoc_test(hsb, female, schtyp) ifr_chisq_assoc_test(hsb, female, ses) + } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/ifr_chisq_gof_test.Rd b/man/ifr_chisq_gof_test.Rd index b8ee9ea..7f3484e 100644 --- a/man/ifr_chisq_gof_test.Rd +++ b/man/ifr_chisq_gof_test.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-chisq-gof-test.R \name{ifr_chisq_gof_test} \alias{ifr_chisq_gof_test} +\alias{infer_chisq_gof_test} \title{Chi Square Goodness of Fit Test} \usage{ ifr_chisq_gof_test(data, x, y, correct = FALSE) @@ -38,7 +39,7 @@ differ from hypothesized proportions } \section{Deprecated Function}{ -\code{chisq_gof()} has been deprecated. Instead use +\code{infer_chisq_gof_test()} has been deprecated. Instead use \code{ifr_chisq_gof_test()} } @@ -47,6 +48,7 @@ ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) # apply continuity correction ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140), correct = TRUE) + } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/ifr_cochran_qtest.Rd b/man/ifr_cochran_qtest.Rd index 19b9b40..e1fdea6 100644 --- a/man/ifr_cochran_qtest.Rd +++ b/man/ifr_cochran_qtest.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-cochran-q-test.R \name{ifr_cochran_qtest} \alias{ifr_cochran_qtest} +\alias{infer_cochran_qtest} \title{Cochran Q Test} \usage{ ifr_cochran_qtest(data, ...) @@ -27,12 +28,13 @@ equal in the same population. } \section{Deprecated Function}{ -\code{cochran_test()} has been deprecated. Instead use +\code{infer_cochran_test()} has been deprecated. Instead use \code{ifr_cochran_qtest()}. } \examples{ ifr_cochran_qtest(exam, exam1, exam2, exam3) + } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/ifr_launch_shiny_app.Rd b/man/ifr_launch_shiny_app.Rd index bf29059..9ce2419 100644 --- a/man/ifr_launch_shiny_app.Rd +++ b/man/ifr_launch_shiny_app.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-launch-shiny-app.R \name{ifr_launch_shiny_app} \alias{ifr_launch_shiny_app} +\alias{infer_launch_shiny_app} \title{Launch Shiny App} \usage{ ifr_launch_shiny_app() @@ -9,6 +10,11 @@ ifr_launch_shiny_app() \description{ Launches shiny app } +\section{Deprecated Function}{ + +\code{infer_launch_shiny_app()} has been deprecated. Instead use \code{ifr_launch_shiny_app()}. +} + \examples{ \dontrun{ ifr_launch_shiny_app() diff --git a/man/ifr_levene_test.Rd b/man/ifr_levene_test.Rd index d5d5ec5..a5cc134 100644 --- a/man/ifr_levene_test.Rd +++ b/man/ifr_levene_test.Rd @@ -50,7 +50,7 @@ the mean with the 10% trimmed mean. } \section{Deprecated Function}{ -\code{levene_test()} has been deprecated. Instead use \code{ifr_levene_test()}. +\code{infer_levene_test()} has been deprecated. Instead use \code{ifr_levene_test()}. } \examples{ diff --git a/man/ifr_mcnemar_test.Rd b/man/ifr_mcnemar_test.Rd index d26ef25..b740179 100644 --- a/man/ifr_mcnemar_test.Rd +++ b/man/ifr_mcnemar_test.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-mcnemar-test.R \name{ifr_mcnemar_test} \alias{ifr_mcnemar_test} +\alias{infer_mcnemar_test} \title{McNemar Test} \usage{ ifr_mcnemar_test(data, x = NULL, y = NULL) @@ -40,7 +41,7 @@ equal in the same population. } \section{Deprecated Function}{ -\code{mcnermar_test()} has been deprecated. Instead use +\code{infer_mcnermar_test()} has been deprecated. Instead use \code{ifr_mcnemar_test()}. } @@ -58,6 +59,7 @@ ifr_mcnemar_test(table(himath, hiread)) # using matrix ifr_mcnemar_test(matrix(c(135, 18, 21, 26), nrow = 2)) + } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/ifr_oneway_anova.Rd b/man/ifr_oneway_anova.Rd index 8d7e881..1b2a4c0 100644 --- a/man/ifr_oneway_anova.Rd +++ b/man/ifr_oneway_anova.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-anova.R \name{ifr_oneway_anova} \alias{ifr_oneway_anova} +\alias{infer_oneway_anova} \title{One Way ANOVA} \usage{ ifr_oneway_anova(data, x, y, ...) @@ -39,9 +40,16 @@ following components: \description{ One way analysis of variance } +\section{Deprecated Function}{ + +\code{infer_oneway_anova()} has been deprecated. Instead use +\code{ifr_oneway_anova()} +} + \examples{ ifr_oneway_anova(mtcars, mpg, cyl) ifr_oneway_anova(hsb, write, prog) + } \references{ Kutner, M. H., Nachtsheim, C., Neter, J., & Li, W. (2005). diff --git a/man/ifr_os_prop_test.Rd b/man/ifr_os_prop_test.Rd index 1953a21..c6fc3d8 100644 --- a/man/ifr_os_prop_test.Rd +++ b/man/ifr_os_prop_test.Rd @@ -3,6 +3,7 @@ \name{ifr_os_prop_test} \alias{ifr_os_prop_test} \alias{ifr_os_prop_test.default} +\alias{infer_os_prop_test} \title{One Sample Test of Proportion} \usage{ ifr_os_prop_test( @@ -56,7 +57,7 @@ specified population proportion. } \section{Deprecated Function}{ -\code{prop_test()} has been deprecated. Instead use \code{ifr_os_prop_test()}. +\code{infer_os_prop_test()} has been deprecated. Instead use \code{ifr_os_prop_test()}. } \examples{ @@ -65,6 +66,7 @@ ifr_os_prop_test(200, prob = 0.5, phat = 0.3) # using data set ifr_os_prop_test(hsb, female, prob = 0.5) + } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/ifr_os_t_test.Rd b/man/ifr_os_t_test.Rd index a417720..63eaf23 100644 --- a/man/ifr_os_t_test.Rd +++ b/man/ifr_os_t_test.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-os-t-test.R \name{ifr_os_t_test} \alias{ifr_os_t_test} +\alias{infer_os_t_test} \title{One Sample t Test} \usage{ ifr_os_t_test( @@ -57,7 +58,7 @@ hypothesis that a sample has a mean equal to a hypothesized value. } \section{Deprecated Function}{ -\code{ttest()} has been deprecated. Instead use \code{ifr_os_t_test()}. +\code{infer_os_t_test()} has been deprecated. Instead use \code{ifr_os_t_test()}. } \examples{ diff --git a/man/ifr_os_var_test.Rd b/man/ifr_os_var_test.Rd index 102cb81..6dfa1e5 100644 --- a/man/ifr_os_var_test.Rd +++ b/man/ifr_os_var_test.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-os-var-test.R \name{ifr_os_var_test} \alias{ifr_os_var_test} +\alias{infer_os_var_test} \title{One Sample Variance Comparison Test} \usage{ ifr_os_var_test( @@ -56,7 +57,7 @@ equal to a hypothesized value. } \section{Deprecated Function}{ -\code{os_vartest()} has been deprecated. Instead use \code{ifr_os_var_test()}. +\code{infer_os_var_test()} has been deprecated. Instead use \code{ifr_os_var_test()}. } \examples{ @@ -71,6 +72,7 @@ ifr_os_var_test(mtcars, mpg, 5, alternative = 'both') # all tails ifr_os_var_test(mtcars, mpg, 5, alternative = 'all') + } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/ifr_runs_test.Rd b/man/ifr_runs_test.Rd index f20ce0c..7b84c22 100644 --- a/man/ifr_runs_test.Rd +++ b/man/ifr_runs_test.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-runs-test.R \name{ifr_runs_test} \alias{ifr_runs_test} +\alias{infer_runs_test} \title{Test for Random Order} \usage{ ifr_runs_test( @@ -29,7 +30,7 @@ from \code{x}} is coded as a binary.} } \value{ -\code{ifr_runs_test} returns an object of class \code{"ifr_runs_test"}. +\code{infer_runs_test} returns an object of class \code{"ifr_runs_test"}. An object of class \code{"ifr_runs_test"} is a list containing the following components: diff --git a/man/ifr_ts_ind_ttest.Rd b/man/ifr_ts_ind_ttest.Rd index ba75051..b6ed83a 100644 --- a/man/ifr_ts_ind_ttest.Rd +++ b/man/ifr_ts_ind_ttest.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-ts-ind-ttest.R \name{ifr_ts_ind_ttest} \alias{ifr_ts_ind_ttest} +\alias{infer_chisq_assoc_test} \title{Two Independent Sample t Test} \usage{ ifr_ts_ind_ttest( @@ -71,7 +72,7 @@ there is statistical evidence that the associated population means are significa } \section{Deprecated Function}{ -\code{ind_ttest()} has been deprecated. Instead use \code{ifr_ts_ind_ttest()}. +\code{infer_ts_ind_ttest()} has been deprecated. Instead use \code{ifr_ts_ind_ttest()}. } \examples{ @@ -86,6 +87,7 @@ ifr_ts_ind_ttest(hsb, female, write, alternative = 'both') # all tails ifr_ts_ind_ttest(hsb, female, write, alternative = 'all') + } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/ifr_ts_paired_ttest.Rd b/man/ifr_ts_paired_ttest.Rd index 74218e3..84f09a2 100644 --- a/man/ifr_ts_paired_ttest.Rd +++ b/man/ifr_ts_paired_ttest.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-ts-paired-ttest.R \name{ifr_ts_paired_ttest} \alias{ifr_ts_paired_ttest} +\alias{infer_ts_paired_ttest} \title{Paired t test} \usage{ ifr_ts_paired_ttest( @@ -55,7 +56,7 @@ same mean, assuming paired data. } \section{Deprecated Function}{ -\code{paired_ttest()} has been deprecated. Instead use +\code{infer_ts_paired_ttest()} has been deprecated. Instead use \code{ifr_ts_paired_ttest()}. } @@ -71,6 +72,7 @@ ifr_ts_paired_ttest(hsb, read, write, alternative = 'both') # all tails ifr_ts_paired_ttest(hsb, read, write, alternative = 'all') + } \references{ Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric diff --git a/man/ifr_ts_prop_test.Rd b/man/ifr_ts_prop_test.Rd index 69798b3..93a2cd0 100644 --- a/man/ifr_ts_prop_test.Rd +++ b/man/ifr_ts_prop_test.Rd @@ -2,8 +2,11 @@ % Please edit documentation in R/ifr-ts-prop-test.R \name{ifr_ts_prop_test} \alias{ifr_ts_prop_test} -\alias{ifr_ts_prop_calc} +\alias{infer_ts_prop_test} +\alias{infer_ts_prop_grp} +\alias{infer_ts_prop_calc} \alias{ifr_ts_prop_group} +\alias{ifr_ts_prop_calc} \title{Two Sample Test of Proportion} \usage{ ifr_ts_prop_test( @@ -43,6 +46,10 @@ just the initial letter} \item{...}{additional arguments passed to or from other methods} +\item{var}{factor; column in \code{data}} + +\item{group}{factor; column in \code{data}} + \item{n1}{sample 1 size} \item{n2}{sample 2 size} @@ -50,10 +57,6 @@ just the initial letter} \item{p1}{sample 1 proportion} \item{p2}{sample 2 proportion} - -\item{var}{factor; column in \code{data}} - -\item{group}{factor; column in \code{data}} } \value{ an object of class \code{"ifr_ts_prop_test"}. @@ -75,7 +78,7 @@ within two independent groups or two samples have the same proportion. } \section{Deprecated Functions}{ -\code{ifr_ts_prop_test()}, \code{ifr_ts_prop_grp()} and \code{ifr_ts_prop_calc()} have +\code{infer_ts_prop_test()}, \code{infer_ts_prop_grp()} and \code{infer_ts_prop_calc()} have been deprecated. Instead use \code{ifr_ts_prop_test()}, \code{ifr_ts_prop_group()} and \code{ifr_ts_prop_calc()}. } diff --git a/man/ifr_ts_var_test.Rd b/man/ifr_ts_var_test.Rd index deab092..ca3d4ea 100644 --- a/man/ifr_ts_var_test.Rd +++ b/man/ifr_ts_var_test.Rd @@ -2,6 +2,7 @@ % Please edit documentation in R/ifr-ts-var-test.R \name{ifr_ts_var_test} \alias{ifr_ts_var_test} +\alias{infer_ts_var_test} \title{Two Sample Variance Comparison Test} \usage{ ifr_ts_var_test( @@ -51,7 +52,7 @@ deviations (variances). } \section{Deprecated Function}{ -\code{var_test()} has been deprecated. Instead use \code{ifr_ts_var_test()}. +\code{infer_ts_var_test()} has been deprecated. Instead use \code{ifr_ts_var_test()}. } \examples{ From 0a4dc3ac2d5b89efa71ad65946fc2e545b8aff9d Mon Sep 17 00:00:00 2001 From: rsquaredin Date: Tue, 20 Jul 2021 11:05:22 +0530 Subject: [PATCH 03/10] docs: wrong rdname tag --- R/ifr-levene-test.R | 2 +- man/ifr_chisq_assoc_test.Rd | 3 +-- man/ifr_levene_test.Rd | 1 + 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/ifr-levene-test.R b/R/ifr-levene-test.R index 9a2604a..b52dd0f 100644 --- a/R/ifr-levene-test.R +++ b/R/ifr-levene-test.R @@ -109,7 +109,7 @@ ifr_levene_test.default <- function(data, ..., group_var = NULL, trim_mean = 0.1 } #' @export -#' @rdname ifr_chisq_assoc_test +#' @rdname ifr_levene_test #' @usage NULL #' infer_levene_test <- function(data, ..., group_var = NULL, trim_mean = 0.1) { diff --git a/man/ifr_chisq_assoc_test.Rd b/man/ifr_chisq_assoc_test.Rd index 30d44a2..b701069 100644 --- a/man/ifr_chisq_assoc_test.Rd +++ b/man/ifr_chisq_assoc_test.Rd @@ -1,9 +1,8 @@ % Generated by roxygen2: do not edit by hand -% Please edit documentation in R/ifr-chisq-assoc-test.R, R/ifr-levene-test.R +% Please edit documentation in R/ifr-chisq-assoc-test.R \name{ifr_chisq_assoc_test} \alias{ifr_chisq_assoc_test} \alias{infer_chisq_assoc_test} -\alias{infer_levene_test} \title{Chi Square Test of Association} \usage{ ifr_chisq_assoc_test(data, x, y) diff --git a/man/ifr_levene_test.Rd b/man/ifr_levene_test.Rd index a5cc134..cb64b7b 100644 --- a/man/ifr_levene_test.Rd +++ b/man/ifr_levene_test.Rd @@ -3,6 +3,7 @@ \name{ifr_levene_test} \alias{ifr_levene_test} \alias{ifr_levene_test.default} +\alias{infer_levene_test} \title{Levene's test for equality of variances} \usage{ ifr_levene_test(data, ...) From 24e2c10b7b5555b9ce9ca6f00e7e305ad07cb4c8 Mon Sep 17 00:00:00 2001 From: rsquaredin Date: Tue, 20 Jul 2021 11:34:24 +0530 Subject: [PATCH 04/10] docs: fix deprecated functions tags --- NAMESPACE | 1 + R/ifr-ts-ind-ttest.R | 2 +- man/ifr_ts_ind_ttest.Rd | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/NAMESPACE b/NAMESPACE index de1904f..5e059f7 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -62,6 +62,7 @@ export(infer_os_prop_test) export(infer_os_t_test) export(infer_os_var_test) export(infer_runs_test) +export(infer_ts_ind_ttest) export(infer_ts_paired_ttest) export(infer_ts_prop_calc) export(infer_ts_prop_grp) diff --git a/R/ifr-ts-ind-ttest.R b/R/ifr-ts-ind-ttest.R index 239677d..d3df021 100644 --- a/R/ifr-ts-ind-ttest.R +++ b/R/ifr-ts-ind-ttest.R @@ -141,7 +141,7 @@ ifr_ts_ind_ttest.default <- function(data, x, y, confint = 0.95, #' @rdname ifr_ts_ind_ttest #' @usage NULL #' -infer_chisq_assoc_test <- function(data, x, y, confint = 0.95, +infer_ts_ind_ttest <- function(data, x, y, confint = 0.95, alternative = c("both", "less", "greater", "all"), ...) { .Deprecated("ifr_ts_ind_ttest()") } diff --git a/man/ifr_ts_ind_ttest.Rd b/man/ifr_ts_ind_ttest.Rd index b6ed83a..66992ef 100644 --- a/man/ifr_ts_ind_ttest.Rd +++ b/man/ifr_ts_ind_ttest.Rd @@ -2,7 +2,7 @@ % Please edit documentation in R/ifr-ts-ind-ttest.R \name{ifr_ts_ind_ttest} \alias{ifr_ts_ind_ttest} -\alias{infer_chisq_assoc_test} +\alias{infer_ts_ind_ttest} \title{Two Independent Sample t Test} \usage{ ifr_ts_ind_ttest( From 712a35ed695963e28e63d07c6fc2062b2947834f Mon Sep 17 00:00:00 2001 From: aravindhebbali Date: Mon, 4 Nov 2024 19:00:12 +0530 Subject: [PATCH 05/10] docs: closes #79 --- R/inferr.R | 3 +++ man/inferr.Rd | 15 +++++++++++++++ 2 files changed, 18 insertions(+) diff --git a/R/inferr.R b/R/inferr.R index ac5e6e0..3083a68 100644 --- a/R/inferr.R +++ b/R/inferr.R @@ -6,7 +6,10 @@ #' \href{https://github.com/rsquaredacademy/inferr}{GitHub} #' #' @docType package +#' @keywords internal #' @name inferr +#' @aliases inferr-package +"_PACKAGE" NULL ## quiets concerns of R CMD check re: the .'s that appear in pipelines diff --git a/man/inferr.Rd b/man/inferr.Rd index 16aba87..9786d1c 100644 --- a/man/inferr.Rd +++ b/man/inferr.Rd @@ -3,6 +3,7 @@ \docType{package} \name{inferr} \alias{inferr} +\alias{inferr-package} \title{\code{inferr} package} \description{ Parametric and non parametric statistical tests @@ -11,3 +12,17 @@ Parametric and non parametric statistical tests See the README on \href{https://github.com/rsquaredacademy/inferr}{GitHub} } +\seealso{ +Useful links: +\itemize{ + \item \url{https://rsquaredacademy.github.io/inferr/} + \item \url{https://github.com/rsquaredacademy/inferr} + \item Report bugs at \url{https://github.com/rsquaredacademy/inferr/issues} +} + +} +\author{ +\strong{Maintainer}: Aravind Hebbali \email{hebbali.aravind@gmail.com} (\href{https://orcid.org/0000-0001-9220-9669}{ORCID}) + +} +\keyword{internal} From a7919d1cedbf901206472a962507ab3e633cbcea Mon Sep 17 00:00:00 2001 From: aravindhebbali Date: Mon, 4 Nov 2024 19:21:13 +0530 Subject: [PATCH 06/10] ci: closes #81 --- .github/workflows/R-CMD-check.yaml | 80 +++++++++------------------- .github/workflows/test-coverage.yaml | 71 ++++++++++++++---------- README.Rmd | 4 +- README.md | 45 +++++++--------- 4 files changed, 86 insertions(+), 114 deletions(-) diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml index b0f3cd6..3cdf68c 100644 --- a/.github/workflows/R-CMD-check.yaml +++ b/.github/workflows/R-CMD-check.yaml @@ -1,16 +1,14 @@ -# For help debugging build failures open an issue on the RStudio community with the 'github-actions' tag. -# https://community.rstudio.com/new-topic?category=Package%20development&tags=github-actions +# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples +# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help on: push: - branches: - - master - - develop + branches: [master, develop] pull_request: - branches: - - master - - develop + branches: [master, develop] -name: R-CMD-check +name: R-CMD-check.yaml + +permissions: read-all jobs: R-CMD-check: @@ -22,63 +20,33 @@ jobs: fail-fast: false matrix: config: + - {os: macos-latest, r: 'release'} - {os: windows-latest, r: 'release'} - - {os: macOS-latest, r: 'release'} - - {os: ubuntu-20.04, r: 'release', rspm: "https://packagemanager.rstudio.com/cran/__linux__/focal/latest"} - - {os: ubuntu-20.04, r: 'devel', rspm: "https://packagemanager.rstudio.com/cran/__linux__/focal/latest"} + - {os: ubuntu-latest, r: 'devel', http-user-agent: 'release'} + - {os: ubuntu-latest, r: 'release'} + - {os: ubuntu-latest, r: 'oldrel-1'} env: - R_REMOTES_NO_ERRORS_FROM_WARNINGS: true - RSPM: ${{ matrix.config.rspm }} GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} + R_KEEP_PKG_SOURCE: yes steps: - - uses: actions/checkout@v2 + - uses: actions/checkout@v4 + + - uses: r-lib/actions/setup-pandoc@v2 - - uses: r-lib/actions/setup-r@v1 + - uses: r-lib/actions/setup-r@v2 with: r-version: ${{ matrix.config.r }} + http-user-agent: ${{ matrix.config.http-user-agent }} + use-public-rspm: true - - uses: r-lib/actions/setup-pandoc@v1 - - - name: Query dependencies - run: | - install.packages('remotes') - saveRDS(remotes::dev_package_deps(dependencies = TRUE), ".github/depends.Rds", version = 2) - writeLines(sprintf("R-%i.%i", getRversion()$major, getRversion()$minor), ".github/R-version") - shell: Rscript {0} - - - name: Cache R packages - if: runner.os != 'Windows' - uses: actions/cache@v2 + - uses: r-lib/actions/setup-r-dependencies@v2 with: - path: ${{ env.R_LIBS_USER }} - key: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-${{ hashFiles('.github/depends.Rds') }} - restore-keys: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1- - - - name: Install system dependencies - if: runner.os == 'Linux' - run: | - while read -r cmd - do - eval sudo $cmd - done < <(Rscript -e 'writeLines(remotes::system_requirements("ubuntu", "20.04"))') - - - name: Install dependencies - run: | - remotes::install_deps(dependencies = TRUE) - remotes::install_cran("rcmdcheck") - shell: Rscript {0} - - - name: Check - env: - _R_CHECK_CRAN_INCOMING_REMOTE_: false - run: rcmdcheck::rcmdcheck(args = c("--no-manual", "--as-cran"), error_on = "warning", check_dir = "check") - shell: Rscript {0} + extra-packages: any::rcmdcheck + needs: check - - name: Upload check results - if: failure() - uses: actions/upload-artifact@main + - uses: r-lib/actions/check-r-package@v2 with: - name: ${{ runner.os }}-r${{ matrix.config.r }}-results - path: check + upload-snapshots: true + build_args: 'c("--no-manual","--compact-vignettes=gs+qpdf")' diff --git a/.github/workflows/test-coverage.yaml b/.github/workflows/test-coverage.yaml index 9245d3a..5679b54 100644 --- a/.github/workflows/test-coverage.yaml +++ b/.github/workflows/test-coverage.yaml @@ -1,48 +1,61 @@ +# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples +# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help on: push: - branches: - - master - - develop + branches: [master, develop] pull_request: - branches: - - master - - develop + branches: [master, develop] -name: test-coverage +name: test-coverage.yaml + +permissions: read-all jobs: test-coverage: - runs-on: macOS-latest + runs-on: ubuntu-latest env: GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} + steps: - - uses: actions/checkout@v2 + - uses: actions/checkout@v4 - - uses: r-lib/actions/setup-r@v1 + - uses: r-lib/actions/setup-r@v2 + with: + use-public-rspm: true - - uses: r-lib/actions/setup-pandoc@v1 + - uses: r-lib/actions/setup-r-dependencies@v2 + with: + extra-packages: any::covr, any::xml2 + needs: coverage - - name: Query dependencies + - name: Test coverage run: | - install.packages('remotes') - saveRDS(remotes::dev_package_deps(dependencies = TRUE), ".github/depends.Rds", version = 2) - writeLines(sprintf("R-%i.%i", getRversion()$major, getRversion()$minor), ".github/R-version") + cov <- covr::package_coverage( + quiet = FALSE, + clean = FALSE, + install_path = file.path(normalizePath(Sys.getenv("RUNNER_TEMP"), winslash = "/"), "package") + ) + covr::to_cobertura(cov) shell: Rscript {0} - - name: Cache R packages - uses: actions/cache@v2 + - uses: codecov/codecov-action@v4 with: - path: ${{ env.R_LIBS_USER }} - key: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-${{ hashFiles('.github/depends.Rds') }} - restore-keys: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1- - - - name: Install dependencies + fail_ci_if_error: ${{ github.event_name != 'pull_request' && true || false }} + file: ./cobertura.xml + plugin: noop + disable_search: true + token: ${{ secrets.CODECOV_TOKEN }} + + - name: Show testthat output + if: always() run: | - install.packages(c("remotes")) - remotes::install_deps(dependencies = TRUE) - remotes::install_cran("covr") - shell: Rscript {0} + ## -------------------------------------------------------------------- + find '${{ runner.temp }}/package' -name 'testthat.Rout*' -exec cat '{}' \; || true + shell: bash - - name: Test coverage - run: covr::codecov() - shell: Rscript {0} + - name: Upload test results + if: failure() + uses: actions/upload-artifact@v4 + with: + name: coverage-test-failures + path: ${{ runner.temp }}/package diff --git a/README.Rmd b/README.Rmd index 8fb39a6..1bf6a9a 100644 --- a/README.Rmd +++ b/README.Rmd @@ -17,10 +17,8 @@ knitr::opts_chunk$set( > Tools for Statistical Inference -[![CRAN\_Status\_Badge](https://www.r-pkg.org/badges/version/inferr)](https://cran.r-project.org/package=inferr) [![cran checks](https://cranchecks.info/badges/summary/inferr)](https://cran.r-project.org/web/checks/check_results_inferr.html) -[![R build status](https://github.com/rsquaredacademy/inferr/workflows/R-CMD-check/badge.svg)](https://github.com/rsquaredacademy/inferr/actions) +[![CRAN\_Status\_Badge](https://www.r-pkg.org/badges/version/inferr)](https://cran.r-project.org/package=inferr) [![R-CMD-check](https://github.com/rsquaredacademy/inferr/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/rsquaredacademy/inferr/actions/workflows/R-CMD-check.yaml) [![Coverage status](https://codecov.io/gh/rsquaredacademy/inferr/branch/master/graph/badge.svg)](https://codecov.io/github/rsquaredacademy/inferr?branch=master) -[![status](https://tinyverse.netlify.com/badge/inferr)](https://CRAN.R-project.org/package=inferr) [![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html) [![](https://cranlogs.r-pkg.org/badges/grand-total/inferr)](https://cran.r-project.org/package=inferr) ## Overview diff --git a/README.md b/README.md index d944f36..7c75792 100644 --- a/README.md +++ b/README.md @@ -7,17 +7,10 @@ -[![CRAN\_Status\_Badge](https://www.r-pkg.org/badges/version/inferr)](https://cran.r-project.org/package=inferr) -[![cran -checks](https://cranchecks.info/badges/summary/inferr)](https://cran.r-project.org/web/checks/check_results_inferr.html) -[![R build -status](https://github.com/rsquaredacademy/inferr/workflows/R-CMD-check/badge.svg)](https://github.com/rsquaredacademy/inferr/actions) +[![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/inferr)](https://cran.r-project.org/package=inferr) +[![R-CMD-check](https://github.com/rsquaredacademy/inferr/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/rsquaredacademy/inferr/actions/workflows/R-CMD-check.yaml) [![Coverage status](https://codecov.io/gh/rsquaredacademy/inferr/branch/master/graph/badge.svg)](https://codecov.io/github/rsquaredacademy/inferr?branch=master) -[![status](https://tinyverse.netlify.com/badge/inferr)](https://CRAN.R-project.org/package=inferr) -[![Lifecycle: -stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html) -[![](https://cranlogs.r-pkg.org/badges/grand-total/inferr)](https://cran.r-project.org/package=inferr) ## Overview @@ -27,21 +20,21 @@ additional and flexible input options and more detailed and structured test results. As of version 0.3, **inferr** includes a select set of parametric and non-parametric statistical tests which are listed below: -- One Sample t Test -- Paired Sample t Test -- Independent Sample t Test -- One Sample Proportion Test -- Two Sample Proportion Test -- One Sample Variance Test -- Two Sample Variance Test -- Binomial Test -- ANOVA -- Chi Square Goodness of Fit Test -- Chi Square Independence Test -- Levene’s Test -- Cochran’s Q Test -- McNemar Test -- Runs Test for Randomness +- One Sample t Test +- Paired Sample t Test +- Independent Sample t Test +- One Sample Proportion Test +- Two Sample Proportion Test +- One Sample Variance Test +- Two Sample Variance Test +- Binomial Test +- ANOVA +- Chi Square Goodness of Fit Test +- Chi Square Independence Test +- Levene’s Test +- Cochran’s Q Test +- McNemar Test +- Runs Test for Randomness ## Installation @@ -56,8 +49,8 @@ devtools::install_github("rsquaredacademy/inferr") ## Articles -- [Introduction to - inferr](https://inferr.rsquaredacademy.com/articles/intro.html) +- [Introduction to + inferr](https://inferr.rsquaredacademy.com/articles/intro.html) ## Usage From a77d1271f9b14764d309303ee647f454ec07eda3 Mon Sep 17 00:00:00 2001 From: aravindhebbali Date: Fri, 8 Nov 2024 19:17:15 +0530 Subject: [PATCH 07/10] style: stick to 80 char lines --- R/ifr-binom-test.R | 6 ++++-- R/ifr-chisq-gof-test.R | 3 ++- R/ifr-cochran-q-test.R | 21 +++++++++------------ R/ifr-mcnemar-test.R | 7 ++++--- R/ifr-os-prop-test.R | 4 ++-- R/ifr-os-t-test.R | 15 ++++++++++----- 6 files changed, 31 insertions(+), 25 deletions(-) diff --git a/R/ifr-binom-test.R b/R/ifr-binom-test.R index bc19a22..fda240a 100644 --- a/R/ifr-binom-test.R +++ b/R/ifr-binom-test.R @@ -147,7 +147,8 @@ binom_comp <- function(n, success, prob) { } } - ttf <- pbinom(k, n, prob, lower.tail = T) + pbinom(i_k - 1, n, prob, lower.tail = F) + ttf <- pbinom(k, n, prob, lower.tail = T) + + pbinom(i_k - 1, n, prob, lower.tail = F) } else { while (p_opp <= i_p) { i_k <- i_k - 1 @@ -158,7 +159,8 @@ binom_comp <- function(n, success, prob) { } i_k <- i_k - tt <- pbinom(i_k, n, prob, lower.tail = T) + pbinom(k - 1, n, prob, lower.tail = F) + tt <- pbinom(i_k, n, prob, lower.tail = T) + + pbinom(k - 1, n, prob, lower.tail = F) ttf <- ifelse(tt <= 1, tt, 1) } diff --git a/R/ifr-chisq-gof-test.R b/R/ifr-chisq-gof-test.R index d605b09..d158486 100644 --- a/R/ifr-chisq-gof-test.R +++ b/R/ifr-chisq-gof-test.R @@ -65,7 +65,8 @@ ifr_chisq_gof_test.default <- function(data, x, y, correct = FALSE) { df <- n - 1 if (length(y) != n) { - stop("Length of y must be equal to the number of categories in x", call. = FALSE) + stop("Length of y must be equal to the number of categories in x", + call. = FALSE) } if (sum(y) == 1) { diff --git a/R/ifr-cochran-q-test.R b/R/ifr-cochran-q-test.R index ca203ba..24c580f 100644 --- a/R/ifr-cochran-q-test.R +++ b/R/ifr-cochran-q-test.R @@ -102,11 +102,10 @@ cochran_comp <- function(data) { pvalue <- 1 - pchisq(q, df) - list( - df = df, - n = n, - pvalue = round(pvalue, 4), - q = q) + list(df = df, + n = n, + pvalue = round(pvalue, 4), + q = q) } @@ -117,15 +116,13 @@ sums <- function(data) { g <- rowSums(data) gs_sum <- sum(g ^ 2) - list( - cl = cl, - cls_sum = cls_sum, - g = g, - gs_sum = gs_sum) + list(cl = cl, + cls_sum = cls_sum, + g = g, + gs_sum = gs_sum) } coch <- function(k, cls_sum, cl, g, gs_sum) { ((k - 1) * ((k * cls_sum) - (sum(cl) ^ 2))) / ((k * sum(g)) - gs_sum) -} - +} \ No newline at end of file diff --git a/R/ifr-mcnemar-test.R b/R/ifr-mcnemar-test.R index 397e626..3e4bc3c 100644 --- a/R/ifr-mcnemar-test.R +++ b/R/ifr-mcnemar-test.R @@ -135,7 +135,8 @@ mcpval <- function(test_stat, df) { } mcpex <- function(dat) { - 2 * min(pbinom(dat[2], sum(dat[2], dat[3]), 0.5), pbinom(dat[3], sum(dat[2], dat[3]), 0.5)) + 2 * min(pbinom(dat[2], sum(dat[2], dat[3]), 0.5), + pbinom(dat[3], sum(dat[2], dat[3]), 0.5)) } mcstat <- function(p) { @@ -204,13 +205,13 @@ serr <- function(dat, kappa, expected) { diagonal <- diag(dat_per) a <- diagonal[1] * (1 - (row_sum[1] + col_sum[1]) * (1 - kappa)) ^ 2 + - diagonal[2] * (1 - (row_sum[2] + col_sum[2]) * (1 - kappa)) ^ 2 + diagonal[2] * (1 - (row_sum[2] + col_sum[2]) * (1 - kappa)) ^ 2 x1 <- dat_per[lower.tri(dat_per)][1] x2 <- dat_per[upper.tri(dat_per)][1] b <- ((1 - kappa) ^ 2) * ((x1 * (row_sum[1] + col_sum[2]) ^ 2) + - (x2 * (row_sum[2] + col_sum[1]) ^ 2)) + (x2 * (row_sum[2] + col_sum[1]) ^ 2)) c <- ((kappa) - expected * (1 - kappa)) ^ 2 variance <- ((a + b - c) / ((1 - expected) ^ 2)) / sum(dat) diff --git a/R/ifr-os-prop-test.R b/R/ifr-os-prop-test.R index 45856ba..02881a9 100644 --- a/R/ifr-os-prop-test.R +++ b/R/ifr-os-prop-test.R @@ -42,14 +42,14 @@ #' @export #' ifr_os_prop_test <- function(data, variable = NULL, prob = 0.5, phat = 0.5, - alternative = c("both", "less", "greater", "all")) + alternative = c("both", "less", "greater", "all")) UseMethod("ifr_os_prop_test") #' @export #' @rdname ifr_os_prop_test #' ifr_os_prop_test.default <- function(data, variable = NULL, prob = 0.5, phat = 0.5, - alternative = c("both", "less", "greater", "all")) { + alternative = c("both", "less", "greater", "all")) { if (is.numeric(data)) { method <- match.arg(alternative) diff --git a/R/ifr-os-t-test.R b/R/ifr-os-t-test.R index d2307aa..033d1ed 100644 --- a/R/ifr-os-t-test.R +++ b/R/ifr-os-t-test.R @@ -56,15 +56,21 @@ #' @export #' ifr_os_t_test <- function(data, x, mu = 0, alpha = 0.05, - alternative = c("both", "less", "greater", "all"), ...) UseMethod("ifr_os_t_test") + alternative = c("both", "less", "greater", "all"), ...) UseMethod("ifr_os_t_test") #' @export #' ifr_os_t_test.default <- function(data, x, mu = 0, alpha = 0.05, - alternative = c("both", "less", "greater", "all"), ...) { + alternative = c("both", "less", "greater", "all"), ...) { - x1 <- deparse(substitute(x)) - xone <- data[[x1]] + if (is.numeric(data)) { + xone <- data + var_name <- "x" + } else { + x1 <- deparse(substitute(x)) + xone <- data[[x1]] + var_name <- names(data[x1]) + } if (!is.numeric(xone)) { stop("x must be numeric", call. = FALSE) @@ -77,7 +83,6 @@ ifr_os_t_test.default <- function(data, x, mu = 0, alpha = 0.05, } type <- match.arg(alternative) - var_name <- names(data[x1]) k <- ttest_comp(xone, mu, alpha, type) result <- From ec1ee27667ada1eca3a835b593cb8ab19366aeb3 Mon Sep 17 00:00:00 2001 From: aravindhebbali Date: Fri, 8 Nov 2024 19:17:59 +0530 Subject: [PATCH 08/10] misc: no idea what changed --- src-i386/RcppExports.cpp | 30 ------------------------------ src-i386/RcppExports.o | Bin 76984 -> 0 bytes src-i386/init.c | 24 ------------------------ src-i386/init.o | Bin 1328 -> 0 bytes src-i386/nsign.cpp | 22 ---------------------- src-i386/nsign.o | Bin 21088 -> 0 bytes src-i386/tvar.cpp | 17 ----------------- src-i386/tvar.o | Bin 23153 -> 0 bytes src/RcppExports.cpp | 5 +++++ 9 files changed, 5 insertions(+), 93 deletions(-) delete mode 100644 src-i386/RcppExports.cpp delete mode 100644 src-i386/RcppExports.o delete mode 100644 src-i386/init.c delete mode 100644 src-i386/init.o delete mode 100644 src-i386/nsign.cpp delete mode 100644 src-i386/nsign.o delete mode 100644 src-i386/tvar.cpp delete mode 100644 src-i386/tvar.o diff --git a/src-i386/RcppExports.cpp b/src-i386/RcppExports.cpp deleted file mode 100644 index f6f2ae6..0000000 --- a/src-i386/RcppExports.cpp +++ /dev/null @@ -1,30 +0,0 @@ -// Generated by using Rcpp::compileAttributes() -> do not edit by hand -// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393 - -#include - -using namespace Rcpp; - -// nsignC -double nsignC(NumericVector x); -RcppExport SEXP _inferr_nsignC(SEXP xSEXP) { -BEGIN_RCPP - Rcpp::RObject rcpp_result_gen; - Rcpp::RNGScope rcpp_rngScope_gen; - Rcpp::traits::input_parameter< NumericVector >::type x(xSEXP); - rcpp_result_gen = Rcpp::wrap(nsignC(x)); - return rcpp_result_gen; -END_RCPP -} -// gvar -List gvar(NumericVector ln, NumericVector ly); -RcppExport SEXP _inferr_gvar(SEXP lnSEXP, SEXP lySEXP) { -BEGIN_RCPP - Rcpp::RObject rcpp_result_gen; - Rcpp::RNGScope rcpp_rngScope_gen; - Rcpp::traits::input_parameter< NumericVector >::type ln(lnSEXP); - Rcpp::traits::input_parameter< NumericVector >::type ly(lySEXP); - rcpp_result_gen = Rcpp::wrap(gvar(ln, ly)); - return rcpp_result_gen; -END_RCPP -} diff --git a/src-i386/RcppExports.o b/src-i386/RcppExports.o deleted file mode 100644 index cefaee5804732e588400807629abb7139373dafe..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 76984 zcmeFa34B!5`96LpGdBy{1eJ;_qeewkoU9~5H4y?64HyY^E1HBbKx#;0GC{B|!6eEU zgQ(Pf!KLo4xUaQA5YW0%S6r%8ZOa(7Xw`z+@_XL%o^$TKGj}G@+TZv4|9^h>lRNXw zd!F;Y@7cFIlerf@ZqT*-0mGdP z6Y}glvbzPmK)l_&V3D0ic0Y;JC+y}GI1)m3zl-AuyLl5F8AEoBafWeJyxsiVdHF7+WQ8wB#L8kngY?fV=~|%@+dTqUtQtQBYJO1oDN_u?jrZO=w8@pdOT8xlF21KwgAPo%dv=( zae<@Wlik_iU1`%N{3|YY^a!=!EdcK!$xFv)VYehV!R|&kyCsDQ>D>h0ws^ZG#SVSc zKHddy#4-R}sJ3i3H<)iPxLU|R0dKVAY5#JAMfQYHzEqCKi|rEW%?*~=D=Ov7EbwMY zeY*bT=H}b=k$<(|wZ{23zSY@|O5sooc;`so#fXRgx%7zK+zIvqp){?Afi1lNxOBbB z&C9cQM3jy#c1Q4;(~(zXZ%CAmt>Aqr^;zj~c0`npFTvYoIRGvzpYt6BM|ORV8m{c- zm)PAQyTicSTk5my7UbKblikq}9GPIZV1k`TcE{QU_{`}o%(dqq*`*O>N`l?OLVLbY zK2HK~j^tVSTokl-9AvlA)oxLNy`qxc2zZMU>=rrlr4PIg@K#EmRZk}r+0BsMQhUPa zGmWdc#f}k}?1sSGlwh|cXs^#L;LQT>GaFB|-&|+IBz@~#?Ut0pr*{*0!!AVxT)KSo zf(7=5PIlh~Z=8)M?B)fF?d3ssEA0Y&7U|8)bqqAbI~lx?O`qgB2H;xo=7Kj*@-pz5 z?dIjix1)8gcJmw^CE0xeyn7Su<`vuZQGMPF-t&^D+fiPAo;_b`!P^SnYYG14JL)Ob zgOEMr@tM=>9Qet!<@1CRd%YsN zTV3rIJL(mscN=(C7xK9}U#y9u&83%m;w z?3NVS`%|)83*M>(yCn(fUF~K!KbTOykAb%_-fn)dFxTdD2k<)Z{wjGR@LAO7{Gh`w zmRiP?i5Sl>2f#(`L!=kOr9B;#-dga^kvyHx`MDG9?YspF8o|3(^7cnOwwvcz_>@Ba z?j-cjR{-F$?B+QZK4f?ApBlz?$+PU{IVOs=;Ee_ECo2JP>HaT2uf$$%l-_0F&6YgN zZhl^TdT#@7p5$3}^Bv`>1PkoEZIqA@)&i2Z6dy(T76cvhmvc~&w!z8P>xFu&J{LIK8`*7~ ziFPD;I=uy$7;{wd+5vrw!Mj%SsQ$3sTt_>f1^M=B!+78Zj;!l*L2j|V-jm%*ke`w~ z%dT^tT?^jH;Jqz*I-d*jitYJA+42|}w_T!q3-TTLM|S(bOS_SYmR%HxE$)ge%s0Rb zNFEg-r?;TUo{n{p&psXf+A5B0rMJ+rz$CkY8kC9TS$2yYc3aS34+C$+&8)AM;?cej znx%dGxEJ#4=VH9Pjd_;c36An0yP+`VM3QIOb+(Tx*qsI5*OCVpq}}2Ydp#h#xBUY1 zush@JmK4R$H>%D+{~~$XZecLrK8$Wdz-;hdle~kJ-9l$QT>yDyGv-)#$Js5+Ehu1- zc%}3{1m3BVXW7klq{Bdl^?|oo@h3tL_ z-eHnw+0A$Kr>kk9b0*rk%NcEBCR>;+r39uEPS3C5T_8n1(hOS6>&&IvY7LS5Tv#W?l(=&Y$&xq)c0!W@? z9YDNnS6-oG-bB2BJI^t1B3{syR}_p-N2xo{(Jo0}l{?STzYwn$yeDM-Q86ODD31xj z0$_C!uO(3*@f`E<0C*kXy<{&p*5_D%5O0;cK1Y8_ygu+gNzhm9=*Nk-#Z_OiV;(^~ zqaFKt_YqL*8A@+)aXyR0YXGkS@az}oi*sX&@}(5Ku~MIvf6jiR6uhbgeYK@Wpm^>5 zO8~qT;7yA6uPErKFT`7&pbzON3OY7!iMI*7Qxo*%=Gp5#@wU0@%XN$k#LHfU{v|l`hLsFkEk0R%I831pU zyS@qb@+bwb54??1pAVl)v#H#i^G@O!XCV(0d5(ED@k+rPy_zD>$&A+LnBR9m-T_{z z}0D#M~JE73- zAJv0C@a&i9$BQPE*xNbrHo5Yg^9bT?apyVuHR5e^<&`+rWyCY&*&9K+*uN6TK?L!# z-FXS=2)OakjoaHtDf9*7d9+_VA?TPNklhyWX3Ko$`2q2;VT>?!5w8Qhd5Jtn`4Vph zcr6LMyuu=-4DZBS1>V^SJS?c=c&owdisP-FC$91SFK(obeL##p_{WqQC!JUw z>ii@S>V7U1eYt&PsQZ=3FmS{)f;ge*tGTa)4*50|eQT@u-1)616kT808yX$SuZ%ud z5#1b$ej|b^qH8Ln8#hcPml1E@^;7m8ZG<}41%7^d&01yO|47ENsiXVfP@iFZY^c{9 zO;LJ>mx`E}qS7Z*ehSg29u{`?Wrw1s<((Aw4i_X2Ww>svNTXAKABqj}JLpa8-$V>) z3N-hQN<$w6Uynvi;j8o;`A#kgQEUp*#e7+>kOAGR5F9Fb&)?-kXlP=);qUt5-#{{t z$g;nC3nZ}*@iH$Veus$v4}aI8I{qGn9Pu+Ci4DPvj6XPkcfcUq6K>Vp+=`vZ&dBy9 z!tb_+-#{O@?9g&JOM3jFiPMdUDL<8?{4(NmmTN``m87Q9q5g!=y5 zobA1AmaL(*{zD=;RiWsMs#5icVIX`oKVU8{;qGSc1=9W-}Ny8nOm{fHJ|cp zgTL!dd*}x7;Z+8MirZ=5~}d6cdnZ-H37+FBhk05V6H2n9@&Yl3H9v4q@MIx8@V}g-%u3(y%rf_ zFJda+i6dnBiU_e%(bT0m-9l#P1VwNqy2bG*$J4ob zFqlMUtOxX}K zged_?|L2|t^A8UsY7E~0Bp7Dvj%^s*#s<%0Zx+qkS9b0eRP9C85 zp*o0yxFz%2AO7U;qM;MJw>ZiVD!JT?NiTJ&6e)76)g|;_#WFDar4E8iwKO)J zQY*Tx>!C!bvtD9hB}?qK*2X?XpqM7DSV46<)fL^ec7^>yr4kqIchVK=Da*7oRJfR1 z{s`fuPuv+kBO}inOsn;@czhnicMRn6eUD7j$eiN~dTY~KJXPcsI7XPR22`HZz`V&dmB_n)zhr(0`|yn=^<0)@xql8~UoZ4E!&A z!#^{P<>olU*kQtftJ2Nh4CAKs;UA|P&!j`JIeqx$8OE{3PkaybQbS&e_xm=FXQ^jGddxR8WG>AZda}7Aedq%7^Yo!-n}0|jdVy!3 zTQi2<>oK3r82Yrwd?I7$CXabV`p^$N=BA9H9ck&mOCP#C&3rgL>%KHInlbdfH1j#{ z&`xg|VqNDO{-w`&)HmHQZZOTuGL2uG!?&5nMoP$g=J0DWjpdYtFEYj?Iv?*l+!tj| z@3eTOa7tGI_tm&Faj(KnBuX>A*WxA~y?=qqnL~0!Y6STlz!tnON5&K*TrV!y6oD@d}^RRWwFAO(D0+A&x;XtH0(9jeK&kwf-5Gl~!77o<4!G3E) z-JHg7;H-wZkp%$+w6uon8`>J0n;iOQKzX>SxqbcuX@eMnwia;bHH2H+pqtdfmjEZ& zC~IqjC&Zdp*U%WAi(@34zczi!%{FqeHC#70&Z!>|&q@Q;5xd>Uf^gu#x%pcn-E-#Jvspb-dHU`A@k2jQcORsnUOno5H`s`(t?j7v4R1{|N7C z=#S=OZgvLlX54MK&%*sn+~?!&#C;L&9^9AWz5@4ExUa)~6Yg7a-+}uc-1p&r5ci|F zpTzxp+-q@f!2Ji@FXMg{_nWxi!Tmn&4{`qucR%jGRwiyj`Nfudx>R?P2?T}j8yarUZgV8^Qk33Q_#vXF85k_}(rV(jfGPy2NzrYB$ zwl=pK)N8c1w&S!Dz02GNYSI>(9&T%^n;$mH5wpEcG?RHjkb6{az(~|hsm#p`h8wPuRW0?ES`Eh;cYEp~AX(f)qJwM=pV=O6qb5t8>XCt;)7wuEY?~N}!0~Vd@U-y;J(J!N zX*H1d;a1(T*B^RlAiTIf+#<4RY(89GqGM8;5jhr<0Z(N~U;F3qKghEI zwI;?PMR^Dl4BBa*mBZ-_^#D~w`*?CBBk&$CNo_iiZly5P;|X~~TYF9jbUyE~#O3fK z8aMBl$@8m6M9!fNQ=*EW#+qnn$rsUABS%2hGO=yMJ6S!Y*iqQjK9=^Ku$LstQY?g{ z?}=iGZi6}On`76!gH(z=r!wlnjh&l9o!dSBDgV$MxZ+9o8tHS=f}UDp8^%I@`(NXS ztS5Ys^PkN9TxYn>I{tH+_W#=4??3bb8;B;gu_vf@h4p58NZ?x#^txQA_xiM@_t z<1n8&$_yKG_Toy(y8@WcsPiV(2tvJ$D5U61SjA%Vux$Gj8ql_iDlU_=?DXu!P2rWg z{qzo}dN21?dwxph=uE66gEk|1|2+T7AzM>KaQ5y_CHTAuS047 zZ$-J#zRS$GeV3h{gAX=8NHb2}=TB+IWuA0Q!f*DNz$|rA2P%6qa8zE=dx|Ib)5_k%ry!)Vw~%NR-qNj0YeyTa zv4Q`zw>Pw51+9Gum`Tbmw&M;;m(0Pa7TZcln_s)VbE9 zV=a2Qw`x;)?nfQpWSw!5qf7;Z4#tS9XqlXeO%E~x;0e)O4(CX>X<)e zWcwfSP8#R$8V`l#xvxyZS;2=0n-uY{Tr=rx|H@~wo{z5S{PVv$b}WD-^ZCf3YR*E| z5!Z!S2IiE^=iA?nKGXTZ`yJm@MqZh;*niOuGTA$787%o9=?m5SE(m#^+4+Igr_$H) zdzpdngI>1&qAhsi9Q>xjTeY?4n9(`McWw+sj~N}K(@!+aE-)xD+bK7HM+sXR8cq9l zW$S%8hCB^b;S_|jiv1pODKoyFlCejozk4-465SKyEqP_DfG{h=f+Hc^5WOp z3h~Gbc@nCBHsn19ZTOh%3KUGwG~rmb^glXnw7=^X^pl(dbcmB_j(IX41eKjuc6wRO z+KQfwwvp@Ieg3YqQ7=0d7o+CT3K|KgZ1BXsfn%Yb8<_TvzpI*Pza-jOpsnv_))hFE zE7Li*1uY2{;-fAbE?iNj@8(YC!*%{`cmsP~#pwlOhL4&WXsw zG8aDIxvBpyF_b1veQ8|kgOp!A85PlgS9)8vmUTS+XUeq5^s@CAZUK-ZOW8l)rLM21 zYIMg3$9Fy-h*ph`t%ckEM<%C*daKiL_TITQI4SF_5n{-A#4A26`Xcw0SOB!?J-?;& zPw)N|=?5t5I2Rc(1UAT;r~mRwdF)%!gGZH|X?t6w4FseOvpm^Gjs`0oIjM3;zbgW@ zvMM(M@)&u2RP1uJfmk-m z6T^%xS%6!!%G-Nn;Wu?C$b@ZCfj@=Ti87zQ@qJDr`}PG)O|<)ATk5b5a5_b&9XZuPXkfe*Q_h%kB)73yN8(o@ITj zqUUGonLPN0J}WYW9zakXH}&RZKJ|BB$!%9Z+J=5b)#Zs9m^;~LA@;7aw_ z<3tR$wgP^fI!fVh?kknl3}q!z4H1J?6-^tb%kAhuDEbU1k9Pqpd*|lV5@80~3Z7X& z^(coinFWxyh$r0E=qB4c%0w4k_88?fc$Lw)ImJR@W$$e{9S~AdinRuO2&fMgz2%v# zjan;LUTUxbn5F@R*YYy+yM!{aNh!A`{mWY^*D%Ftaf+LyxYjAom*Og?_ymZZn*?h5 zfSw_CfSAy5*P%NkDzRt3wLhZ>kC9X?Nc&WwA%j9ayH}LF5m#9%O5Ti};6@T4FVn@$^c+N{-t7%qk98o^Ft^v*L}|tgYV87DIGz7S_w<&(y9&LI zs3ZNiO1-@>(f=@gpt?bpdRMX~3emQl{3|(f|4lHUDtGKic+LeGn*!MX4-{$actT(I zf7$;<|F%%im{19Ncz@SDkS63Nmr?9egb_3PEWR+{EPV*K_CMACX#d0g50dh1Qhp75 z!Q3@7B>aW{wj7E*%gTgrv2&1k)zGNbwxA+jjaI9gn0oJjQDleAa1>yz&IanNdd9?F z78QL=Yy;l=Z|c7x)&$kD2I|rg`YV!Bn&0hzyMJ@+EBGKDv5SR>MI%G(D0(TOm%mZy z2lVnMdf7}b$5KE!Uiz=?|7~m+`ZOFbG|$|1h_S0@SHo?lx%0ZsX`Vl(?RgM-QnP!c zG0*HAX)H2d&o(aim^Y6!Zt<8mjWizcm^X|x@J!ZqBaN3m<~1XY_dVuiBaMEKdC5rQ zYma%+NMmW5xpkz`n`VAE(zrU!d}^ezD$RU!B%T&9A3)qR^EV@nSJKQoN8&jE^VX3# z@i)Km8<*kPw~;tmH{Ty=JnS{!9%(%1HD4cTeBw2K<2O2d=61i)<1;snG_LoVe}Fch zxqhVal+Ro<(%9%TzxErOedd>b<0D^B+M9mkiVXAKY~$_>^R{f`=?wI6pJbR9WE&ls z<{f^cH`DyJ-?$;uyuokWm1$n*Hy+P4SNM%hnFn|HjVrUv?IXN*WtsgWylb<}jU&99 zv&<()c>j`RK0d;`Bg=emxOc@6vn$)%J=EMV)VOh|d6(aKW~h0O-{>0tF#5QS+2*&| z#-?oZ&1~a*Lp~UX=J#nPUU1p=5@}a8)RQH9-hC*PTERrGH3ng@8iE7}3isj6p6JCh zm^NC^2up4orqoO`x&!B{7Q;E8{E0F^N22Nhv(I&e-r;&Khdp|XV`@cP*)z1Voto4->4{$Q%*Ip(bijmeHQW?cGFW)W+ML!Eo zoEZ6?HSz1eA3Z`pzLB=R|1W3*`vNpGp_U$Je6j==`n$09uwkkJti2a;`H1LUgUKi%APJhhf~@32Yz}DM|~9` z#~Bv(LquF`ugT~5yrO*MQPw=$ck>+QSsU%=S+&9<>Xdztdg&*{G-ISa>6gSe&t9#J zcIB*qYzj81v0Z=@hHSZGKts}EK5^*E>43JLsiQ%@1jygjg8fkcBNuMLhh<$kJ$UQ> zbVFAT&9~_CFFzeg4)u2BT#rwBc`zmCWRlTQ4QUV22eG)qhbon5@xY@v_2*3J>>Eww z1#&FJW*#1H=<17%pLAgR7_l1KQE|v7kwG25^c?8#z6|kb(}KPiz#Gn8eeJJEX7qhU zrje(i^M30H3bcplvVUW&Xh2|)pHW?Nc{3C zSg&A75D={P50|}Y%MjUG*z8?1oN|M%J zJrOExY*9xeyJwU49k8SXnIYP3iMPsERoz-J#xx#9nWx zcgD%0oTm4*XHxcKR`EG3Gh#>|MD5OfCHFbRq-`TwHE@r>G-@1ukcmfBu!qRedQZfZWX8#) zK7dG47uMRCz(I^N1|gz~w)B#mQt~Jht=nGb=xH;n&V7zgjyi`eN1D!Dg_z{s^yn5g z0*k94qgFt9ASx`K0EK#1ip;8nzpIIWjob_GAO?(5&e8HFfcMJYr=*5i^c6u)onAyi zZ68R^g#itkq<e^>>N(*166zz2wVC zPS3I1yPsR~stj!Z+j=9Q^j0vZ{as;z_DqyQPO#IXY~c~=j}XUKg46|1Sx1GY7f&L) zR9}zk7+*ctmrH0bYK-ZPVJ~)g=AIs+)j+?-5>e8RsfWBoRb62j57ZtQ*us`!;tEY zz^$Tus+2dVD!@Nr}#gMmW?MaZC}pPHtfT zdFLi+HP(%6kj(^39v--;J<1ZLE=vZhT~Qm&t>C9(C_aZ)`l|nWN|bm%zNRxH6AKBU zjlRH(DUtf#uS(xJbn4WVb0vI63V2gp)@fC@d#@L5m1w`R)0B7W9bR&~r1jfs!IUQ% z{TIpQjF38OfLOB7+D~;Ejw*AU7*Mrln!2L4aDraw-_ZYI2;OaiE#0H^jtbD2t_o1S zC(=T$w3VV~k?xXWZBMD}f7@=ePf(JaMp&+;q9O4z!}>4o|J=T{&1iW| zc^*QqiZ7%5eT4B`hIysmcrU};gx&d!liu?i-B^TV8@FVcS7Mozb>e*^jo45mdg(9| z@UCGLxPF*<|48G;;e;<4QEwQR(Z2pC^s+45gpL*2=2O|meF8t4ZN8mtyf_kpua7jB z?qYmN@Vk-buXiz4?Se($bGw*d?P6@*1=4N1m>2Adyb)Jd7QZ{@mz|$1z~nOeCY_0h zJ+7ldw2Udm7ceo!s>;mm>o{_pe`OyI@kM#7=Wr5!s^G6Qu=G~aIPtc6k_Xc@dtY3M z=Y)>-FBeD7_VcrB8i2anX;|wyF>^XCOSm?dcJ1_c|Be*%H`y_c;OnIo(ZACctYPii zh3I?fjs+C_5bk0q#&28bHZ=SeWQq!qJEpRo**4b^N$!E_Fx#T3Pws@uF#2Bh-Eh%b zq2R09<-L&{4=w1JBw{>H1tDw;ckLVd*uJY$UXiGE@QgLyja0(BOF9=Z#81m{xz{>9(vY?gj6gUek076a{OrCUpV zmDD0b!2t9)}fD!fNTe@Sby9{ew454od2TBc*#rVSauW1P~rqmFXGqwPmQ*v)T ziU}m9e6b5e1WajTqbs8y3%B_@t9HSodafWDxrimbSEC#b}f#YJD&A zJKp6WBF==LaoedA`xHH%Vife8^f!kXzxJ5lWEn4dMm?Wp{LM3OOBTLoV*-DgW^T+f zzDqOLXBn4x&2?GEmEIHX&N4ppMqbD={_Zn@yG`@mA;vZ4IPlk-=AVZcH>R6Avy7M0 z%@sq8ZRzF{LyU_u%x8ue4`!IJW*UFUNZ&BTcsIj*0e0#5`C;0cqN_o^|98fTH>f)w z)HrdD7!c62f4;LSTZ{_Wtm3Xu3=CAu|CbL8cfm!gYW}~0K@0<~14HwFGBEsXFayK! z?gPWYNd^Wy>(e`GFylh!_Z$~?{!fn!o8!g>dKS_e7aFW_0o|V-2imBYw~qrGX&kT% zR*@jCEB%qi0qXLf>fhnovG?EFf3q9~?Bhhju+jen28#Z_^*@LWWT%(?kH-nb0F`_M zI09XJEQemk;6;uAdjetvi5)E8gZ$qAptX`1cF zlg-p%uv%ylzxT2-hc@n}M>kBzvZ41l-Yt~tX{^HU1eunBv_H3sFfNGiB8V9&q^qTr z@M8+oA{?Ll)Mwz03S%2;BVwyHd(Yy`%AN(;A@A{6Hi-52A&v=G?{Q+&ume%(BDKpH z3cNyLtWAOxNZYk^5nd$_aPQR7^!ZNpnKmXN#9GJcjMzNDCcN}OWFY3ta?kKFM5pOG z?=fgvZ#6auj}se&eF){a@&SBokx~9u_LgUtJq|#5iJzUL4O>95Auo(n0tYLRe$1mH z*t5q+%wa?j;aVGBAPiJug@Px@X}55j5L865d!m;Aw6!f}%&<>61QM;$F8U*x#qJYj zlGuI1<4V|mArnEF=E|I)bLRagibENQczuLB*CXE^;zC43d}EOPRGH_D-bqm;gUV8| zq`7Ha>Xd<%(MF$B85a(x7u#t|*HPV#oBo&T1gTxm_%v~wMpuUbp)1yi#_c@Q8Lz*i z6w9WT-&>6tEw6Et5klLssCQ?t9ZX-VzT{?^7}pJ#th?aob{&TJKyHJ z8OA2>Pu|QhuJV~LW*B$)%vUmuJ`-;Dn>BK?NqB$XSzp|3l4j5uq8=p90@Zn>+Z6i>&FeS&_PPH}ML7(~J9-=O5Bo)B5v z1mef+RB92Esx3d~rXKWxARxBu)N?&}hJ~IGfN<1CcpZwSb8V7MOFky6_wy3B_OP=O z{ai0CIyc}@M8+k*n<;+yQz*xfX6+2vmeG(?PbxX`M>$6=gGh#iHkj8_?}BT+c?b71 z_FvOnZ{8_{8_atp4KZl{i!MO1_GGwDNuy?h%^q<;4x7}+Bibc+qYH4Qf>FC&1YEBI zHkh|r@LmPkN~m`-#t!o#OG=4T=@s2CvI8RgSfwpwcnHQ7Ycx56$En1d2!Y1ErN;Fp zO&KXVUO_WU@wVO^D})=&!z2wc3M@Fuf>RWXnu#{~=TSS?W{0Bt2=g0E`sp3IoCcv@ z{7wx8z&F7VFh@aFkHEu}1RhDK5-PJ}6~s_440fvDWkIFYosXz9pQ%ap zNJ)}Jf^0|{oT9 zM1RenDL=-#7`_ZH4HL-K~r-CKT)H8@4(U#AD{g# z7QYM8RM(gntWduY5uRJFe&4`~9+#TI=0|RDCVojKT(@ve`@D+EIl1NKN@cu1@dntx zxcI^E8^3sFGuw9>hq1xgx5u{`cZo0kolq%%#$zyf7@y|<_xXQs4p3h=m`luUG5J#O zgNZX34vkoJsrORx3BRu{-~Xrm`=7S2@`vBG)CyBs-`zIO*`rElZp!PV`0s|z>irS5-1p7GCu#mcs$={^qYQ-5PKD1Hfme<@N+X&Ya_9kCHV%lb6>8a$Ky0lH zh^>WmXthRX0BynTGkWkk9CII^aWxR7%4ggPlqY1gwVW@|?}4yTKmo3)I7^NY3o4T!buhQsI$Lf_s%TyA5v>~J8? zN%~DMnmqfAYM=sPV;<090xbec6X+ZuwsE0GJwUAGdLT~keL!9j<0&AHyAFtR_gx?^ z-_JA;zws&ah1TJ;MDiK*T|q{pfY`pbRQ7MeFTW}{&zr}yUze|+}D6O zH@*PkbYx>q!DtK+#~la6Wl6ta&Y|;w3PtX=0X-sG-YQ-uBzh)Zw_5ZnC=P^+-^1rXc7MhnzXdHC?WDSMR-#CAsm zc|>Rc=z0-%ED+m03dkoyCj+s*=|HUI6d?NdWj>=0h+~`s#4(lvaf~PsdvFU7$Gt;` z-U~EA*my*TKCMI716?X?jLcN&Jqn2H%ke;*_df^XdN5DR&H>^w>H^}nb)}YF2gEh@ zE+8)bw}7bk@)`X=oT7gKaXlD{XJEKh>;uGke*_TceVInp8l3{fp4Mx$0Eq3j0W zABeTA1mcppPNP*oTx0J5Vtu~_;D5+K$$8HlwU z4|I>HYbOD5j8-6yaTXBAI3I{TxC)5N?Rp??c`s<$I~sil#N{>wJ2ISqIY3;8P61*M zP6uKe^+4Pz7V6M;9eOShw+fn*elB{3?|?oPXf|FML1esxPab+I*mz1HTAk8kJ03CL ze^DUfq1qc>)O>{~#=nFNFXI13aVT{sUZIbEN0bIP!$9ScaT!ruQ-{J?8On%4vqUIu zDZMYy3XR6%GyM(>#t)5x8Wm_10^+zdL*W=(HTp!OZ5lzT@lV{G4o2k5a4@{$SE^Y? zImC!|$vBkqnPq!x6wskLS~gar!*pm+%P769rC5hf(y~&Grs&X+mQ`w0r9)?F*~uEs z)}d53zd_o3;#aA8?g)|CpWr;8lyX^)6nQ|o!7(V69ODom%1x>nhCxqIaa=|eW0Z)S z%o^n!$6!P;_86qKy>whg6n7sTmuK*MLdNJoAoiYq+Kjy~0phvx@j##IbnJ^y>=h%@ zyr0$_z$c%m<2*Ab8;rh>jj@QuHW-nO1GSBD!p0OdyNd-1X;i6El}58PI$5LH8r5nv zSEB_QHEPtNQADG~8l9t2hell*Ez{@{jp+L^?EOlOuGWZ-0yuP)Mz?81CjlIKuSTmi zdPt+kG@{c1j?t&lI*m4J^nym4G=%^JO{(H4z9(rBwjpJ=pAqc1huuF-cIq1dIT zK8-Rp8m3XUM!RV=TBE%+3TTw0(O8WR(fkwp|P12}TqbVANG^*67N~2jCovhJp zjcPTTtI-0D8Z~OsD5B9~jp&&zF5eD~x-?p*(IpzK&}gMbS8H^=MyoWsO`|(Cx>uvs z8a<@ZV;ViBQJ+TZG}@@q3mR?G=rxTtYxJ&0TQvGeqpcc!qR}>uzSL;DM&D^foi*pA zPoqqYhG~?o5v@Zx#%PW9)+nG+jz+Xf$rfffPL@4owtsFqy`v|Y%41GGaR z0E3<`X3dO9^F)Mt4H`*leDoQVYW9leAXdH{gHIfn5yd@P$DN2z@o}vbk+&R|5yhP> z;u89Pqv^4T!6WubK-L_DWdaf@J^(&D7X?Mx^g}t?z+BYB^17VMJPJ50LBHgM-vEM{8k3T29hh z;(ej|!lgiY#c2aD=HuoRF(NHL*IMFzNv7o&S_>o6QlquR=Wa4B^t;#W3nS7}FSKAI zL9W3@YV;EzUW@Ms#OrBlBa)QH*;ucD^{@k(ww5XYc;!K>&~v}}RqwE*pe2R{0@ z!*bn7Uh&$6M8sg98Byqb;q!1HE9Jbd9S_+fLLaq6Mx{WU4yupr{i#5Y3SJ!$?|z&K z#OvC#fasYRpRrV<3xQb66+pB<>@#iw;#Df`kF(~dG+G11`LYp+^}P(labE-CeEATF z<9@8s-+?&p*Fc;OT5qz?^uvf8cLWe?{s|E0q?kpgk$=UI`2;Ej;#Nj0Lqo`@U9o1W z)f_h)fmYsAK5*VMqP#x?T(98=GKH1{fR^C)8RPIu`RX%r@k*;`pXkHW1#b#u83Iwi z#2yR-u&iBxPi&15S!)*72yqV4T7ye^f1obhNF}`r&80xBnPOO)FTy9*%!oqUgl1|@ zteHxm#vPy0fDo3^|CV4x|6PLZ?gi8(cr>zeD2?YFN~1W3()XG;6#uSDhQ@Sgp^5Jz z3!je$f*5zJmW{_Y0;i~mHWUPJ3J}MbL7^fB{qg|I#-IT+8VAIoRY2^)$w2I1El`(; zd!`OuqC;s{l0$FPp|k_ZaUas5&+1S-c_u?&*P$Ql&@Xi8H#&4D5PhB9XY7JvVE^_6 zVjKGdu?P7&bfONOtV2g54OaPHj89y?j6gHaimN$Pv+0b+C;syk?@Q%CHcZG41LD&l znrn;@vJepcPOuN}_=#8CY=aTm_@%HxwU}e<2b3*h6ajIsas<#wtz`v1u@*+8<$R%q zdRxv7nuGBEAGNJrMOv?KW_X!+M zQp=_Q@rZK*(B4Rk&o~8$$^_@8K-`0z4a9RZI@x1uSLx8Zf%X+K?$@E~fW`~9twf>6ZsO>p%(%1$WG@`vh+3D3tb%RD+A)(r~u;9qF+$$68T5}`;U3fzMXm{ z?lBpGW^__3HFgEsU-&|^0`48DpX543a}c&heKFUyG9a#NCukncN?A*TmbCzJz5gW; z*TfzjO09%7Uj@W*ZwC5{D9d|+4iH{Z-^skkfY^ieI&?FTENP9t(}?;+4h?EVvpFu+ zW3_CyMok*+2AVZCUQ0Sr$MD;@0#W{5L|n0h`#T_?aVTWGH%zl;-Wxs@h-(gjaRYAF z!ico=2rU-^JuS3Q%I_11=D@!fXe$t}&qv`iqmzLyf!rs~W>`jjJtOMtazy_5(OVoS zP(2Xqy8wtirT;f}kO;jNh|}>r(7{4RPZMxl`u~z+g^YR-4yDt78k6wE2M|4_;lppD z8OAt)Xm0jT;r#+2woCu@jBU`VIeS3um-C9+DvcaIBMt3{wb02o+n5H#HmI#~o-Wkr zJdJMByy0j)Je%7c2#(<{(6Xbo>LnnWLHLaKfVk({ z3Us)TeFa26E95h%XW+DXpp`@EREk4K199j+I`nWIN~eMxTB1WMbf~ijVGqtlD0|fl z#Imb^xUZub)DglfTI(}fr_rlG9GB*o9QR`&_TcY8>^-40d+lJl*TL$ zrPT_@rS&GqrE!}>$r88jBY_UU?K8^o%B}l&Evp0KRGy_#4-ose5{T=|jT+qw#I0gA z5Vz3BfLMzcb)3B#q7ltTxTX9Ai1qCQ#Buir;+B#R#Bq<*h}KaYcPbFq)9FCmx@Q7$ z+&Um`-3x%Y4pBSjbkGx*+@h$(GwKE6bWn?DyEkb>=Xq?GR%jgK0U&PO^xs(7?(ejW z+BsXxM9bsWy@y7$E@N2{5bHY%h}$5YLUH~r1mc!=o<=n1;x>4b=2`80gOVl5a-%gT1LOf%{J&cOSjhj5X9WN8Byz|QOt|~t*Yjjg+M%Sx(4WJg!+sJfOzis zIMDBf>>#}UMj#qZdEPk@=yyW)bG-7*vIU6a(*9E!;`@wMKv997)G~TrjAefWx=nO4_W)7Ja!Jn> zh(1%_<}=m+@ml-^pbVk;H6TvM2LQYh-UhUv2ptCWKH^ehvG0wWQ^bf;bdv}r^et|m zK_?d_A}+1fxQzAyqF&Bt1hnixEjtW|6KAB(#nWtzKr(PXg?rsmt%owN6#nDp*eSpG;bmh=kqaIM(3lPr!#>5fZJ#MOoz_a zs9vLm8ntV54iLw^K+7)Hh{jd+nfe1p_h>|Wku0M=g7fqlpx@&5iIU<_8g&`HqY;ge zETdM(F=*6f8TFuyX#a^3jkSzuAB_?9JdCJ?aZXMEdI9l$#!*0=ljWL6JDS|$YqjhQ zjaq=X7g!9$t>*$DjuF*78lBnhH9#EWW+0A1V?37@wH~XL-3qU`l`*1Fny+vhBpLp2 z{Y@YWeM!scIY@ry^JRgu5&EJ_=%$pR)Ngyl(}Gr9%i1e0`l#$UM$9Gjjg+CAbttW+ z@Q2Gv$J;KUmM`y$P|AZRG>>+7_!-w`fdY6X2ImXaLH3k-4CXZm6u>L>%*>-6lX=vO zGLQNbj}gG@2!Ti|tqGa8r;t&PzK=iwywV!ZBc2VIBv24C+Cle-lRc_=9-|a8>hC;8 z2(L#ASrt&JKqmv02~-Poj6e&3CJWR8G!eH)oH0)mh`f4Td$o&@kypD56u|3Xy`mY! z5A`Zf#9fTnDFRVVdWm%r98FJXPTp|52r_canVf3OWS|4EJ&u}S4hq%!8x2> zDOg;J)1)~{bFY+;C&~PIKyy^AKT647B9^v8wz0?kpHZ8vA&TK>Uq2#>J<{x zzCUFQu5mgQQ=~+cZ<1Jznxkwjmy#fKCG+q}&7oM_Qi5WuAkUwoa6i6Gg0Z@k%pE zzLc%=G)Ki+B_$7l$m5ragU=Ffk{sH3NyhoNJ*&2C8s9^XS3wY795)8W#HyZrQ&nVQF-X2YL06KZXT&s&RKc5 zpXAgCPB~sp+yJ`$hKNO{k4u60QtA3wb5yKW`_v22cXM*Hhl!9}b6Yj!c2 zmXEl8gF9LNgeB+V6r672pu&=7_Hm_*^Jnms|#adpBLr)-Rr z+yN<%O)8)8S#Yr;m7HG-P6uB7GQ{HiLUQgFoGQE~>RBNsCmXMc zdR~;AO9f{*Uad>{{1?f&3_)JcE*614%TH;!46Y!VXE!P3H^tdca(*Q^R5z?kai&Pl zRS5EW4z>vNS$F?p7t-2bDiM0>luQHFkRQ< zPNwHD$+Nls_{h=SGAi)6*h3Hwlirp35a?mEgFS`(u)Gv*7H7SL;&#yeBz# zBFO6r;ME!n6h|y#5ONQ0H_rG-cro?(bfL+EvwRr--GTV5UdGR@i`2;vR72zSP|)}} zZEcbw>VX&kG*f-Hzwe*VpU^czkL52(RfH*$lP)-LN7pQiGf#48EK8JZ%fV|g5zH9MjaQ&gNJR6Tr0a!!UgS-N~wNpYQu+v_!DFKQBO}PF%07Z+{yH;DIlw7JMOQhs7ExA-muF#S@q~upxvQ|p2 z(vr`lDo$pZ%Zbyl6T3!*)sZEevpCDPC zAbB}K@?nDHiv&sfvGLYNCrA!XkQ|vHDNm5hOpu(JAh|d}a%F<#o&?DY36hTzB-;`s z1}#~{MddZ?l&bRMWs9@g&PWG`$a^J74su8)m(66QS~G#5gEMnpO=Dfte3~5KQnh8G z8z8ER-+{3PacbuKU1Cl)JzUp zNmHB?92|;&dV-`SL2^NY;Z3&Y56C~>rBw3X*SvptuOpp{ONX|%*oSPuIB0=&( zg5;e9$zKvAUnWSr)8l>KH9--^OiYk8CrFkiNG?l|T$do(
      1*SaAR@AFm% zhe8jcrM$RQZ8RzIQ+d6?o69K~Vrw}iLmP?v4?G2D zEvSo>FR~j+#;}YeV>pf2|4mOaGp?LCL#~`SQ*r;%C#kt)ym*tzc*?BEfyDp2GbPuN zl_^=;WJ=aR27`k#C|Cm;6s%MR@t=tXkwVQ%X;8BUGB|JwN!7q9)GUX=xc^<`mONLA zGi|OEX=m1=U`1Sdaa{jlx#37%Lu1KQ@u{qJer}Kh zDi*dhR-i(ZmoJ)G-CSKzgTIEViXuEaNKW>d0cf{ylQ)hQ>Q&d zDNEVQmqeQJzc{Ti=lhH_?s2t4KfrDZm-BM@e`{7pu=JhU+Pshl&T@>AGv~~N+x1n) z&8QC6SOaQ#b$*R~Yt_N23x~z?F+-lwl8ccubNO@esa~! z^2za4!m74O=-T7KX?OP}zbUf7^1+_DPOS;NB-Rsn(rj-2{BQ)@b8YzdvUQD(wz*GY zh*F&xqLh`O<}@_TuZc9*L|T{d|GRZItK8%itv)$LD|jTMuDw z{erqyn67Jxv|&%8x(+Y#3&0-`S9vz$2gFq_yR-@WJd|3OTg$SS{0~>56Y#@T$aLiA z>VKb1rCi_KG`Atr(A-oL31c>m4x=J|(ot?zQbs1e8N(yajkxG`GfjaomW#{UfqT_DjVFv8e4zos4W9TQvS~PK9Q7n&OR+S$ZfkG zy;4PGLv8{7J+$tQG1S;R{Js&jm)|!cc{;u=Qr8-3Z;|$`k3y^Uk)E)`&c~^F!B%`_ zyoNeh#H>GqI;Q&YqVoKC?M;Sw(3x1pbHfX98qpZ0jxsJxZl34?DsJi($DTljTOzGG zuj0a`KW$EblCg6!4bV=bsx-uDi}x)*O#f-zniopCc-|E0#385sU$66Xs3fmWB2Vl{ z3|pjxUd9$EW7;R}<+k8zj+-o4#g3b^yJ<*4ky`X*A=y7-Pe{`Dh@m`n`Dg42Y7=*P z>@saYqc zs%$baS#46mDXNO1q%1~vQe2`Z%QhL8`N0}IUtlGAmOIPFkjCuU8&`-fmdKZZEya24 zVu=~D51n@6sRQ(CU<}Yxfsvw*Mdo`@N036Gx5JT>OET=Lnmi;`JCh7$5*@N;w*FQ7oCq@fv;d8mt<-RmwRF8!9( zaNWWrD+9z;bB|<)n5oV;bzCuxu(lV}DIUd55@gvG1be@c5Zf&Oq_ViCrlGl^ z3D3R2iR!l8yqaoS>tir!ua8tzVOIqkfU|0(ld_!An-T0zhtG{)u55M=(9NhWO6r{{DR1N#VRFVRSW2MxH+#Q6*B&^E9nf2k; z)^gp4k)XLfVl@}nshp$BviCSJ<2ap2-H^EB8<^uvzug{nF!t`#ElkBuZpYFxFh^*$4C$-PUxJh@c4|j56BLc2>}U8?TiGqabvVowOe4K`Z!jCiTD#Pt8Rb)qbnUZ z&ZwhuB@}_ZCRkbQ5=SqA6ONjc;p7apt>QABPQ7_DxXHSj_{B}`)WMYU&q|&OvH3N? za%B+9neVk=8RYWDkuuximP(RMWK}-7%C?egt9B{7Y1acSnEL*abc=V1`a{o$+#UI$ z+O&tF(pXj3{rE`b_dvWPTI0`o64b>Ll%9k`otjeF$@Tb;(bK z;KhIAI0)JDz1F9qN0!M?y4=CZSCZu>A4H{`0}bvl$h~F`E^eaxKiWe7`))bNV*e2i zZE8;a5tP_E=M+0dgWE+)y(^?T<0Py>=Zk&M+&UZK^R>ZbNvim&M{st=sgHl+>t$-T zwh-SV4sh<1(3uTBZn^)IXF{8Ss=)^F6SCkK+@Hw}z3XcbbTNj0^ zA+DPr#-#^jkClrT|o^y+__Q7NEIQnS{x8jr<3!!qk5-QXuKbWEnu(z2kyr!XP z9@YglO>GVHoA7{wwOJb1@8%}iLR2SIgQF{R^B2{%8a2}@k3XiYvZki3eNIgUmWfVR zbbh<+5M%ifzeDW4txZI=BZ%d`iz=)M2B(UMHdWvE5K102I3_qciTXgqnnBxbso=Ot zvJ1tkdOrct$-cUaD?zCy z1;a&0oD~-xaSWBB)TcQrNvT-_ACkB**dP7qYqFhX{#_-UeGcXeG;u2pwZCiAk&I#a zAsF_#S~4xJoOnHP^*O1oWIU};y5+j_Y^5(HYd~GJ=p0y=V5QVWTPNbHGR`Lm;`R(R zYd~EC`$f83{Ia(p)HgS$Tq#bE>=f;^Gik0ArbEPELLM?6pEt=xgVof33nrwWiGp@Z`c8i@D9v45ZD|Xf4 z%8AnxzloSo?AA=kt?!DTe7j|(JICpVEw@|>BRb$`pBz&e%i|MnAPAOGooj*q<^-j@-RoBMZI0$K#y~{E5iJTcCeHUYoxJD z?b8E?JZ{LRu)&_2;lbtjY(q}mBah_vKwKWFO#|E1 zM&yy&kWf$WB|XA$l;Zb$>gKzs`h8=HC1OP zBgQS=9Ie(CODS}TrGiu%-L?d+e9ui1?6MK4Jaq|Tn>F(nFRp0`x3)Dm)ipLmmejO` z7XFz+)Xc1z(a?BeU1NJ#3#K(TxHZ^F}zl5$L4TX;s@!f;y)zEYy4KWm!P z+}WD&>lF@LI8?33RU%a?(PQ#+y+zG%Gi4QffBC58nV@&l_F7`yLBSnqP_%32ttWt%b7*7D#;A|*7B@f$qGi#r0DSeM!x9r3Sw_QBHH-Sv8!R0pc2mkv3$;OiuIhbABOQuR*=TZ;P~tIl)B6&m7K=EHF+ipFHdMnKl2X zlWW^;5Qd@Ow2D&kI8|(_w6)dXsV}IIWJQ#VfNJIMckFQMipJ#$h!Tg`$A=)twm)2I zME-6daxDwyxnAj3K}By!{&L)}-Ts}s^75f6thdl=GtXHj6G6bM9$R!Dwg)BaLW%O8 z;jN?~;c?_}_AT9GGxS>G$!7s&>p)v_AoiFMj2Wz>BQQ3w&wcTLoSvuR^|jPL2Sx2F zXw697N9Nq1pg^VKl60}su27hu9RxXh>H+9Kq4IO&A=g(l%bA(=zzhLBF|Kr=SF3Of zpM$?7(jF{Y*s+Z0kpsZ#d6r9lTRBFu??nHCT5qBs?rj3%yy#e#o8u7<*O7ZS}b zmuD51^atsk6_tFNu{=Zuu#rZ&s(D(m@bRxJ0nM6jedFpuv&LANkMvN5%1Wp@gk932 dzYur9pHDqk$4jH -#include -#include // for NULL -#include - -/* FIXME: - Check these declarations against the C/Fortran source code. -*/ - -/* .Call calls */ -extern SEXP _inferr_gvar(SEXP, SEXP); -extern SEXP _inferr_nsignC(SEXP); - -static const R_CallMethodDef CallEntries[] = { - {"_inferr_gvar", (DL_FUNC) &_inferr_gvar, 2}, - {"_inferr_nsignC", (DL_FUNC) &_inferr_nsignC, 1}, - {NULL, NULL, 0} -}; - -void R_init_inferr(DllInfo *dll) -{ - R_registerRoutines(dll, NULL, CallEntries, NULL, NULL); - R_useDynamicSymbols(dll, FALSE); -} \ No newline at end of file diff --git a/src-i386/init.o b/src-i386/init.o deleted file mode 100644 index a13e7725ed61114426d6282a851ed20b971ef689..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1328 zcmbVMO=}ZD7=9<4s9?o|UpLu94+_mRiy^c<4NXh;piok=f`@dIPSdH|P1xPkBqyOz z>_PD0(I3#C(Ss=BtvBx;6#Nb9`_68XotPl{z&v?Bp4s`>eX@IU1qgE%z#Sdsfyc5J z>o_5SKaUx}SuV*@3N~!+@LezVlG02TuzAiKQ8ZJKHeRA`vHUkxx^B;0m`?B(_m_o$ zlHeUvH;00EsQZvPht`Fr?i_VzsQa4g@|X+gh(%`^qcH@A`>AGF#q)|S_xMNY;p+nR zor`tnlY9Ev{kS%7ljs|fbK#zTagX1Zo_(kEjR{uBL7~P6_Ic12nh-}EbI>>nsHUv1TxKK;3D7B z(bG|F2cz4%#`lyjF(Ul@1<+zDP%&>Nl`+!}2n=k<&A6}y>n3_T)|4k_okT92s>!%R-wC6eFp+h}C2U!Yyg^SKgJ)c!Pr+VclkV5VQkv2#7F#i! zX*T{w@y2xR$w)V>9Q;vvVN^~q)BjAo8~EzE^!t!(aegouKn)F|;?yNj^?ZLlh(jeK nQxwXUieeeo+TB -using namespace Rcpp; - -// [[Rcpp::export]] -double nsignC(NumericVector x) { - - int n = x.size(); - int count = 1; - - for(int i = 1; i < n; i++) { - int l = i - 1; - if(x[i] != x[l]) { - count++; - } - } - - return count; -} - - - - diff --git a/src-i386/nsign.o b/src-i386/nsign.o deleted file mode 100644 index 287ed398f4bd5b9b37c25de61724aaa46f1572c2..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 21088 zcmd^H4{%(?d4K1-GYZ8>CN^Mj;)CE~s4d@}PN!3F;AC0&WGhCMj3FkIlPsU?16jJ! zoov~qRKXdFaFsfl&}lO?r8I;L@l2VPq^?7$z#eRfX_Szp{Bfw0wy9~z#N#rA8ED<# zx8Lr*-MjbhWJp40vNLbr?|u9G{_OvKcPDMVXT3vd%TmYrcY#7qV<|UY5}32@fa4th z9mhGnh@ThZ7IC`!8n^bB`VF2JOgr7vja!OEt1M_eiH8ZNFx@zA8;qc2@jRQGcB1LV zg3Vh6$|~^cE@y5%Zh|*z^BN!@udvshUYTG$l}7>Y1@BAJ-W)tf8oK*dCR!Cm-0P4Z zEVtJXO|NWiws;rdX&Su0llG|kY2w8aF_TE~9S3hl^3d$;H>Vq92zJ{y1q>*t6?H2TL4}} z^4xZ|>k$Gk;pI1xq^{D5{HDN5l>1GzrZfqFl-7XPWAH@(HaA)EQGH8Zew$mYb|Jra zf>$u?iT+K-tbU7tcQ1IKEw67fVZ}%F{i>JWWGaawoyhM2@E$7n+Y-0>gX((_ylI0c z>f4gE;-mVW^77l#Y7Knydm6k~4SS-#siqbb>C^}G4tVcK-dsEjzp0iAzn`Q@Yb0T> zHCj>Mt>C3T#6&%=S}W&K0lZC;r{_^?%Idd1n3({tPx5qpv1rV!2(`;eulQooW^=+( zyPN{=f%5ob(UfVA=Gzo>^EU8Fk~-1pKYm}{U%ao`w_1Tyl%rD^O~E?_Ui-hR`7-;?>s!S-{zz_F{zyo zdiqUT3nlrT2Ji6-zsV-k9;)gb2k*O*r^jh5nKIj@54;oLov4VfC1%!x;#+kQG9z() zTdbXn;#&jWl}niD_D4&~v`6uEgO`>(H@;Nd950VyVD^ExPV#!8N9Ti;u~fpW$8yLU z7Ge#&lKqlB+NZ&*7%!{9`@H0d_-NlBD2Jl8Onxh~?*l?(?^}VpR%iCDuiJZSPG;)& z>oQYaPc_FsebKc7BRf9-T; z?~%xDhd~S1LFuQb_uGjqi7OOvLaTw*Jv_$=#{*)Cp>j&pCv?mS;fmmzz(q#seiE1H zGu+#tKpn8O@mgagJADJ!ZAzT#yCx5JPR?W|Ulz5@Ouoo*TEPX3802&l{VP;rRI_D= zRlIN~{L`KKs3u2s&{HWM1Z~Ge|Ed5~ov9v_ICiOo?wRV;da?#Di5e&)X6!52ggYpH zjXq_Y^Mnv_r!$jn(|R_v)mcNe?HJca&4cwBZk=}AF^*L2R4eV@Z`PCcL`q%z=643y zozmprpcvlM*xN)ENj-TMsrAg{3#FBreSv#7UbQkaB{rWHWP{ECbf`uAB+~U%^VFs zKqm#HXTpyVvUjg%!e14_qu~RRmN^=J+=WlL@Q8xE;aNWSiI*O=KOPPLiCpbq>F|F5w4a|GA{#>V)53!u#U-80*i~K#b?4- z6SDW*XTr;b@Mw6sq(LL$!c{I@qu^w?(&xN1ncjOCM}iLt_eaC@8bQf+2=fbAE@E@x zRSL3s@aTPj5=F#FS5!8~1eH#T-Pv7ZGn0qax-3V=R5!v}NQ2}Q*~v`4B<}{1s+3_O zL5t`v+4~n6`|8=Vfy*wy0p`nr@Cza5P%!*X$oWMGf(OHN)D!6|aww^13cOm{kmwmG z6k^eyVrewjzhleTU}x8sSVu>PRC-tX(R0;L^^CB8+c{#Goqto`a9*wAza?cfwq}zK z(oTt_?z7RE4M&~H)IBYg)cyUA@BQ|#+C|+}yQus79pBpa_K!xEji-{?WMV~Oq?jLH zQOs>$9$7t>A1Xz*?2ddqKfLyq6}Kc4k;3T6?YV){HIYPPYh#n_=UTT9f^a*okaIQi ze-Nlq%bGP>rAynjY#q?!xI)g&TDBSJxRCWD|As)@k+Tna#bNZvKwlT7pVhMaHF`jo z{*9JB3dG(>kF6X6VsB3YvA1Ko^aYJx2l@`KkaHb2g@QoT<1+%?iTqy#I-wDOGl(k) z9fj(EhJ@?_Eu;03d9=%MDOqOOVvQoYl=eL?U8d1;T^iLg+5(xE(xnsuM~{zHoab;+ zbewaf^c)m#nxg{I`}Vga!*R|NGU6~Idpm{9=AEy3jEJ{K$b!hZ7pT6+ad8B6faeGp zk;Yv@Mu;`2HCW>spyzS1E5g@ z%aAi#3dGUVCqf*3D-e&hn}B%a066q@8CzyVmT7czf6zHHBzlHt8TnvzE5UqFTq9~1F3oC0_E~pG%Ssykkw*7vbiYOqYVLZqp4w6gPG-UHVCl1~l5C(U?Ye0eBCN^omA5(dcJDtnr4Hoz>|4IjXG|YP49Rt2K%OaZ9!UeN(i?^+4Q`9h&zEAYS$Q zwCoOz3P3zB$APG~L(bhmtTCy1U(o0;fLPWp2B{)G>zx0gpB;Q353k~kw!ljsBthql%oQq|2ykA+XBPI{I=mndy#2I`PkMmQun9~7Jwl;h&0e0)xG zl;y{y> zfgP07qe!ZEZq*zW&s|b-EqH!fk7|w^Ph7O98_x_l6X+0*hhuJXCScX&{7BkyV?HA# zD}?vkkkicPq+(t`i#^f`cw|{rN}`bZwfttyQCfFN39UlGfVZy)HAiVZAtkg6`T6>Z z<|wW6u{@lF2GyNoz8(@v&5&@vd|FD{A?10YYK&*Wb(}{er%iAskV{wejEmB7$+;2O z&(0aiSuHpd$Sdt!G9O~3R$RQ2C=af$Rg&{j!MTj+Iw^L)}-%6sU`29FIEYzmyyb%g@eX$)OXgUp%i#&cZ5o>d62S zjZ(jOnk9$MCw}qVCOI_w{NnkvaQtJwLOeVDUO9h8Uqnp$??3bM1MUkJKKb4$inp0`#3CX!eb1KL4Ym)POnp0`#VmiJdEyv{- zPrKwa3XXTZ1|?@@6+4rX6R%?DfaEk)vGZ-oX%-y%p0F3lPCt~KB*ei0oiS+Dv(xL6 zLvK{&btk6ztH_k#P~9u-ye;i?3J&d1m1(YA+Sj9q$HH||lF^b)QbK1@=6ps<=rqWZ zzmk%6EqPK(+O*_^l+eD+T5n6qYAsnr6BLQ|T;{Y$3B}Kno27*IQidlzCKnz<^w+4DPpd~Kc_FBZm1!yVo02gV&fj?9`Z4koi^ z(;swIAt#EvhX*=#){a3FYq{6NYM$}42h9_I`sEj*Nv!JGBv$i`#$OYgO@*0N)u*;q z%VBg@4h5^GL&2)%5G^r_8fsQmhniK(VeJ}{soFKvEX!fpk50U*=Si{a=1Gx$HtvjO zhvSJXPuObAN``JEdnB7iG{rw6O{p1CIn#5I0qGnTnF_WYXXTHUY};06RgzO9J9DFh zLnFI7@--G3#9@(Zg<+AaMS-bmaqX@u3%Q(JHHvbw6@@tlXtnT|CY}`AqbH^2Fwy>e zBcg#+BO*=lk4RH$Mr1J?i>3b2(pW)`2=`HVav#MzHnxY2oqprIL%xU;sdqLcZ%b&e z+Lp>l(vsOhsHBIPDhv-BWnN^ZOdDm4O|z-CH>u20J6ke+QH`Qm98>x84r=C&-YkP5 zot4`$7#^M|mfD`mBKGiPGWP7*qntL5<^~I;(MD8YQ*WttOMfvxkj;-2I|q78vDm=& z{?Tk{v_D^h!0kg@Db~zd?r%7~b*(v9xx84*=WLIOHEgN_mA^T~sCqg@Z!4aUC4*7b z5_&=G)IMfZu^d&ul6Dr$TNVFe^{dvdsB5)4sN$;aKqPYH6Nf6cZI}~BwUjd8Rp!pk z8uP(!=bDqC=A!Nf_scj#c~wz2vfc_jst6L6-I~!VTUY{oPkf4_tog02vzf%ORYvPA zb)~Xcb@Ib_iLT|sJhP~#DO*k8!DLmnh`utpJ{EmgUCliMBV(lwJ&s9`8y$6e5a z!C?;l@{w!KKmQJKt<>h&^*8-dxBA7R%9OUhAH}RSfY?(~eBm#5y5uJOW_M(?vnwA< zbZqF&#+tiFbH&`~&Rj3V{o8UhgtKeAZd%>emCY8%wq!fA+0Ex}!d(hHwphepzQxMf zR5`B9bBu>6bj$2a5mD{IXgBZU7X@aJeoGH>wGUPv3~t|AuQb*=#Q#Xg?^72TwAr<6 zs}n;_vzl1dBF2Iy+AkiJgH#i%T11WbQ-iAJG^?g9v2fM2C0JE$(Q+a_j;d-)vufI^ z9T(a1h|63lbu-vOc~b0%Oo|TL--@Q#Rw_H$9*wraTI^c3%^k7&_(ixDxvFI}qD8J6 zbUE3!Y_=-(jYlVYQv9vxL10H^TG13bQ@O9>!lwHu^xa23q46u1`K~p~*Cu)~^E^b* z&S2WBb!_!EgeuYLWuwPlMn&Sy)77jTSANRqlN!pzAkS5{K9pA3^L%xcWp7hT$a zY7CDL7gUjlmNMv}rHVW@C}q&2h_$lY#>caT+-PxRxPK^L+MUH;K1Hd)Hf@MSv)O_1 z@%}COo%kOnI2Yx!14I4AVz#uqkjv(W2S>PN@d`h?ck`a?jYDI_?d>DO#S#2G6Nlj5 zQgUcypnoW*UiErQDSRxD#jAd9O`PA{3{j#JM|VN(8O)9k<%YMFwzCM>h}e$`5bN_T-9VJ7l$H*CNe%{4r{-qi4Nt2ev*t z?PM`m!r!uXbmN;W5!CF|T8g>c9V3H-9pk8DJll!p?uBG)eiYA5;`ydRZg|JY)^n*y^d266Aq1HA`(t;OvlyLR*s@1`%w&Y^nPu(svs3%+w}mDaK0t@5Mtb8^=_ iCO%$2C!N;9mi~b|2K)0v_*kB%TJ4X-m^Hf&cK#nOEDAIL diff --git a/src-i386/tvar.cpp b/src-i386/tvar.cpp deleted file mode 100644 index 0906460..0000000 --- a/src-i386/tvar.cpp +++ /dev/null @@ -1,17 +0,0 @@ -#include -using namespace Rcpp; - -// [[Rcpp::export]] -List gvar(NumericVector ln, NumericVector ly) { - - int n = ly.size(); - List out(n); - - for(int i = 0; i < n; i++) { - out[i] = rep(i, ln[i]); - } - - return out; - -} - diff --git a/src-i386/tvar.o b/src-i386/tvar.o deleted file mode 100644 index 7c9394bf78920636ab352ba8de065a6171b9f924..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 23153 zcmd^G4Rl;(nZA>m38A(oK#TlT86-&1Hl3MFk{Mfd(lm4eX&aMLuvI5NowR{8$<9nl z;BYk3Ry)LSdiIEmZr8)Etg^~_JZDi`L^q|iEw1dAAF&{d^=GA(vep7_7sc%JzVCOx zd+*GhnG|*P9KUn!cc1%y&-?TJe|LU1eteZdY0oz z!Fc_sleY|V-+6}dVa2O9d1)t)isRtf6XJ_6iP$BE5yWE;c&`LRUV&Snrn6^BBqjot zSK+=Z-(F2Hz9iP@;GyY^d%&x@T*OrUIPpS}ke!IC8ux+s4#lJTvfohD!6Uy9f@e=` zFB}frW#so^@Phe%!%Yo#9{D{C-s*h64M7Kw{2q1l+YoWIAo)E8-i`Tw8={Ve34nJJ zyse67wX?Gx7=Fgw^O4yS*EiBcU8NKGtpV@Oe7})cRFeQmX(4#`+j!j0jSY_YsJO0})w<+4BjRBC~?ckls_uCwH z^as^<7kC%GU9@TZaebSc9Pv?or``NE#~cHn{2m4`VzbBfjW#rk2g!SIdkVZR#jC_K z`;9gi_>Ej3I%dxHV!?v?E(7nbe7~{6d6WR}0mbu}eq&Kbzx6HPRY!KmFH&A0D?S966Z>-a*Uu)U$F-<|{S62+^)v#bZ9 zW_t%yd~@fEEi;$+!eO#uCW>!9c=gI2jRVDNvN!Z7vE7YHybw z@E!y&taw&@%^`a|D8Bg@BC{p&+w9o6D87Z@jTgk%9JSk{`0Bv>bU}R4uzkFI6$3L0 z-o1*~4Lv#^ED1#;_IfOW{P;zN@%&W)NL1fA_H*zG#>@PR!BsqNKic>Evm@yYt8zy5 z4S-i!Co-`YpN73=yI-ycc=i;p=>#tpw9nrF2vP8Als)M;oDV{=hL}y6csCZ>BVMz; zU5GahUVXm3a4^(>GBX7L?s2mh4mR5BLA*WSbrjlj^c(Sxy4nkc?BkDkXTZCuz+T9) zt`YB|OOV+T+AqE&9CB<(6DW^@w^P~Ub6CwNc;T?UzQo%D-rKGQK(g^18~OywqL*Uq zD;}+Xak1yv&;yX~0q?Nl`Iy%OzYPuc{+)pQD0rt7kM<+6*Wg(Hhc!&rnfF(u1y zBxs)>0hApDFRpl&--u(LPk?s@yv>Sd`HeK&A93?yRd325q zH#+t$vUeD~`;=dvAKY(^1@q%5cwfom?H}M&UwzqjjwLZQ?+DuB1U*z=7B>>xPSz!+ z{Fu=Oil$*ck@HW`ZOR`fVa|V;o+kZx0DHOylAVwo=Vv9Jn#Uw56?mYIeK_sM$wp30 zY5NHhI_y_Ll4qYuVqc)L-*Q9Cx|Zu()?RS-NAodi!grb^FqV zwb`mf?it}K;*MV@au+3X@v7>(9tLUZnwgHt2iZjEr9^H;ZQX!w|Mtn1ReR^bc<#kj zlZ$FkC#n}MJD$kB#`ZdLClIA}_%dkiOC#*?S1g@)&kT|=HXnV3LTMz#w&PViByzu+ z!43nR+?mi5?fcGDtlBaCkwqQ3eTk_~Ut-^neTk`#Dqn8>Z*!LotnRcG!s|#lhjkaMQC(c08YR|;f0vb+e4{8u*sJ2n#Oq7nXw-soc*sImszlJBV{COa4c^4k6 zI1fZOd^q``mJhaksO7^g$^B-Z@0cD7Bx1j*-ahmC%uM^zWeD#jAakIccvg#_w~HU= zhyAN!i)yoTO^-AJ61k&#SWZ@V#7<-{;330tGhq?~NK-n$|#VpPXNtn5;^~ z9?zc3Wg<|cIQL8GcU4rrQfZv5@Sm*sy<>J$d{UhCl2Hk_~kn<#m=-LetQw+i$iL zaVQ>2v{shom<#2;s4T`Uhk2bf{hMt-^`a!PE2Z4OC8pZ7o~pq!Tm#dHJ@&<7!djgF zAAPDemyLQXTV1+3tx9lOt%#p;lGoI=dFKZ5(*i-2>D*Gyeo*rTw#um95 ze=c$S!TQy8206#p237Yz+SvO2W8ed!n32Y?If(-<`JvVDjJ}h{qQ?AF9DIsk|XqjDj`z| zEG|?Q5Bjen; zNL9iam52l#L~F_3b+K(<#Tnv~xo~u!$N!|yc*yJjtD7$W7t~NPpY!kL zzMC&MpI1ldFc1oMWwPm1@0Px?f%cBRP+MD@BD^8};MwX&yGF#n(>Y?8oqxN&&AD00 zzu-HKwb`USv~wbv_u1&ohGU-5%zIoZnfE_+e1B^HX1kbovt7*lpE^F(UHZ1Nwe{VB zy76dJvMI87bR;u4zBrTGyeP1IY;Y(W=({zrYH)bv4U2DRiUdZ}BR8e`vsVWq^|5;U z=W5!R3!slIhH?1}`cUw%tRSugU37;Q!_J~A48 z0%$Ln-lb)CYqVRJeqPJI1SH%F)ul&(9%kON8vO|9IhLIQ`WB;A*e(8((FUOB84Uvch|#S; z#~6JBNPIj7BpN>j%5v#1H2Njbk6HF>Ac^30An{g#52k;@rB?xol~q7uc}UB)Y4jP5 z9@6M(pr5jp(^_^e-fBfw10;Sg1^OBDT7ix+qFMC=MzDkNg{aYE)spJX8FpP6pMjSz8?>3e>d2=*R5b-|3GHRJUxO@iHS4K8~L9b5| zfgsYjgJpz7gIYs0t_FGvmqdR)kmw2`jgPaen70L5Ll9})$+Gg^sCUGhAkv^2F0Cdr z{t`S3x)MmDr_Z}3`WVndxO~PM5uUSUut+;&LGqQ$}4?$<+gSg^D z5Lx~-%LrYCOMF)n0T3k?!YMM!IzP z%-6L>XCw2duLY6rKd_9@*|qq!(2y3t0mvFd6s^Q3h%A4BWrXN=KX0V%i+NklmZ?U9 z$j6shMrZ{t@g{3K&4~YE*?i?U88RTNt-?bBy-_W zUHX(pKh)^w8odN08n0;Cj7D=R%(hyf(L#-`(kKWdE!hmTk6YutK+=+Jn)d-9S@n9f z>}HKdfn;8e1IbQ&2asswH1AUyeFjK0{vJp))&NOw(L8z#7wrJ}evc8&H$hbTRhA)R z8LEx+@3=g?#_nfSgZw`jA+wc!hh@b|59!h)jF8!MAI&SJSRT=`w=kleRi@%V^LMIE=ASMh+;XyD5?+ z4l*Jc?Q~KPT5UbNI!b9A&x=?_F|TA)%rDIz@jI<~g2;!IlI~$HB^mAF;`hCbqR6E* z4phrB^4r1)nennluP~|~7#vDb0n+bg3}cfgyR|o6@Av{HnauVNBx&szZ(bSR{A|yz znIli<;O6yQfgBS^B@<;dC!k6{t0Z*udZ>Puc~k2V%`vrprX;kR71NsgCUHIwBTOvS zD+zh=dZ-0W4;Jdy98)W;B($q}JypmHBm9cuT)>>gl;e_Q`gl@vOv|U0yb`ZUuPUM!BS;J=) zr-M1}?Nd!1g>)G%uZI*0+c2g%ruPpiNr1K7WB#b-m|B0UB-gN(d(7Wb92%v?;(0-H zOv`V2Gw4V(vx<%IsOFHC%$*>wAv9B^&642IPeABNB*RLJRuZpgiZSR9u_Oka^_4RSJk3t zT$H*LXC-hkJL8Je%A5)0g?9cRyk#ozVGWoAx(ZAq(wvE6)3vLuVc7UsCy*{e8h%n2a( z;gV$f`k~^`&g=CAkUKf{|Aly%L%)Kc8d}NzpAZ@mZhNl%{~+Ys>v`N7Jj#^)zaSKa z*YgSF{|AF`+_Ijw-tg%7NdfR_MXb13mR3)j6v92(YMkJX=e)G=Q{$5|w5 zf?{^s6^Cxc;u%q#1tsjkqNhiqp&-p3x-M$^M&lddrb9R%qvA%FcDnp27^8)mfWT!%eCYl zC851rw7#Jvty=PZC7~J#=Vc|KU05XN(F*|*t==M8q9nA#ie#0N&~77=%}PSMr%1Lb zNnA@lrz9;}vR6rH9~7;plq8`gzf=+k6o)^CphqL1ByX{8`(h{VkR;cyZSNjo70xP* zuC~$i;Ba<8WTu@hTFaE&?vNzcZyf5}YT7Y5Qw~m--LQ`EUI&LP&~NS~nRfOUNS-K= zJXaujsX*ePC6<$E`Md(j!UD;=3MBMvf2W<51(FQ~lA8)7w>u=g_&@7lHsA8692_eB zVu9pjf#mf9$x?bTZF0TquT=0ukEZd==va2Rt@FD6aYK$`vu5+3b7#$_zZ#byM>4k#_qS~=AA=^A zbFYb|JmZHtn#X@iE*7GlSkkkdSjsaRe?@3E6&6-WpW0SAhrwAnWL8;+%qry&EisE4 zYF0^ynpMtW`5Ka`@-@^fhr_&|Nx4@d;(ibg~OsZ2zgQamC}DI1Z4 zS)a-Frn6(CYD8F%?8$nh|9)V1Sl_Jv1k%~u-F9PVS6gda!@$_E`uqWewe7{`L7R=# zJsXm{CA4RGOL-(^$=-oz1Q#y?rf~D zH#69u9308C_jhMQq5jRi>0~zDJD7#Q>Sd==s8O`6-z~fAI%aL*0_9kMXM4~rW79m6 z6*p%xN}g{q9!y>lOEyMHOXw%w>x-B%i`BUMqqH+GkR|-{`dO-7QP)y+FpEpJ1Chv4 zkvPm^rw#kmGF!?t;8teM-l8*xKkKb^wsYA@PMTA|r z#Ku3fi>r1vLlk49|6nd_?Y~*Nz{Eb}A$ilH{KP|bKLf6jD6cNpR z9BuD@$fLk)q`%PPV)^5n3q#ts+>4cC$&)V_F;r!M=k+}dI@#rHo2QPlW;L;-MT`Ya zbiV%N1!^ajw1^tXXBQ>SX;xWVyx^3z#jKLHP=Q&*rCDWdm5+;Txx{5(QFSvoE9gpb zMr5bxpo?446sMKKPIit)r@?aUa<=WeYU%Nda2@25meGg~a>=0c$xh4mR;9ji>10<* zaVvTdIHR&#(G)r$SRV?oP3w{Mtw-5;`6Pix* z1`Jo#Mawi;?Bf!|>9VbvzFdmLU~+KFXtFE0dT?l6@6cEZzwFyIKAs#+r86VLy+ec9 zTa);sVUU`C-Re*8yUd8eGusPuoug09=T;p@9?ek-Q-zR4?Fax6n(FH wcC8W{8{VkCp*Smdjbr?+##!maM*DjEZyx9!9KyFDv?!GS98p-a>j~rk06Z%QegFUf diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp index f6f2ae6..20d089a 100644 --- a/src/RcppExports.cpp +++ b/src/RcppExports.cpp @@ -5,6 +5,11 @@ using namespace Rcpp; +#ifdef RCPP_USE_GLOBAL_ROSTREAM +Rcpp::Rostream& Rcpp::Rcout = Rcpp::Rcpp_cout_get(); +Rcpp::Rostream& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get(); +#endif + // nsignC double nsignC(NumericVector x); RcppExport SEXP _inferr_nsignC(SEXP xSEXP) { From 35be6d61cf1f8da3109ad77836fe970e39a46393 Mon Sep 17 00:00:00 2001 From: aravindhebbali Date: Fri, 8 Nov 2024 20:34:51 +0530 Subject: [PATCH 09/10] test: closes #80 --- DESCRIPTION | 7 +- tests/testthat.R | 8 ++ tests/testthat/_snaps/anova.md | 28 +++++ tests/testthat/_snaps/binom.md | 44 +++++++ tests/testthat/_snaps/chisq.md | 34 +++++ tests/testthat/_snaps/chisqgof.md | 22 ++++ tests/testthat/_snaps/cochran.md | 13 ++ tests/testthat/_snaps/indttest.md | 153 +++++++++++++++++++++++ tests/testthat/_snaps/levene.md | 25 ++++ tests/testthat/_snaps/mcnemar.md | 39 ++++++ tests/testthat/_snaps/os-vartest.md | 90 ++++++++++++++ tests/testthat/_snaps/paired-test.md | 123 ++++++++++++++++++ tests/testthat/_snaps/runs.md | 16 +++ tests/testthat/_snaps/ttest.md | 87 +++++++++++++ tests/testthat/_snaps/two-prop-test.md | 50 ++++++++ tests/testthat/_snaps/two-var-test.md | 86 +++++++++++++ tests/testthat/test-anova.R | 26 +--- tests/testthat/test-binom.R | 40 +----- tests/testthat/test-chisq.R | 30 +---- tests/testthat/test-chisqgof.R | 57 +++------ tests/testthat/test-cochran.R | 12 +- tests/testthat/test-indttest.R | 165 +++---------------------- tests/testthat/test-levene.R | 40 ++---- tests/testthat/test-mcnemar.R | 40 +----- tests/testthat/test-os-vartest.R | 84 +------------ tests/testthat/test-paired-test.R | 127 ++----------------- tests/testthat/test-prop-test.R | 28 ++--- tests/testthat/test-runs.R | 17 +-- tests/testthat/test-ttest.R | 87 ++----------- tests/testthat/test-two-prop-test.R | 59 +++------ tests/testthat/test-two-var-test.R | 107 +++------------- tests/testthat/test-utils.R | 68 +++++----- 32 files changed, 979 insertions(+), 833 deletions(-) create mode 100644 tests/testthat/_snaps/anova.md create mode 100644 tests/testthat/_snaps/binom.md create mode 100644 tests/testthat/_snaps/chisq.md create mode 100644 tests/testthat/_snaps/chisqgof.md create mode 100644 tests/testthat/_snaps/cochran.md create mode 100644 tests/testthat/_snaps/indttest.md create mode 100644 tests/testthat/_snaps/levene.md create mode 100644 tests/testthat/_snaps/mcnemar.md create mode 100644 tests/testthat/_snaps/os-vartest.md create mode 100644 tests/testthat/_snaps/paired-test.md create mode 100644 tests/testthat/_snaps/runs.md create mode 100644 tests/testthat/_snaps/ttest.md create mode 100644 tests/testthat/_snaps/two-prop-test.md create mode 100644 tests/testthat/_snaps/two-var-test.md diff --git a/DESCRIPTION b/DESCRIPTION index 280d59e..0ae1fd1 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -12,7 +12,7 @@ Depends: License: MIT + file LICENSE URL: https://rsquaredacademy.github.io/inferr/, https://github.com/rsquaredacademy/inferr BugReports: https://github.com/rsquaredacademy/inferr/issues -Imports: +Imports: data.table, magrittr, Rcpp, @@ -22,10 +22,11 @@ Suggests: covr, knitr, rmarkdown, - testthat, + testthat (>= 3.0.0), xplorerr Encoding: UTF-8 LazyData: true VignetteBuilder: knitr -RoxygenNote: 7.1.1 +RoxygenNote: 7.3.2 LinkingTo: Rcpp +Config/testthat/edition: 3 diff --git a/tests/testthat.R b/tests/testthat.R index 5d4ca01..593d2f9 100644 --- a/tests/testthat.R +++ b/tests/testthat.R @@ -1,3 +1,11 @@ +# This file is part of the standard setup for testthat. +# It is recommended that you do not modify it. +# +# Where should you do additional test configuration? +# Learn more about the roles of various files in: +# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview +# * https://testthat.r-lib.org/articles/special-files.html + library(testthat) library(inferr) diff --git a/tests/testthat/_snaps/anova.md b/tests/testthat/_snaps/anova.md new file mode 100644 index 0000000..b88a6ca --- /dev/null +++ b/tests/testthat/_snaps/anova.md @@ -0,0 +1,28 @@ +# output from one way anova is as expected + + Code + ifr_oneway_anova(mtcars, mpg, cyl) + Output + ANOVA + -------------------------------------------------------------------- + Sum of + Squares DF Mean Square F Sig. + -------------------------------------------------------------------- + Between Groups 824.785 2 412.392 39.699 0 + Within Groups 301.263 29 10.388 + Total 1126.048 31 + -------------------------------------------------------------------- + + Report + ---------------------------------------- + Category N Mean Std. Dev. + ---------------------------------------- + 4 11 26.664 4.510 + 6 7 19.743 1.454 + 8 14 15.100 2.560 + ---------------------------------------- + + Number of obs = 32 R-squared = 0.7325 + Root MSE = 3.2231 Adj R-squared = 0.714 + + diff --git a/tests/testthat/_snaps/binom.md b/tests/testthat/_snaps/binom.md new file mode 100644 index 0000000..3c27b7c --- /dev/null +++ b/tests/testthat/_snaps/binom.md @@ -0,0 +1,44 @@ +# output from ifr_binom_calc is as expected when k < exp_k + + Code + ifr_binom_calc(32, 8) + Output + Binomial Test + -------------------------------------- + Group N Obs. Prop Exp. Prop + -------------------------------------- + 0 24 0.75 0.500 + 1 8 0.25 0.500 + -------------------------------------- + + + Test Summary + ------------------------------------------ + Tail Prob p-value + ------------------------------------------ + Lower Pr(k <= 8) 0.0035 + Upper Pr(k >= 8) 0.998949 + ------------------------------------------ + +# output from ifr_binom_calc is as expected when k > exp_k + + Code + ifr_binom_calc(32, 20) + Output + Binomial Test + -------------------------------------- + Group N Obs. Prop Exp. Prop + -------------------------------------- + 0 12 0.375 0.500 + 1 20 0.625 0.500 + -------------------------------------- + + + Test Summary + -------------------------------------------- + Tail Prob p-value + -------------------------------------------- + Lower Pr(k <= 20) 0.944908 + Upper Pr(k >= 20) 0.107664 + -------------------------------------------- + diff --git a/tests/testthat/_snaps/chisq.md b/tests/testthat/_snaps/chisq.md new file mode 100644 index 0000000..0948598 --- /dev/null +++ b/tests/testthat/_snaps/chisq.md @@ -0,0 +1,34 @@ +# ouput from ifr_chisq_assoc_test is as expected + + Code + ifr_chisq_assoc_test(hsb, female, schtyp) + Output + Chi Square Statistics + + Statistics DF Value Prob + ---------------------------------------------------- + Chi-Square 1 0.0470 0.8284 + Likelihood Ratio Chi-Square 1 0.0471 0.8282 + Continuity Adj. Chi-Square 1 0.0005 0.9822 + Mantel-Haenszel Chi-Square 1 0.0468 0.8287 + Phi Coefficient 0.0153 + Contingency Coefficient 0.0153 + Cramer's V 0.0153 + ---------------------------------------------------- + +# ouput from ifr_chisq_assoc_test 2 is as expected + + Code + ifr_chisq_assoc_test(hsb, female, ses) + Output + Chi Square Statistics + + Statistics DF Value Prob + ---------------------------------------------------- + Chi-Square 2 4.5765 0.1014 + Likelihood Ratio Chi-Square 2 4.6789 0.0964 + Phi Coefficient 0.1513 + Contingency Coefficient 0.1496 + Cramer's V 0.1513 + ---------------------------------------------------- + diff --git a/tests/testthat/_snaps/chisqgof.md b/tests/testthat/_snaps/chisqgof.md new file mode 100644 index 0000000..8991a40 --- /dev/null +++ b/tests/testthat/_snaps/chisqgof.md @@ -0,0 +1,22 @@ +# output from ifr_chisq_gof_test is as expected + + Code + ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) + Output + Test Statistics + ----------------------- + Chi-Square 5.0286 + DF 3 + Pr > Chi Sq 0.1697 + Sample Size 200 + + Variable: race + ----------------------------------------------------------------- + Category Observed Expected % Deviation Std. Residuals + ----------------------------------------------------------------- + 1 24 20 20.00 0.89 + 2 11 20 -45.00 -2.01 + 3 20 20 0.00 0.00 + 4 145 140 3.57 0.42 + ----------------------------------------------------------------- + diff --git a/tests/testthat/_snaps/cochran.md b/tests/testthat/_snaps/cochran.md new file mode 100644 index 0000000..7fafe67 --- /dev/null +++ b/tests/testthat/_snaps/cochran.md @@ -0,0 +1,13 @@ +# output from cochran test is as expected + + Code + ifr_cochran_qtest(exam, exam1, exam2, exam3) + Output + Test Statistics + ---------------------- + N 15 + Cochran's Q 4.75 + df 2 + p value 0.093 + ---------------------- + diff --git a/tests/testthat/_snaps/indttest.md b/tests/testthat/_snaps/indttest.md new file mode 100644 index 0000000..cab2c0b --- /dev/null +++ b/tests/testthat/_snaps/indttest.md @@ -0,0 +1,153 @@ +# output from independent sample t test is as expected when alternative is less + + Code + ifr_ts_ind_ttest(hsb, female, write, alternative = "less") + Output + Group Statistics + ----------------------------------------------------------------------------- + Group Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ----------------------------------------------------------------------------- + 0 91 50.121 1.080 10.305 47.97539 52.26661 + 1 109 54.991 0.779 8.134 53.44689 56.53511 + ----------------------------------------------------------------------------- + combined 200 52.775 0.67 9.479 51.45379 54.09621 + ----------------------------------------------------------------------------- + diff 200 -4.87 1.304 9.231 -7.42623 -2.31377 + ----------------------------------------------------------------------------- + + Independent Samples Test + ------------------------ + + Ho: mean(0) - mean(1) = diff = 0 + Ha: diff < 0 + + --------------------------------------------------------------------- + Variable Method Variances DF t Value P < t + --------------------------------------------------------------------- + write Pooled Equal 198 -3.7341 0.0001 + write Satterthwaite Unequal 170 -3.6564 0.0002 + --------------------------------------------------------------------- + + Test for Equality of Variances + --------------------------------------------------------------- + Variable Method Num DF Den DF F Value P > F + --------------------------------------------------------------- + write Folded F 90 108 1.605 0.0188 + --------------------------------------------------------------- + +# output from independent sample t test is as expected when alternative is greater + + Code + ifr_ts_ind_ttest(hsb, female, write, alternative = "greater") + Output + Group Statistics + ----------------------------------------------------------------------------- + Group Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ----------------------------------------------------------------------------- + 0 91 50.121 1.080 10.305 47.97539 52.26661 + 1 109 54.991 0.779 8.134 53.44689 56.53511 + ----------------------------------------------------------------------------- + combined 200 52.775 0.67 9.479 51.45379 54.09621 + ----------------------------------------------------------------------------- + diff 200 -4.87 1.304 9.231 -7.42623 -2.31377 + ----------------------------------------------------------------------------- + + Independent Samples Test + ------------------------ + + Ho: mean(0) - mean(1) = diff = 0 + Ha: diff > 0 + + --------------------------------------------------------------------- + Variable Method Variances DF t Value P > t + --------------------------------------------------------------------- + write Pooled Equal 198 -3.7341 0.9999 + write Satterthwaite Unequal 170 -3.6564 0.9998 + --------------------------------------------------------------------- + + Test for Equality of Variances + --------------------------------------------------------------- + Variable Method Num DF Den DF F Value P > F + --------------------------------------------------------------- + write Folded F 90 108 1.605 0.0188 + --------------------------------------------------------------- + +# output from independent sample t test is as expected when alternative is both + + Code + ifr_ts_ind_ttest(hsb, female, write, alternative = "both") + Output + Group Statistics + ----------------------------------------------------------------------------- + Group Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ----------------------------------------------------------------------------- + 0 91 50.121 1.080 10.305 47.97539 52.26661 + 1 109 54.991 0.779 8.134 53.44689 56.53511 + ----------------------------------------------------------------------------- + combined 200 52.775 0.67 9.479 51.45379 54.09621 + ----------------------------------------------------------------------------- + diff 200 -4.87 1.304 9.231 -7.42623 -2.31377 + ----------------------------------------------------------------------------- + + Independent Samples Test + ------------------------ + + Ho: mean(0) - mean(1) = diff = 0 + Ha: diff ~= 0 + + --------------------------------------------------------------------- + Variable Method Variances DF t Value P > |t| + --------------------------------------------------------------------- + write Pooled Equal 198 -3.7341 0.0002 + write Satterthwaite Unequal 170 -3.6564 0.0003 + --------------------------------------------------------------------- + + Test for Equality of Variances + --------------------------------------------------------------- + Variable Method Num DF Den DF F Value P > F + --------------------------------------------------------------- + write Folded F 90 108 1.605 0.0188 + --------------------------------------------------------------- + +# output from independent sample t test is as expected when alternative is all + + Code + ifr_ts_ind_ttest(hsb, female, write, alternative = "all") + Output + Group Statistics + ----------------------------------------------------------------------------- + Group Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ----------------------------------------------------------------------------- + 0 91 50.121 1.080 10.305 47.97539 52.26661 + 1 109 54.991 0.779 8.134 53.44689 56.53511 + ----------------------------------------------------------------------------- + combined 200 52.775 0.67 9.479 51.45379 54.09621 + ----------------------------------------------------------------------------- + diff 200 -4.87 1.304 9.231 -7.42623 -2.31377 + ----------------------------------------------------------------------------- + + Independent Samples Test + ------------------------ + + Ho: mean(0) - mean(1) = diff = 0 + + Ha: diff < 0 Ha: diff ~= 0 Ha: diff > 0 + + Pooled + ------------------------------------------------------------------------ + t = -3.7341 t = -3.7341 t = -3.7341 + P < t = 0.0001 P > |t| = 0.0002 P > t = 0.9999 + + Satterthwaite + ------------------------------------------------------------------------ + t = -3.6564 t = -3.6564 t = -3.6564 + P < t = 0.0002 P > |t| = 0.0003 P > t = 0.9998 + + + Test for Equality of Variances + --------------------------------------------------------------- + Variable Method Num DF Den DF F Value P > F + --------------------------------------------------------------- + write Folded F 90 108 1.605 0.0188 + --------------------------------------------------------------- + diff --git a/tests/testthat/_snaps/levene.md b/tests/testthat/_snaps/levene.md new file mode 100644 index 0000000..62fa4b6 --- /dev/null +++ b/tests/testthat/_snaps/levene.md @@ -0,0 +1,25 @@ +# output from levene test is as expected + + Code + ifr_levene_test(hsb, read, group_var = race) + Output + Summary Statistics + Levels Frequency Mean Std. Dev + ----------------------------------------- + 1 24 46.67 10.24 + 2 11 51.91 7.66 + 3 20 46.8 7.12 + 4 145 53.92 10.28 + ----------------------------------------- + Total 200 52.23 10.25 + ----------------------------------------- + + Test Statistics + ------------------------------------------------------------------------- + Statistic Num DF Den DF F Pr > F + ------------------------------------------------------------------------- + Brown and Forsythe 3 196 3.44 0.0179 + Levene 3 196 3.4792 0.017 + Brown and Forsythe (Trimmed Mean) 3 196 3.3936 0.019 + ------------------------------------------------------------------------- + diff --git a/tests/testthat/_snaps/mcnemar.md b/tests/testthat/_snaps/mcnemar.md new file mode 100644 index 0000000..4b204e5 --- /dev/null +++ b/tests/testthat/_snaps/mcnemar.md @@ -0,0 +1,39 @@ +# output from mcnemar test is as expected + + Code + ifr_mcnemar_test(table(himath, hiread)) + Output + Controls + --------------------------------- + Cases 0 1 Total + --------------------------------- + 0 135 21 156 + 1 18 26 44 + --------------------------------- + Total 153 47 200 + --------------------------------- + + McNemar's Test + ---------------------------- + McNemar's chi2 0.2308 + DF 1 + Pr > chi2 0.631 + Exact Pr >= chi2 0.7493 + ---------------------------- + + Kappa Coefficient + -------------------------------- + Kappa 0.4454 + ASE 0.075 + 95% Lower Conf Limit 0.2984 + 95% Upper Conf Limit 0.5923 + -------------------------------- + + Proportion With Factor + ---------------------- + cases 0.78 + controls 0.765 + ratio 1.0196 + odds ratio 1.1667 + ---------------------- + diff --git a/tests/testthat/_snaps/os-vartest.md b/tests/testthat/_snaps/os-vartest.md new file mode 100644 index 0000000..2f72f69 --- /dev/null +++ b/tests/testthat/_snaps/os-vartest.md @@ -0,0 +1,90 @@ +# output from one sample variance test is as expected when alternative is less + + Code + ifr_os_var_test(mtcars, mpg, 5, alternative = "less") + Output + One-Sample Statistics + ----------------------------------------------------------------------------- + Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ----------------------------------------------------------------------------- + mpg 32 20.0906 1.0654 6.0269 3.8737 10.6527 + ----------------------------------------------------------------------------- + + Lower Tail Test + --------------- + Ho: sd(mpg) >= 5 + Ha: sd(mpg) < 5 + + Chi-Square Test for Variance + ------------------------------------- + Variable c DF Sig + ------------------------------------- + mpg 45.042 31 0.9506 + ------------------------------------- + +# output from one sample variance test is as expected when alternative is greater + + Code + ifr_os_var_test(mtcars, mpg, 5, alternative = "greater") + Output + One-Sample Statistics + ----------------------------------------------------------------------------- + Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ----------------------------------------------------------------------------- + mpg 32 20.0906 1.0654 6.0269 3.8737 10.6527 + ----------------------------------------------------------------------------- + + Upper Tail Test + --------------- + Ho: sd(mpg) <= 5 + Ha: sd(mpg) > 5 + + Chi-Square Test for Variance + ------------------------------------- + Variable c DF Sig + ------------------------------------- + mpg 45.042 31 0.0494 + ------------------------------------- + +# output from one sample variance test is as expected when alternative is both + + Code + ifr_os_var_test(mtcars, mpg, 5, alternative = "both") + Output + One-Sample Statistics + ----------------------------------------------------------------------------- + Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ----------------------------------------------------------------------------- + mpg 32 20.0906 1.0654 6.0269 3.8737 10.6527 + ----------------------------------------------------------------------------- + + Two Tail Test + --------------- + Ho: sd(mpg) = 5 + Ha: sd(mpg) != 5 + + Chi-Square Test for Variance + ------------------------------------- + Variable c DF Sig + ------------------------------------- + mpg 45.042 31 0.0988 + ------------------------------------- + +# output from one sample variance test is as expected when alternative is all + + Code + ifr_os_var_test(mtcars, mpg, 5, alternative = "all") + Output + One-Sample Statistics + ----------------------------------------------------------------------------- + Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ----------------------------------------------------------------------------- + mpg 32 20.0906 1.0654 6.0269 3.8737 10.6527 + ----------------------------------------------------------------------------- + + Ho: sd(mpg) = 5 + + Ha: sd < 5 Ha: sd != 5 Ha: sd > 5 + c = 45.0419 c = 45.0419 c = 45.0419 + Pr(C < c) = 0.9506 2 * Pr(C > c) = 0.0988 Pr(C > c) = 0.0494 + diff --git a/tests/testthat/_snaps/paired-test.md b/tests/testthat/_snaps/paired-test.md new file mode 100644 index 0000000..10f7798 --- /dev/null +++ b/tests/testthat/_snaps/paired-test.md @@ -0,0 +1,123 @@ +# output from paired sample t test is as expected when alternative is less + + Code + ifr_ts_paired_ttest(hsb, read, write, alternative = "less") + Output + Paired Samples Statistics + ---------------------------------------------------------------------------- + Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ---------------------------------------------------------------------------- + read 200 52.23 0.7249921 10.25294 50.8 53.66 + write 200 52.775 0.6702372 9.478586 51.45 54.1 + ---------------------------------------------------------------------------- + diff 200 -0.545 0.6283822 8.886666 -1.78 0.69 + ---------------------------------------------------------------------------- + + Paired Samples Correlations + ------------------------------------------- + Variables Obs Correlation Sig. + read & write 200 0.60 0 + ------------------------------------------- + + Paired Samples Test + ------------------- + Ho: mean(read - write) = 0 + Ha: mean(read - write) < 0 + + ---------------------------------------- + Variables t df Sig. + ---------------------------------------- + read - write -0.8673 199 0.193 + ---------------------------------------- + +# output from paired sample t test is as expected when alternative is greater + + Code + ifr_ts_paired_ttest(hsb, read, write, alternative = "greater") + Output + Paired Samples Statistics + ---------------------------------------------------------------------------- + Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ---------------------------------------------------------------------------- + read 200 52.23 0.7249921 10.25294 50.8 53.66 + write 200 52.775 0.6702372 9.478586 51.45 54.1 + ---------------------------------------------------------------------------- + diff 200 -0.545 0.6283822 8.886666 -1.78 0.69 + ---------------------------------------------------------------------------- + + Paired Samples Correlations + ------------------------------------------- + Variables Obs Correlation Sig. + read & write 200 0.60 0 + ------------------------------------------- + + Paired Samples Test + ------------------- + Ho: mean(read - write) = 0 + Ha: mean(read - write) > 0 + + ---------------------------------------- + Variables t df Sig. + ---------------------------------------- + read - write -0.8673 199 0.807 + ---------------------------------------- + +# output from paired sample t test is as expected when alternative is both + + Code + ifr_ts_paired_ttest(hsb, read, write, alternative = "both") + Output + Paired Samples Statistics + ---------------------------------------------------------------------------- + Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ---------------------------------------------------------------------------- + read 200 52.23 0.7249921 10.25294 50.8 53.66 + write 200 52.775 0.6702372 9.478586 51.45 54.1 + ---------------------------------------------------------------------------- + diff 200 -0.545 0.6283822 8.886666 -1.78 0.69 + ---------------------------------------------------------------------------- + + Paired Samples Correlations + ------------------------------------------- + Variables Obs Correlation Sig. + read & write 200 0.60 0 + ------------------------------------------- + + Paired Samples Test + ------------------- + Ho: mean(read - write) = 0 + Ha: mean(read - write) ~= 0 + + ---------------------------------------- + Variables t df Sig. + ---------------------------------------- + read - write -0.8673 199 0.387 + ---------------------------------------- + +# output from paired sample t test is as expected when alternative is all + + Code + ifr_ts_paired_ttest(hsb, read, write, alternative = "all") + Output + Paired Samples Statistics + ---------------------------------------------------------------------------- + Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + ---------------------------------------------------------------------------- + read 200 52.23 0.7249921 10.25294 50.8 53.66 + write 200 52.775 0.6702372 9.478586 51.45 54.1 + ---------------------------------------------------------------------------- + diff 200 -0.545 0.6283822 8.886666 -1.78 0.69 + ---------------------------------------------------------------------------- + + Paired Samples Correlations + ------------------------------------------- + Variables Obs Correlation Sig. + read & write 200 0.60 0 + ------------------------------------------- + + Ho: mean(read - write) = mean(diff) = 0 + + Ha: mean(diff) < 0 Ha: mean(diff) ~= 0 Ha: mean(diff) > 0 + t = -0.8673 t = -0.8673 t = -0.8673 + P < t = 0.193 P > |t| = 0.387 P > t = 0.807 + diff --git a/tests/testthat/_snaps/runs.md b/tests/testthat/_snaps/runs.md new file mode 100644 index 0000000..2e1ae0f --- /dev/null +++ b/tests/testthat/_snaps/runs.md @@ -0,0 +1,16 @@ +# output from runs test is as expected + + Code + ifr_runs_test(resid, residual) + Output + Runs Test + Total Cases: 32 + Test Value : -0.9630856 + Cases < Test Value: 16 + Cases > Test Value: 16 + Number of Runs: 11 + Expected Runs: 17 + Variance (Runs): 7.741935 + z Statistic: -2.156386 + p-value: 0.03105355 + diff --git a/tests/testthat/_snaps/ttest.md b/tests/testthat/_snaps/ttest.md new file mode 100644 index 0000000..db93dd7 --- /dev/null +++ b/tests/testthat/_snaps/ttest.md @@ -0,0 +1,87 @@ +# output from one sample t test is as expected when alternative is less + + Code + ifr_os_t_test(hsb, write, mu = 50, alternative = "less") + Output + One-Sample Statistics + --------------------------------------------------------------------------------- + Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + --------------------------------------------------------------------------------- + write 200 52.775 0.6702 9.4786 -Inf 53.8828 + --------------------------------------------------------------------------------- + + Lower Tail Test + --------------- + + Ho: mean(write) >=50 + Ha: mean(write) <50 + -------------------------------------------------------------------------------- + Variable t DF Sig Mean Diff. [95% Conf. Interval] + -------------------------------------------------------------------------------- + write 4.141 199 0.99997 2.775 -Inf 3.8828 + -------------------------------------------------------------------------------- + +# output from one sample t test is as expected when alternative is greater + + Code + ifr_os_t_test(hsb, write, mu = 50, alternative = "greater") + Output + One-Sample Statistics + --------------------------------------------------------------------------------- + Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + --------------------------------------------------------------------------------- + write 200 52.775 0.6702 9.4786 51.6678 Inf + --------------------------------------------------------------------------------- + + Upper Tail Test + --------------- + + Ho: mean(write) <=50 + Ha: mean(write) >50 + -------------------------------------------------------------------------------- + Variable t DF Sig Mean Diff. [95% Conf. Interval] + -------------------------------------------------------------------------------- + write 4.141 199 0.00003 2.775 1.6678 Inf + -------------------------------------------------------------------------------- + +# output from one sample t test is as expected when alternative is both + + Code + ifr_os_t_test(hsb, write, mu = 50, alternative = "both") + Output + One-Sample Statistics + --------------------------------------------------------------------------------- + Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + --------------------------------------------------------------------------------- + write 200 52.775 0.6702 9.4786 51.4537 54.0969 + --------------------------------------------------------------------------------- + + Two Tail Test + --------------- + + Ho: mean(write) ~=50 + Ha: mean(write) !=50 + -------------------------------------------------------------------------------- + Variable t DF Sig Mean Diff. [95% Conf. Interval] + -------------------------------------------------------------------------------- + write 4.141 199 0.00005 2.775 1.4537 4.0969 + -------------------------------------------------------------------------------- + +# output from one sample t test is as expected when alternative is all + + Code + ifr_os_t_test(hsb, write, mu = 50, alternative = "all") + Output + One-Sample Statistics + --------------------------------------------------------------------------------- + Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] + --------------------------------------------------------------------------------- + write 200 52.775 0.6702 9.4786 51.4537 54.0969 + --------------------------------------------------------------------------------- + + Ho: mean(write) ~=50 + + Ha: mean < 50 Ha: mean ~= 50 Ha: mean > 50 + t = 4.141 t = 4.141 t = 4.141 + P < t = 0.99997 P > |t| = 0.00005 P > t = 0.00003 + diff --git a/tests/testthat/_snaps/two-prop-test.md b/tests/testthat/_snaps/two-prop-test.md new file mode 100644 index 0000000..ca76b8e --- /dev/null +++ b/tests/testthat/_snaps/two-prop-test.md @@ -0,0 +1,50 @@ +# output from 2 sample proportion test is as expected when alternative is less + + Code + ifr_ts_prop_group(treatment2, outcome, female, alternative = "less") + Output + Test Statistics + ----------------------------- + Total Observations 200 + z 0.351 + Pr(Z < z) 0.637 + + +# output from 2 sample proportion test is as expected when alternative is greater + + Code + ifr_ts_prop_group(treatment2, outcome, female, alternative = "greater") + Output + Test Statistics + ----------------------------- + Total Observations 200 + z 0.351 + Pr(Z > z) 0.363 + + +# output from 2 sample proportion test is as expected when alternative is both + + Code + ifr_ts_prop_group(treatment2, outcome, female, alternative = "both") + Output + Test Statistics + ----------------------------- + Total Observations 200 + z 0.351 + Pr(|Z| < |z|) 0.726 + + +# output from 2 sample proportion test is as expected when alternative is all + + Code + ifr_ts_prop_group(treatment2, outcome, female, alternative = "all") + Output + Test Statistics + ----------------------------- + Total Observations 200 + z 0.351 + Pr(|Z| < |z|) 0.726 + Pr(Z < z) 0.637 + Pr(Z > z) 0.363 + + diff --git a/tests/testthat/_snaps/two-var-test.md b/tests/testthat/_snaps/two-var-test.md new file mode 100644 index 0000000..e84841c --- /dev/null +++ b/tests/testthat/_snaps/two-var-test.md @@ -0,0 +1,86 @@ +# output from 2 sample variance test is as expected when alternative is less + + Code + ifr_ts_var_test(hsb, read, write, alternative = "less") + Output + Variance Ratio Test + -------------------------------------------------- + Group Obs Mean Std. Err. Std. Dev. + -------------------------------------------------- + read 200 52.23 0.72 10.25 + write 200 52.77 0.67 9.48 + -------------------------------------------------- + combined 400 52.5 0.49 9.86 + -------------------------------------------------- + + Lower Tail Test + --------------- + ratio = sd(read) / (write) + Ho: ratio = 1 + Ha: ratio < 1 + + Variance Ratio Test + ------------------------------------ + F Num DF Den DF p + ------------------------------------ + 1.1701 199 199 0.8656 + ------------------------------------ + +# output from 2 sample variance test is as expected when alternative is greater + + Code + ifr_ts_var_test(hsb, read, write, alternative = "greater") + Output + Variance Ratio Test + -------------------------------------------------- + Group Obs Mean Std. Err. Std. Dev. + -------------------------------------------------- + read 200 52.23 0.72 10.25 + write 200 52.77 0.67 9.48 + -------------------------------------------------- + combined 400 52.5 0.49 9.86 + -------------------------------------------------- + + Upper Tail Test + --------------- + Ho: ratio = 1 + Ha: ratio > 1 + + Variance Ratio Test + ------------------------------------ + F Num DF Den DF p + ------------------------------------ + 1.1701 199 199 0.1344 + ------------------------------------ + +# output from 2 sample variance test is as expected when alternative is all + + Code + ifr_ts_var_test(hsb, read, write, alternative = "all") + Output + Variance Ratio Test + -------------------------------------------------- + Group Obs Mean Std. Err. Std. Dev. + -------------------------------------------------- + read 200 52.23 0.72 10.25 + write 200 52.77 0.67 9.48 + -------------------------------------------------- + combined 400 52.5 0.49 9.86 + -------------------------------------------------- + + Variance Ratio Test + -------------------------------------------------- + F Num DF Den DF + -------------------------------------------------- + 1.1701 199 199 + -------------------------------------------------- + + Null & Alternate Hypothesis + ---------------------------------------- + ratio = sd(read) / (write) + Ho: ratio = 1 + + Ha: ratio < 1 Ha: ratio > 1 + Pr(F < f) = 0.8656 Pr(F > f) = 0.1344 + ---------------------------------------- + diff --git a/tests/testthat/test-anova.R b/tests/testthat/test-anova.R index d1ec31e..a911b03 100644 --- a/tests/testthat/test-anova.R +++ b/tests/testthat/test-anova.R @@ -1,5 +1,3 @@ -context("anova") - test_that("output from ifr_oneway_anova matches the expected output", { k <- ifr_oneway_anova(mtcars, mpg, cyl) expect_equal(k$ss_between, 824.785) @@ -19,27 +17,5 @@ test_that("output from ifr_oneway_anova matches the expected output", { }) test_that("output from one way anova is as expected", { - x <- cat(" ANOVA --------------------------------------------------------------------- - Sum of - Squares DF Mean Square F Sig. --------------------------------------------------------------------- -Between Groups 824.785 2 412.392 39.699 0.0000 -Within Groups 301.263 29 10.388 -Total 1126.048 31 --------------------------------------------------------------------- - - Report ----------------------------------------- - Category N Mean Std. Dev. ----------------------------------------- - 4 11 26.664 4.510 - 6 7 19.743 1.454 - 8 14 15.100 2.560 ----------------------------------------- - -Number of obs = 32 R-squared = 0.7325 -Root MSE = 3.2231 Adj R-squared = 0.714") - - expect_equivalent(print(ifr_oneway_anova(mtcars, mpg, cyl)), x) + expect_snapshot(ifr_oneway_anova(mtcars, mpg, cyl)) }) diff --git a/tests/testthat/test-binom.R b/tests/testthat/test-binom.R index 5a357f0..bb32c1a 100644 --- a/tests/testthat/test-binom.R +++ b/tests/testthat/test-binom.R @@ -1,5 +1,3 @@ -context("binomtest") - test_that("output from ifr_binom_calc matches the expected output", { k <- ifr_binom_calc(32, 8) expect_equal(k$n, 32) @@ -54,43 +52,9 @@ test_that("ifr_binom_test throws the appropriate error", { test_that("output from ifr_binom_calc is as expected when k < exp_k", { - x <- cat(" Binomial Test - -------------------------------------- - Group N Obs. Prop Exp. Prop - -------------------------------------- - 0 24 0.75 0.500 - 1 8 0.25 0.500 - -------------------------------------- - - - Test Summary - ------------------------------------------ - Tail Prob p-value - ------------------------------------------ - Lower Pr(k <= 8) 0.0035 - Upper Pr(k >= 8) 0.998949 - ------------------------------------------") - - expect_equivalent(print(ifr_binom_calc(32, 8)), x) + expect_snapshot(ifr_binom_calc(32, 8)) }) test_that("output from ifr_binom_calc is as expected when k > exp_k", { - x <- cat(" Binomial Test - -------------------------------------- - Group N Obs. Prop Exp. Prop - -------------------------------------- - 0 12 0.375 0.500 - 1 20 0.625 0.500 - -------------------------------------- - - - Test Summary - -------------------------------------------- - Tail Prob p-value - -------------------------------------------- - Lower Pr(k <= 20) 0.944908 - Upper Pr(k >= 20) 0.107664 - --------------------------------------------") - - expect_equivalent(print(ifr_binom_calc(32, 20)), x) + expect_snapshot(ifr_binom_calc(32, 20)) }) diff --git a/tests/testthat/test-chisq.R b/tests/testthat/test-chisq.R index 4241ec8..118a5b5 100644 --- a/tests/testthat/test-chisq.R +++ b/tests/testthat/test-chisq.R @@ -1,5 +1,3 @@ -context("chi2-contingency") - test_that("ouput from ifr_chisq_assoc_test matches the expected result", { k <- ifr_chisq_assoc_test(hsb, female, schtyp) expect_equal(k$df, 1) @@ -36,33 +34,9 @@ test_that("ifr_chisq_assoc_test throws the appropriate error", { }) test_that("ouput from ifr_chisq_assoc_test is as expected", { - x <- cat(" Chi Square Statistics - -Statistics DF Value Prob ----------------------------------------------------- -Chi-Square 1 0.0470 0.8284 -Likelihood Ratio Chi-Square 1 0.0471 0.8282 -Continuity Adj. Chi-Square 1 0.0005 0.9822 -Mantel-Haenszel Chi-Square 1 0.0468 0.8287 -Phi Coefficient 0.0153 -Contingency Coefficient 0.0153 -Cramer's V 0.0153 -----------------------------------------------------") - - expect_equivalent(print(ifr_chisq_assoc_test(hsb, female, schtyp)), x) + expect_snapshot(ifr_chisq_assoc_test(hsb, female, schtyp)) }) test_that("ouput from ifr_chisq_assoc_test 2 is as expected", { - x <- cat(" Chi Square Statistics - -Statistics DF Value Prob ----------------------------------------------------- -Chi-Square 2 4.5765 0.1014 -Likelihood Ratio Chi-Square 2 4.6789 0.0964 -Phi Coefficient 0.1513 -Contingency Coefficient 0.1496 -Cramer's V 0.1513 -----------------------------------------------------") - - expect_equivalent(print(ifr_chisq_assoc_test(hsb, female, ses)), x) + expect_snapshot(ifr_chisq_assoc_test(hsb, female, ses)) }) diff --git a/tests/testthat/test-chisqgof.R b/tests/testthat/test-chisqgof.R index 6dbbcb1..4d7efc9 100644 --- a/tests/testthat/test-chisqgof.R +++ b/tests/testthat/test-chisqgof.R @@ -1,18 +1,16 @@ -context("chi2-gof") - test_that("output from ifr_chisq_gof_test matches the expected output", { k <- ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140)) expect_equal(k$chisquare, 5.0286) expect_equal(k$pvalue, 0.1697) expect_equal(k$degrees_of_freedom, 3) expect_equal(k$sample_size, 200) - expect_equivalent(k$categories, c("1", "2", "3", "4")) + expect_equal(k$categories, c("1", "2", "3", "4")) expect_equal(k$n_levels, 4) - expect_equivalent(k$observed_frequency, c(24, 11, 20, 145)) - expect_equivalent(k$expected_frequency, c(20, 20, 20, 140)) - expect_equivalent(k$deviation, c(" 20.00", "-45.00", " 0.00", " 3.57")) - expect_equivalent(k$std_residuals, c(" 0.89", "-2.01", " 0.00", " 0.42")) - expect_equivalent(k$varname, "race") + expect_equal(k$observed_frequency, c(24, 11, 20, 145)) + expect_equal(k$expected_frequency, c(20, 20, 20, 140)) + expect_equal(k$deviation, c(" 20.00", "-45.00", " 0.00", " 3.57")) + expect_equal(k$std_residuals, c(" 0.89", "-2.01", " 0.00", " 0.42")) + expect_equal(k$varname, "race") }) @@ -22,13 +20,13 @@ test_that("output from ifr_chisq_gof_test matches the expected output", { expect_equal(k$pvalue, 0.1697) expect_equal(k$degrees_of_freedom, 3) expect_equal(k$sample_size, 200) - expect_equivalent(k$categories, c("1", "2", "3", "4")) + expect_equal(k$categories, c("1", "2", "3", "4")) expect_equal(k$n_levels, 4) - expect_equivalent(k$observed_frequency, c(24, 11, 20, 145)) - expect_equivalent(k$expected_frequency, c(20, 20, 20, 140)) - expect_equivalent(k$deviation, c(" 20.00", "-45.00", " 0.00", " 3.57")) - expect_equivalent(k$std_residuals, c(" 0.89", "-2.01", " 0.00", " 0.42")) - expect_equivalent(k$varname, "race") + expect_equal(k$observed_frequency, c(24, 11, 20, 145)) + expect_equal(k$expected_frequency, c(20, 20, 20, 140)) + expect_equal(k$deviation, c(" 20.00", "-45.00", " 0.00", " 3.57")) + expect_equal(k$std_residuals, c(" 0.89", "-2.01", " 0.00", " 0.42")) + expect_equal(k$varname, "race") }) test_that("output from ifr_chisq_gof_test matches the expected output", { @@ -37,13 +35,13 @@ test_that("output from ifr_chisq_gof_test matches the expected output", { expect_equal(k$pvalue, 0.2231) expect_equal(k$degrees_of_freedom, 3) expect_equal(k$sample_size, 200) - expect_equivalent(k$categories, c("1", "2", "3", "4")) + expect_equal(k$categories, c("1", "2", "3", "4")) expect_equal(k$n_levels, 4) - expect_equivalent(k$observed_frequency, c(24, 11, 20, 145)) - expect_equivalent(k$expected_frequency, c(20, 20, 20, 140)) - expect_equivalent(k$deviation, c(" 17.50", "-47.50", " -2.50", " 3.21")) - expect_equivalent(k$std_residuals, c(" 0.78", "-2.12", "-0.11", " 0.38")) - expect_equivalent(k$varname, "race") + expect_equal(k$observed_frequency, c(24, 11, 20, 145)) + expect_equal(k$expected_frequency, c(20, 20, 20, 140)) + expect_equal(k$deviation, c(" 17.50", "-47.50", " -2.50", " 3.21")) + expect_equal(k$std_residuals, c(" 0.78", "-2.12", "-0.11", " 0.38")) + expect_equal(k$varname, "race") }) @@ -70,22 +68,5 @@ test_that("ifr_chisq_gof_test throws appropriate errors", { test_that("output from ifr_chisq_gof_test is as expected", { - x <- cat(" Test Statistics ------------------------ -Chi-Square 5.0286 -DF 3 -Pr > Chi Sq 0.1697 -Sample Size 200 - - Variable: race ------------------------------------------------------------------ -Category Observed Expected % Deviation Std. Residuals ------------------------------------------------------------------ - 1 24 20 20.00 0.89 - 2 11 20 -45.00 -2.01 - 3 20 20 0.00 0.00 - 4 145 140 3.57 0.42 ------------------------------------------------------------------") - - expect_equivalent(print(ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140))), x) + expect_snapshot(ifr_chisq_gof_test(hsb, race, c(20, 20, 20, 140))) }) diff --git a/tests/testthat/test-cochran.R b/tests/testthat/test-cochran.R index be4dd43..d20ad73 100644 --- a/tests/testthat/test-cochran.R +++ b/tests/testthat/test-cochran.R @@ -1,5 +1,3 @@ -context("cochran") - test_that("output from ifr_cochran_qtest matches the expected result", { k <- ifr_cochran_qtest(exam, exam1, exam2, exam3) expect_equal(k$n, 15) @@ -21,13 +19,5 @@ test_that("ifr_cochran_qtest throws appropriate errors", { }) test_that("output from cochran test is as expected", { - x <- cat(" Test Statistics ----------------------- -N 15 -Cochran's Q 4.75 -df 2 -p value 0.093 -----------------------") - - expect_equivalent(print(ifr_cochran_qtest(exam, exam1, exam2, exam3)), x) + expect_snapshot(ifr_cochran_qtest(exam, exam1, exam2, exam3)) }) diff --git a/tests/testthat/test-indttest.R b/tests/testthat/test-indttest.R index 7d22317..96176ec 100644 --- a/tests/testthat/test-indttest.R +++ b/tests/testthat/test-indttest.R @@ -1,23 +1,21 @@ -context("ifr_ts_ind_ttest") - test_that("output from ifr_ts_ind_ttest matches expected result", { k <- ifr_ts_ind_ttest(hsb, female, write) - expect_equivalent(k$levels, c("0", "1")) - expect_equivalent(as.numeric(k$obs), c(91, 109)) + expect_equal(k$levels, c("0", "1")) + expect_equal(as.numeric(k$obs), c(91, 109)) expect_equal(k$n, 200) - expect_equivalent(as.numeric(k$mean), c(50.121, 54.991)) - expect_equivalent(as.numeric(k$sd), c(10.305, 8.134)) - expect_equivalent(as.numeric(k$se), c(1.080, 0.779)) - expect_equivalent(round(as.numeric(k$lower), 3), c(47.975, 53.447)) - expect_equivalent(round(as.numeric(k$upper), 3), c(52.267, 56.535)) - expect_equivalent(round(unlist(k$combined), 3), c( + expect_equal(as.numeric(k$mean), c(50.121, 54.991)) + expect_equal(as.numeric(k$sd), c(10.305, 8.134)) + expect_equal(as.numeric(k$se), c(1.080, 0.779)) + expect_equal(round(as.numeric(k$lower), 3), c(47.975, 53.447)) + expect_equal(round(as.numeric(k$upper), 3), c(52.267, 56.535)) + expect_equal(round(unlist(k$combined), 3), c( 200.000, 52.775, 9.479, 0.670, 199.000, 1.972, 51.454, 54.096 )) expect_equal(k$mean_diff, -4.87) expect_equal(k$sd_dif, 9.231) expect_equal(k$se_dif, 1.304) - expect_equivalent(round(k$conf_diff, 3), c(-7.426, -2.314)) + expect_equal(round(k$conf_diff, 3), c(-7.426, -2.314)) expect_equal(k$df_pooled, 198) expect_equal(k$df_satterthwaite, 170) expect_equal(round(k$t_pooled, 2), -3.73) @@ -33,156 +31,23 @@ test_that("output from ifr_ts_ind_ttest matches expected result", { expect_equal(k$f, 1.605) expect_equal(k$f_sig, 0.0188) expect_equal(k$confint, 0.95) - expect_equivalent(k$var_y, "write") - expect_equivalent(k$alternative, "both") + expect_equal(k$var_y, "write") + expect_equal(k$alternative, "both") }) test_that("output from independent sample t test is as expected when alternative is less", { - x <- cat(" Group Statistics ------------------------------------------------------------------------------ - Group Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ------------------------------------------------------------------------------ - 0 91 50.121 1.080 10.305 47.975 52.267 - 1 109 54.991 0.779 8.134 53.447 56.535 ------------------------------------------------------------------------------ - combined 200 52.775 0.67 9.479 51.454 54.096 ------------------------------------------------------------------------------ - diff 200 -4.87 1.304 9.231 -7.426 -2.314 ------------------------------------------------------------------------------ - - Independent Samples Test - ------------------------ - - Ho: mean(0) - mean(1) = diff = 0 - Ha: diff < 0 - ---------------------------------------------------------------------- - Variable Method Variances DF t Value P < t ---------------------------------------------------------------------- - write Pooled Equal 198 -3.7347 0.0001 - write Satterthwaite Unequal 170 -3.6564 0.0002 ---------------------------------------------------------------------- - - Test for Equality of Variances ---------------------------------------------------------------- - Variable Method Num DF Den DF F Value P > F ---------------------------------------------------------------- - write Folded F 90 108 1.605 0.0188 ----------------------------------------------------------------") - - expect_equivalent(print(ifr_ts_ind_ttest(hsb, female, write, alternative = "less")), x) + expect_snapshot(ifr_ts_ind_ttest(hsb, female, write, alternative = "less")) }) test_that("output from independent sample t test is as expected when alternative is greater", { - x <- cat(" Group Statistics ------------------------------------------------------------------------------ - Group Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ------------------------------------------------------------------------------ - 0 91 50.121 1.080 10.305 47.975 52.267 - 1 109 54.991 0.779 8.134 53.447 56.535 ------------------------------------------------------------------------------ - combined 200 52.775 0.67 9.479 51.454 54.096 ------------------------------------------------------------------------------ - diff 200 -4.87 1.304 9.231 -7.426 -2.314 ------------------------------------------------------------------------------ - - Independent Samples Test - ------------------------ - - Ho: mean(0) - mean(1) = diff = 0 - Ha: diff > 0 - ---------------------------------------------------------------------- - Variable Method Variances DF t Value P > t ---------------------------------------------------------------------- - write Pooled Equal 198 -3.7347 0.9999 - write Satterthwaite Unequal 170 -3.6564 0.9998 ---------------------------------------------------------------------- - - Test for Equality of Variances ---------------------------------------------------------------- - Variable Method Num DF Den DF F Value P > F ---------------------------------------------------------------- - write Folded F 90 108 1.605 0.0188 ----------------------------------------------------------------") - - expect_equivalent(print(ifr_ts_ind_ttest(hsb, female, write, alternative = "greater")), x) + expect_snapshot(ifr_ts_ind_ttest(hsb, female, write, alternative = "greater")) }) test_that("output from independent sample t test is as expected when alternative is both", { - x <- cat(" Group Statistics ------------------------------------------------------------------------------ - Group Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ------------------------------------------------------------------------------ - 0 91 50.121 1.080 10.305 47.975 52.267 - 1 109 54.991 0.779 8.134 53.447 56.535 ------------------------------------------------------------------------------ - combined 200 52.775 0.67 9.479 51.454 54.096 ------------------------------------------------------------------------------ - diff 200 -4.87 1.304 9.231 -7.426 -2.314 ------------------------------------------------------------------------------ - - Independent Samples Test - ------------------------ - - Ho: mean(0) - mean(1) = diff = 0 - Ha: diff ~= 0 - ---------------------------------------------------------------------- - Variable Method Variances DF t Value P > |t| ---------------------------------------------------------------------- - write Pooled Equal 198 -3.7347 0.0002 - write Satterthwaite Unequal 170 -3.6564 0.0003 ---------------------------------------------------------------------- - - Test for Equality of Variances ---------------------------------------------------------------- - Variable Method Num DF Den DF F Value P > F ---------------------------------------------------------------- - write Folded F 90 108 1.605 0.0188 ----------------------------------------------------------------") - - expect_equivalent(print(ifr_ts_ind_ttest(hsb, female, write, alternative = "both")), x) + expect_snapshot(ifr_ts_ind_ttest(hsb, female, write, alternative = "both")) }) test_that("output from independent sample t test is as expected when alternative is all", { - x <- cat(" Group Statistics ------------------------------------------------------------------------------ - Group Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ------------------------------------------------------------------------------ - 0 91 50.121 1.080 10.305 47.975 52.267 - 1 109 54.991 0.779 8.134 53.447 56.535 ------------------------------------------------------------------------------ - combined 200 52.775 0.67 9.479 51.454 54.096 ------------------------------------------------------------------------------ - diff 200 -4.87 1.304 9.231 -7.426 -2.314 ------------------------------------------------------------------------------ - - Independent Samples Test - ------------------------ - - Ho: mean(0) - mean(1) = diff = 0 - - Ha: diff < 0 Ha: diff ~= 0 Ha: diff > 0 - - Pooled ------------------------------------------------------------------------- - t = -3.7347 t = -3.7347 t = -3.7347 - P < t = 0.0001 P > |t| = 0.0002 P > t = 0.9999 - - Satterthwaite ------------------------------------------------------------------------- - t = -3.6564 t = -3.6564 t = -3.6564 - P < t = 0.0002 P > |t| = 0.0003 P > t = 0.9998 - - - Test for Equality of Variances ---------------------------------------------------------------- - Variable Method Num DF Den DF F Value P > F ---------------------------------------------------------------- - write Folded F 90 108 1.605 0.0188 ----------------------------------------------------------------") - - expect_equivalent(print(ifr_ts_ind_ttest(hsb, female, write, alternative = "all")), x) + expect_snapshot(ifr_ts_ind_ttest(hsb, female, write, alternative = "all")) }) diff --git a/tests/testthat/test-levene.R b/tests/testthat/test-levene.R index 4804243..a415342 100644 --- a/tests/testthat/test-levene.R +++ b/tests/testthat/test-levene.R @@ -1,5 +1,3 @@ -context("levene-test") - test_that("output from ifr_levene_test matches the expected result", { mt <- mtcars mt$cyl <- as.factor(mt$cyl) @@ -11,15 +9,15 @@ test_that("output from ifr_levene_test matches the expected result", { expect_equal(k$p_lev, 0.0094) expect_equal(k$bft, 6.2047) expect_equal(k$p_bft, 0.0057) - expect_equivalent(as.vector(k$avgs), c(26.66, 19.74, 15.10)) - expect_equivalent(as.vector(k$sds), c(4.51, 1.45, 2.56)) + expect_equal(as.vector(k$avgs), c(26.66, 19.74, 15.10)) + expect_equal(as.vector(k$sds), c(4.51, 1.45, 2.56)) expect_equal(k$avg, 20.09) expect_equal(k$sd, 6.03) expect_equal(k$n, 32) - expect_equivalent(k$levs, c("4", "6", "8")) + expect_equal(k$levs, c("4", "6", "8")) expect_equal(k$n_df, 2) expect_equal(k$d_df, 29) - expect_equivalent(as.vector(k$lens), c(11, 7, 14)) + expect_equal(as.vector(k$lens), c(11, 7, 14)) }) @@ -32,38 +30,18 @@ test_that("output from ifr_levene_test matches the expected result", { expect_equal(k$p_lev, 0) expect_equal(k$bft, 22.7064) expect_equal(k$p_bft, 0) - expect_equivalent(as.vector(k$avgs), c(20.09, 17.85)) - expect_equivalent(as.vector(k$sds), c(6.03, 1.79)) + expect_equal(as.vector(k$avgs), c(20.09, 17.85)) + expect_equal(as.vector(k$sds), c(6.03, 1.79)) expect_equal(k$avg, 18.97) expect_equal(k$sd, 4.55) expect_equal(k$n, 64) - expect_equivalent(k$levs, c("0", "1")) + expect_equal(k$levs, c("0", "1")) expect_equal(k$n_df, 1) expect_equal(k$d_df, 62) - expect_equivalent(as.vector(k$lens), c(32, 32)) + expect_equal(as.vector(k$lens), c(32, 32)) }) test_that("output from levene test is as expected", { - x <- cat(" Summary Statistics -Levels Frequency Mean Std. Dev ------------------------------------------ - 1 24 46.67 10.24 - 2 11 51.91 7.66 - 3 20 46.8 7.12 - 4 145 53.92 10.28 ------------------------------------------ -Total 200 52.23 10.25 ------------------------------------------ - - Test Statistics -------------------------------------------------------------------------- -Statistic Num DF Den DF F Pr > F -------------------------------------------------------------------------- -Brown and Forsythe 3 196 3.44 0.0179 -Levene 3 196 3.4792 0.017 -Brown and Forsythe (Trimmed Mean) 3 196 3.3936 0.019 --------------------------------------------------------------------------") - - expect_equivalent(print(ifr_levene_test(hsb, read, group_var = race)), x) + expect_snapshot(ifr_levene_test(hsb, read, group_var = race)) }) diff --git a/tests/testthat/test-mcnemar.R b/tests/testthat/test-mcnemar.R index 2b83585..afbf706 100644 --- a/tests/testthat/test-mcnemar.R +++ b/tests/testthat/test-mcnemar.R @@ -1,5 +1,3 @@ -context("mcnemar-test") - test_that("output from ifr_mcnemar_test matches the expected result", { k <- ifr_mcnemar_test(matrix(c(172, 7, 6, 15), nrow = 2)) expect_equal(k$statistic, 0.0769) @@ -34,44 +32,8 @@ test_that("output from ifr_mcnemar_test matches the expected result", { }) - - test_that("output from mcnemar test is as expected", { - x <- cat(" Controls ---------------------------------- -Cases 0 1 Total ---------------------------------- - 0 135 21 156 - 1 18 26 44 ---------------------------------- -Total 153 47 200 ---------------------------------- - - McNemar's Test ----------------------------- -McNemar's chi2 0.2308 -DF 1 -Pr > chi2 0.631 -Exact Pr >= chi2 0.7493 ----------------------------- - - Kappa Coefficient --------------------------------- -Kappa 0.4454 -ASE 0.075 -95% Lower Conf Limit 0.2984 -95% Upper Conf Limit 0.5923 --------------------------------- - -Proportion With Factor ----------------------- -cases 0.78 -controls 0.765 -ratio 1.0196 -odds ratio 1.1667 -----------------------") - himath <- ifelse(hsb$math > 60, 1, 0) hiread <- ifelse(hsb$read > 60, 1, 0) - expect_equivalent(print(ifr_mcnemar_test(table(himath, hiread))), x) + expect_snapshot(ifr_mcnemar_test(table(himath, hiread))) }) diff --git a/tests/testthat/test-os-vartest.R b/tests/testthat/test-os-vartest.R index 41c2e37..70241bf 100644 --- a/tests/testthat/test-os-vartest.R +++ b/tests/testthat/test-os-vartest.R @@ -1,5 +1,3 @@ -context("os-vartest") - test_that("output from ifr_os_var_test matches the expected result", { k <- ifr_os_var_test(mtcars, mpg, 0.3) expect_equal(k$n, 32) @@ -15,8 +13,8 @@ test_that("output from ifr_os_var_test matches the expected result", { expect_equal(k$c_lwr, 3.8737) expect_equal(k$c_upr, 10.6527) expect_equal(k$conf, 0.95) - expect_equivalent(k$var_name, "mpg") - expect_equivalent(k$type, "both") + expect_equal(k$var_name, "mpg") + expect_equal(k$type, "both") }) @@ -37,87 +35,17 @@ test_that("ifr_os_var_test returns appropriate errors", { test_that("output from one sample variance test is as expected when alternative is less", { - x <- cat(" One-Sample Statistics ------------------------------------------------------------------------------ - Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ------------------------------------------------------------------------------ - mpg 32 20.0906 1.0654 6.0269 3.8737 10.6526 ------------------------------------------------------------------------------ - - Lower Tail Test - --------------- - Ho: sd(mpg) >= 5 - Ha: sd(mpg) < 5 - - Chi-Square Test for Variance -------------------------------------- - Variable c DF Sig -------------------------------------- - mpg 45.041 31 0.9506 --------------------------------------") - - expect_equivalent(print(ifr_os_var_test(mtcars, mpg, 5, alternative = "less")), x) + expect_snapshot(ifr_os_var_test(mtcars, mpg, 5, alternative = "less")) }) test_that("output from one sample variance test is as expected when alternative is greater", { - x <- cat(" One-Sample Statistics ------------------------------------------------------------------------------ - Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ------------------------------------------------------------------------------ - mpg 32 20.0906 1.0654 6.0269 3.8737 10.6526 ------------------------------------------------------------------------------ - - Upper Tail Test - --------------- - Ho: sd(mpg) <= 5 - Ha: sd(mpg) > 5 - - Chi-Square Test for Variance -------------------------------------- - Variable c DF Sig -------------------------------------- - mpg 45.041 31 0.0494 --------------------------------------") - - expect_equivalent(print(ifr_os_var_test(mtcars, mpg, 5, alternative = "greater")), x) + expect_snapshot(ifr_os_var_test(mtcars, mpg, 5, alternative = "greater")) }) test_that("output from one sample variance test is as expected when alternative is both", { - x <- cat(" One-Sample Statistics ------------------------------------------------------------------------------ - Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ------------------------------------------------------------------------------ - mpg 32 20.0906 1.0654 6.0269 3.8737 10.6526 ------------------------------------------------------------------------------ - - Two Tail Test - --------------- - Ho: sd(mpg) = 5 - Ha: sd(mpg) != 5 - - Chi-Square Test for Variance -------------------------------------- - Variable c DF Sig -------------------------------------- - mpg 45.041 31 0.0989 --------------------------------------") - - expect_equivalent(print(ifr_os_var_test(mtcars, mpg, 5, alternative = "both")), x) + expect_snapshot(ifr_os_var_test(mtcars, mpg, 5, alternative = "both")) }) test_that("output from one sample variance test is as expected when alternative is all", { - x <- cat(" One-Sample Statistics ------------------------------------------------------------------------------ - Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ------------------------------------------------------------------------------ - mpg 32 20.0906 1.0654 6.0269 3.8737 10.6526 ------------------------------------------------------------------------------ - - Ho: sd(mpg) = 5 - - Ha: sd < 5 Ha: sd != 5 Ha: sd > 5 - c = 45.0412 c = 45.0412 c = 45.0412 - Pr(C < c) = 0.9506 2 * Pr(C > c) = 0.0989 Pr(C > c) = 0.0494") - - expect_equivalent(print(ifr_os_var_test(mtcars, mpg, 5, alternative = "all")), x) + expect_snapshot(ifr_os_var_test(mtcars, mpg, 5, alternative = "all")) }) diff --git a/tests/testthat/test-paired-test.R b/tests/testthat/test-paired-test.R index 26c136a..7ebbe74 100644 --- a/tests/testthat/test-paired-test.R +++ b/tests/testthat/test-paired-test.R @@ -1,5 +1,3 @@ -context("paired t test") - test_that("output from ifr_ts_paired_ttest matches expected output", { k <- ifr_ts_paired_ttest(mtcars, mpg, qsec) @@ -16,141 +14,38 @@ test_that("output from ifr_ts_paired_ttest matches expected output", { expect_equal(round(unname(k$p_lower), 3), 0.986) expect_equal(round(unname(k$p_upper), 3), 0.014) expect_equal(round(unname(k$p_two_tail), 3), 0.029) - expect_equivalent(k$var_names, c("mpg", "qsec")) - expect_equivalent(k$xy, c("mpg - qsec")) - expect_equivalent(k$alternative, c("both")) + expect_equal(k$var_names, c("mpg", "qsec")) + expect_equal(k$xy, c("mpg - qsec")) + expect_equal(k$alternative, c("both")) expect_equal(k$df, 31) expect_equal(k$confint, 0.95) }) test_that("output from paired sample t test is as expected when alternative is less", { - x <- cat(" Paired Samples Statistics ---------------------------------------------------------------------------- -Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ---------------------------------------------------------------------------- - read 200 52.23 0.72 10.25 50.8 53.66 - write 200 52.77 0.67 9.48 51.45 54.09 ---------------------------------------------------------------------------- - diff 200 -0.55 0.63 8.89 -1.79 0.69 ---------------------------------------------------------------------------- - - Paired Samples Correlations -------------------------------------------- - Variables Obs Correlation Sig. - read & write 200 0.60 0 -------------------------------------------- - - Paired Samples Test - ------------------- - Ho: mean(read - write) = 0 - Ha: mean(read - write) < 0 - ---------------------------------------- - Variables t df Sig. ---------------------------------------- - read - write -0.873 199 0.192 ----------------------------------------") - - expect_equivalent(print(ifr_ts_paired_ttest( + expect_snapshot(ifr_ts_paired_ttest( hsb, read, write, alternative = "less" - )), x) + )) }) test_that("output from paired sample t test is as expected when alternative is greater", { - x <- cat(" Paired Samples Statistics ---------------------------------------------------------------------------- -Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ---------------------------------------------------------------------------- - read 200 52.23 0.72 10.25 50.8 53.66 - write 200 52.77 0.67 9.48 51.45 54.09 ---------------------------------------------------------------------------- - diff 200 -0.55 0.63 8.89 -1.79 0.69 ---------------------------------------------------------------------------- - - Paired Samples Correlations -------------------------------------------- - Variables Obs Correlation Sig. - read & write 200 0.60 0 -------------------------------------------- - - Paired Samples Test - ------------------- - Ho: mean(read - write) = 0 - Ha: mean(read - write) > 0 - ---------------------------------------- - Variables t df Sig. ---------------------------------------- - read - write -0.873 199 0.808 ----------------------------------------") - - expect_equivalent(print(ifr_ts_paired_ttest( + expect_snapshot(ifr_ts_paired_ttest( hsb, read, write, alternative = "greater" - )), x) + )) }) test_that("output from paired sample t test is as expected when alternative is both", { - x <- cat(" Paired Samples Statistics ---------------------------------------------------------------------------- -Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ---------------------------------------------------------------------------- - read 200 52.23 0.72 10.25 50.8 53.66 - write 200 52.77 0.67 9.48 51.45 54.09 ---------------------------------------------------------------------------- - diff 200 -0.55 0.63 8.89 -1.79 0.69 ---------------------------------------------------------------------------- - - Paired Samples Correlations -------------------------------------------- - Variables Obs Correlation Sig. - read & write 200 0.60 0 -------------------------------------------- - - Paired Samples Test - ------------------- - Ho: mean(read - write) = 0 - Ha: mean(read - write) ~= 0 - ---------------------------------------- - Variables t df Sig. ---------------------------------------- - read - write -0.873 199 0.384 ----------------------------------------") - - expect_equivalent(print(ifr_ts_paired_ttest( + expect_snapshot(ifr_ts_paired_ttest( hsb, read, write, alternative = "both" - )), x) + )) }) test_that("output from paired sample t test is as expected when alternative is all", { - x <- cat(" Paired Samples Statistics ---------------------------------------------------------------------------- -Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ---------------------------------------------------------------------------- - read 200 52.23 0.72 10.25 50.8 53.66 - write 200 52.77 0.67 9.48 51.45 54.09 ---------------------------------------------------------------------------- - diff 200 -0.55 0.63 8.89 -1.79 0.69 ---------------------------------------------------------------------------- - - Paired Samples Correlations -------------------------------------------- - Variables Obs Correlation Sig. - read & write 200 0.60 0 -------------------------------------------- - - Ho: mean(read - write) = mean(diff) = 0 - - Ha: mean(diff) < 0 Ha: mean(diff) ~= 0 Ha: mean(diff) > 0 - t = -0.873 t = -0.873 t = -0.873 - P < t = 0.192 P > |t| = 0.384 P > t = 0.808") - - expect_equivalent(print(ifr_ts_paired_ttest( + expect_snapshot(ifr_ts_paired_ttest( hsb, read, write, alternative = "all" - )), x) + )) }) diff --git a/tests/testthat/test-prop-test.R b/tests/testthat/test-prop-test.R index d81b3a8..1595050 100644 --- a/tests/testthat/test-prop-test.R +++ b/tests/testthat/test-prop-test.R @@ -1,5 +1,3 @@ -context("prop-test") - test_that("output from ifr_os_prop_test matches expected result", { k <- ifr_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "both") expect_equal(k$n, 200) @@ -7,11 +5,11 @@ test_that("output from ifr_os_prop_test matches expected result", { expect_equal(k$p, 0.5) expect_equal(k$z, -5.6569) expect_equal(k$sig, 0) - expect_equivalent(k$alt, "both") - expect_equivalent(k$obs, c(140, 60)) - expect_equivalent(k$exp, c(100, 100)) - expect_equivalent(k$deviation, c(" 40.00", "-40.00")) - expect_equivalent(k$std, c(" 4.00", "-4.00")) + expect_equal(k$alt, "both") + expect_equal(k$obs, c(140, 60)) + expect_equal(k$exp, c(100, 100)) + expect_equal(k$deviation, c(" 40.00", "-40.00")) + expect_equal(k$std, c(" 4.00", "-4.00")) }) test_that("output from ifr_os_prop_test matches expected result when using factor variables", { @@ -21,28 +19,28 @@ test_that("output from ifr_os_prop_test matches expected result when using facto expect_equal(k$p, 0.5) expect_equal(k$z, 1.2728) expect_equal(k$sig, 0.2031) - expect_equivalent(k$alt, "both") - expect_equivalent(k$obs, c(91, 109)) - expect_equivalent(k$exp, c(100, 100)) - expect_equivalent(k$deviation, c("-9.00", " 9.00")) - expect_equivalent(k$std, c("-0.90", " 0.90")) + expect_equal(k$alt, "both") + expect_equal(k$obs, c(91, 109)) + expect_equal(k$exp, c(100, 100)) + expect_equal(k$deviation, c("-9.00", " 9.00")) + expect_equal(k$std, c("-0.90", " 0.90")) }) test_that("output from ifr_os_prop_test matches expected result", { k <- ifr_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "less") expect_equal(k$sig, 0) - expect_equivalent(k$alt, "less") + expect_equal(k$alt, "less") }) test_that("output from ifr_os_prop_test matches expected result", { k <- ifr_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "greater") expect_equal(k$sig, 1) - expect_equivalent(k$alt, "greater") + expect_equal(k$alt, "greater") }) test_that("output from ifr_os_prop_test matches expected result", { k <- ifr_os_prop_test(200, phat = 0.3, prob = 0.5, alternative = "all") expect_equal(unname(k$sig), c(0, 0, 1)) - expect_equivalent(k$alt, "all") + expect_equal(k$alt, "all") }) diff --git a/tests/testthat/test-runs.R b/tests/testthat/test-runs.R index 7d633f9..d9f9620 100644 --- a/tests/testthat/test-runs.R +++ b/tests/testthat/test-runs.R @@ -1,5 +1,3 @@ -context("runs test") - test_that("output from runs test matches the expected result", { reg <- lm(mpg ~ disp, data = mtcars) resid <- data.frame(residual = residuals(reg)) @@ -57,7 +55,7 @@ test_that("output from runs test matches the expected result", { expect_equal(round(k$var, 2), 7.19) expect_equal(k$n_runs, 11) expect_equal(round(k$z, 2), -2.03) - expect_equal(k$p, 4.257089e-02) + expect_equal(round(k$p, 2), 0.04) }) test_that("output from runs test matches the expected result", { @@ -76,18 +74,7 @@ test_that("output from runs test matches the expected result", { }) test_that("output from runs test is as expected", { - x <- cat("Runs Test - Total Cases: 32 - Test Value : -0.9630856 - Cases < Test Value: 16 - Cases > Test Value: 16 - Number of Runs: 11 - Expected Runs: 17 - Variance (Runs): 7.741935 - z Statistic: -2.156386 - p-value: 0.03105355") - reg <- lm(mpg ~ disp, data = mtcars) resid <- data.frame(residual = residuals(reg)) - expect_equivalent(print(ifr_runs_test(resid, residual)), x) + expect_snapshot(ifr_runs_test(resid, residual)) }) diff --git a/tests/testthat/test-ttest.R b/tests/testthat/test-ttest.R index ed7325e..312ad71 100644 --- a/tests/testthat/test-ttest.R +++ b/tests/testthat/test-ttest.R @@ -1,5 +1,3 @@ -context("ifr_os_t_test") - test_that("output from ifr_os_t_test matches the expected output", { k <- ifr_os_t_test(mtcars, mpg, mu = 50, alternative = "less") expect_equal(k$mu, 50) @@ -9,7 +7,7 @@ test_that("output from ifr_os_t_test matches the expected output", { expect_equal(k$stddev, 6.0269) expect_equal(k$std_err, 1.0654) expect_equal(k$test_stat, -28.073) - expect_equivalent(k$confint, c(-Inf, 21.8974)) + expect_equal(k$confint, c(-Inf, 21.8974)) expect_equal(k$mean_diff_l, -Inf) expect_equal(k$mean_diff_u, -28.1026) expect_equal(k$mean_diff, -29.9094) @@ -17,14 +15,14 @@ test_that("output from ifr_os_t_test matches the expected output", { expect_equal(k$p_u, 1) expect_equal(k$p, 1.31843219487798e-23) expect_equal(k$conf, 0.95) - expect_equivalent(k$type, "less") - expect_equivalent(k$var_name, "mpg") + expect_equal(k$type, "less") + expect_equal(k$var_name, "mpg") k <- ifr_os_t_test(mtcars, mpg, mu = 50, alternative = "greater") - expect_equivalent(k$confint, c(18.2846, Inf)) + expect_equal(k$confint, c(18.2846, Inf)) k <- ifr_os_t_test(mtcars, mpg, mu = 50, alternative = "both") - expect_equivalent(k$confint, c(17.9181, 22.2639)) + expect_equal(k$confint, c(17.9181, 22.2639)) }) test_that("ifr_os_t_test throws the appropriate error", { @@ -34,84 +32,17 @@ test_that("ifr_os_t_test throws the appropriate error", { }) test_that("output from one sample t test is as expected when alternative is less", { - x <- cat(" One-Sample Statistics ---------------------------------------------------------------------------------- - Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ---------------------------------------------------------------------------------- - write 200 52.775 0.6702 9.4786 -Inf 53.8828 ---------------------------------------------------------------------------------- - - Lower Tail Test - --------------- - - Ho: mean(write) >=50 - Ha: mean(write) <50 --------------------------------------------------------------------------------- - Variable t DF Sig Mean Diff. [95% Conf. Interval] --------------------------------------------------------------------------------- - write 4.141 199 0.99997 2.775 -Inf 3.8828 ---------------------------------------------------------------------------------") - - expect_output(print(ifr_os_t_test(hsb, write, mu = 50, alternative = "less")), x) + expect_snapshot(ifr_os_t_test(hsb, write, mu = 50, alternative = "less")) }) test_that("output from one sample t test is as expected when alternative is greater", { - x <- cat(" One-Sample Statistics ---------------------------------------------------------------------------------- - Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ---------------------------------------------------------------------------------- - write 200 52.775 0.6702 9.4786 51.6678 Inf ---------------------------------------------------------------------------------- - - Upper Tail Test - --------------- - - Ho: mean(write) <=50 - Ha: mean(write) >50 --------------------------------------------------------------------------------- - Variable t DF Sig Mean Diff. [95% Conf. Interval] --------------------------------------------------------------------------------- - write 4.141 199 0.99997 2.775 1.6678 Inf ---------------------------------------------------------------------------------") - - expect_output(print(ifr_os_t_test(hsb, write, mu = 50, alternative = "greater")), x) + expect_snapshot(ifr_os_t_test(hsb, write, mu = 50, alternative = "greater")) }) test_that("output from one sample t test is as expected when alternative is both", { - x <- cat(" One-Sample Statistics ---------------------------------------------------------------------------------- - Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ---------------------------------------------------------------------------------- - write 200 52.775 0.6702 9.4786 51.4537 54.0969 ---------------------------------------------------------------------------------- - - Two Tail Test - --------------- - - Ho: mean(write) ~=50 - Ha: mean(write) !=50 --------------------------------------------------------------------------------- - Variable t DF Sig Mean Diff. [95% Conf. Interval] --------------------------------------------------------------------------------- - write 4.141 199 0.99997 2.775 1.4537 4.0969 ---------------------------------------------------------------------------------") - - expect_output(print(ifr_os_t_test(hsb, write, mu = 50, alternative = "both")), x) + expect_snapshot(ifr_os_t_test(hsb, write, mu = 50, alternative = "both")) }) test_that("output from one sample t test is as expected when alternative is all", { - x <- cat(" One-Sample Statistics ---------------------------------------------------------------------------------- - Variable Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] ---------------------------------------------------------------------------------- - write 200 52.775 0.6702 9.4786 51.4537 54.0969 ---------------------------------------------------------------------------------- - - Ho: mean(write) ~=50 - - Ha: mean < 50 Ha: mean ~= 50 Ha: mean > 50 - t = 4.141 t = 4.141 t = 4.141 - P < t = 1.0000 P > |t| = 0.0001 P > t = 0.0000") - - expect_output(print(ifr_os_t_test(hsb, write, mu = 50, alternative = "all")), x) + expect_snapshot(ifr_os_t_test(hsb, write, mu = 50, alternative = "all")) }) diff --git a/tests/testthat/test-two-prop-test.R b/tests/testthat/test-two-prop-test.R index 8ca1bd8..a055353 100644 --- a/tests/testthat/test-two-prop-test.R +++ b/tests/testthat/test-two-prop-test.R @@ -1,5 +1,3 @@ -context("two sample proportion test") - mtcarz <- mtcars mtcarz$vs <- as.factor(mtcarz$vs) mtcarz$am <- as.factor(mtcarz$am) @@ -12,7 +10,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { expect_equal(k$phat2, 0.4375) expect_equal(round(k$z, 3), -0.254) expect_equal(round(k$sig, 3), 0.4) - expect_equivalent(k$alt, "less") + expect_equal(k$alt, "less") }) @@ -22,7 +20,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "greater" ) expect_equal(round(k$sig, 3), 0.6) - expect_equivalent(k$alt, "greater") + expect_equal(k$alt, "greater") }) @@ -32,7 +30,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "both" ) expect_equal(round(k$sig, 3), 0.8) - expect_equivalent(k$alt, "both") + expect_equal(k$alt, "both") }) test_that("output from ifr_ts_prop_test matches the expected result", { @@ -41,7 +39,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "all" ) expect_equal(unname(round(k$sig, 3)), c(0.8, 0.4, 0.6)) - expect_equivalent(k$alt, "all") + expect_equal(k$alt, "all") }) @@ -53,7 +51,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { expect_equal(k$phat2, 0.5) expect_equal(round(k$z, 3), -0.952) expect_equal(round(k$sig, 3), 0.17) - expect_equivalent(k$alt, "less") + expect_equal(k$alt, "less") }) test_that("output from ifr_ts_prop_test matches the expected result", { @@ -62,7 +60,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "greater" ) expect_equal(round(k$sig, 3), 0.83) - expect_equivalent(k$alt, "greater") + expect_equal(k$alt, "greater") }) test_that("output from ifr_ts_prop_test matches the expected result", { @@ -71,7 +69,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "both" ) expect_equal(round(k$sig, 3), 0.341) - expect_equivalent(k$alt, "both") + expect_equal(k$alt, "both") }) test_that("output from ifr_ts_prop_test matches the expected result", { @@ -80,7 +78,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "all" ) expect_equal(unname(round(k$sig, 3)), c(0.341, 0.17, 0.83)) - expect_equivalent(k$alt, "all") + expect_equal(k$alt, "all") }) test_that("output from ifr_ts_prop_test matches the expected result", { @@ -94,7 +92,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { expect_equal(k$phat2, 0.5) expect_equal(round(k$z, 3), -1.514) expect_equal(round(k$sig, 3), 0.065) - expect_equivalent(k$alt, "less") + expect_equal(k$alt, "less") }) test_that("output from ifr_ts_prop_test matches the expected result", { @@ -103,7 +101,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "greater" ) expect_equal(round(k$sig, 3), 0.935) - expect_equivalent(k$alt, "greater") + expect_equal(k$alt, "greater") }) test_that("output from ifr_ts_prop_test matches the expected result", { @@ -112,7 +110,7 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "both" ) expect_equal(round(k$sig, 3), 0.13) - expect_equivalent(k$alt, "both") + expect_equal(k$alt, "both") }) @@ -122,46 +120,21 @@ test_that("output from ifr_ts_prop_test matches the expected result", { alternative = "all" ) expect_equal(unname(round(k$sig, 3)), c(0.13, 0.065, 0.935)) - expect_equivalent(k$alt, "all") + expect_equal(k$alt, "all") }) test_that("output from 2 sample proportion test is as expected when alternative is less", { - x <- cat(" Test Statistics ------------------------------ - Total Observations 200 - z 0.351 - Pr(Z < z) 0.637 ") - - expect_equivalent(print(ifr_ts_prop_group(treatment2, outcome, female, alternative = "less")), x) + expect_snapshot(ifr_ts_prop_group(treatment2, outcome, female, alternative = "less")) }) test_that("output from 2 sample proportion test is as expected when alternative is greater", { - x <- cat(" Test Statistics ------------------------------ - Total Observations 200 - z 0.351 - Pr(Z > z) 0.363") - - expect_equivalent(print(ifr_ts_prop_group(treatment2, outcome, female, alternative = "greater")), x) + expect_snapshot(ifr_ts_prop_group(treatment2, outcome, female, alternative = "greater")) }) test_that("output from 2 sample proportion test is as expected when alternative is both", { - x <- cat(" Test Statistics ------------------------------ - Total Observations 200 - z 0.351 - Pr(|Z| < |z|) 0.726") - - expect_equivalent(print(ifr_ts_prop_group(treatment2, outcome, female, alternative = "both")), x) + expect_snapshot(ifr_ts_prop_group(treatment2, outcome, female, alternative = "both")) }) test_that("output from 2 sample proportion test is as expected when alternative is all", { - x <- cat("----------------------------- -Total Observations 200 -z 0.351 -Pr(|Z| < |z|) 0.726 -Pr(Z < z) 0.637 -Pr(Z > z) 0.363") - - expect_equivalent(print(ifr_ts_prop_group(treatment2, outcome, female, alternative = "all")), x) + expect_snapshot(ifr_ts_prop_group(treatment2, outcome, female, alternative = "all")) }) diff --git a/tests/testthat/test-two-var-test.R b/tests/testthat/test-two-var-test.R index 2e3bb6e..1fc81b0 100644 --- a/tests/testthat/test-two-var-test.R +++ b/tests/testthat/test-two-var-test.R @@ -1,5 +1,3 @@ -context("two sample variance test") - mtcarz <- mtcars mtcarz$vs <- as.factor(mtcarz$vs) @@ -8,19 +6,19 @@ test_that("output from ifr_ts_var_test matches expected result", { expect_equal(k$f, 0.5151) expect_equal(k$lower, 0.0999) expect_equal(k$upper, 0.9001) - expect_equivalent(as.vector(k$vars), c(14.90, 28.93)) - expect_equivalent(as.vector(k$avgs), c(16.62, 24.56)) - expect_equivalent(as.vector(k$sds), c(3.86, 5.38)) - expect_equivalent(as.vector(k$ses), c(0.91, 1.44)) + expect_equal(as.vector(k$vars), c(14.90, 28.93)) + expect_equal(as.vector(k$avgs), c(16.62, 24.56)) + expect_equal(as.vector(k$sds), c(3.86, 5.38)) + expect_equal(as.vector(k$ses), c(0.91, 1.44)) expect_equal(k$avg, 20.09) expect_equal(k$sd, 6.03) expect_equal(k$se, 1.07) expect_equal(k$len, 32) - expect_equivalent(as.vector(k$lens), c(18, 14)) + expect_equal(as.vector(k$lens), c(18, 14)) expect_equal(as.vector(k$n1), 17) expect_equal(as.vector(k$n2), 13) - expect_equivalent(k$type, "less") - expect_equivalent(k$lev, c("0", "1")) + expect_equal(k$type, "less") + expect_equal(k$lev, c("0", "1")) }) test_that("output from ifr_ts_var_test matches expected result", { @@ -28,101 +26,30 @@ test_that("output from ifr_ts_var_test matches expected result", { expect_equal(k$f, 11.3756) expect_equal(k$lower, 1) expect_equal(k$upper, 0) - expect_equivalent(as.vector(k$vars), c(36.32, 3.19)) - expect_equivalent(as.vector(k$avgs), c(20.09, 17.85)) - expect_equivalent(as.vector(k$sds), c(6.03, 1.79)) - expect_equivalent(as.vector(k$ses), c(1.07, 0.32)) + expect_equal(as.vector(k$vars), c(36.32, 3.19)) + expect_equal(as.vector(k$avgs), c(20.09, 17.85)) + expect_equal(as.vector(k$sds), c(6.03, 1.79)) + expect_equal(as.vector(k$ses), c(1.07, 0.32)) expect_equal(k$avg, 18.97) expect_equal(k$sd, 4.55) expect_equal(k$se, 0.57) expect_equal(k$len, 64) - expect_equivalent(as.vector(k$lens), c(32, 32)) + expect_equal(as.vector(k$lens), c(32, 32)) expect_equal(unname(k$n1), 31) expect_equal(unname(k$n2), 31) - expect_equivalent(k$type, "less") - expect_equivalent(k$lev, c("mpg", "qsec")) + expect_equal(k$type, "less") + expect_equal(k$lev, c("mpg", "qsec")) }) test_that("output from 2 sample variance test is as expected when alternative is less", { - x <- cat(" Variance Ratio Test --------------------------------------------------- - Group Obs Mean Std. Err. Std. Dev. --------------------------------------------------- - read 200 52.23 0.72 10.25 - write 200 52.77 0.67 9.48 --------------------------------------------------- - combined 400 52.5 0.49 9.86 --------------------------------------------------- - - Lower Tail Test - --------------- - ratio = sd(read) / (write) - Ho: ratio = 1 - Ha: ratio < 1 - - Variance Ratio Test ------------------------------------- - F Num DF Den DF p ------------------------------------- - 1.1701 199 199 0.8656 -------------------------------------") - - expect_equivalent(print(ifr_ts_var_test(hsb, read, write, alternative = "less")), x) + expect_snapshot(ifr_ts_var_test(hsb, read, write, alternative = "less")) }) test_that("output from 2 sample variance test is as expected when alternative is greater", { - x <- cat(" Variance Ratio Test --------------------------------------------------- - Group Obs Mean Std. Err. Std. Dev. --------------------------------------------------- - read 200 52.23 0.72 10.25 - write 200 52.77 0.67 9.48 --------------------------------------------------- - combined 400 52.5 0.49 9.86 --------------------------------------------------- - - Upper Tail Test - --------------- - Ho: ratio = 1 - Ha: ratio > 1 - - Variance Ratio Test ------------------------------------- - F Num DF Den DF p ------------------------------------- - 1.1701 199 199 0.1344 -------------------------------------") - - expect_equivalent(print(ifr_ts_var_test(hsb, read, write, alternative = "greater")), x) + expect_snapshot(ifr_ts_var_test(hsb, read, write, alternative = "greater")) }) test_that("output from 2 sample variance test is as expected when alternative is all", { - x <- cat(" Variance Ratio Test --------------------------------------------------- - Group Obs Mean Std. Err. Std. Dev. --------------------------------------------------- - read 200 52.23 0.72 10.25 - write 200 52.77 0.67 9.48 --------------------------------------------------- - combined 400 52.5 0.49 9.86 --------------------------------------------------- - - Variance Ratio Test --------------------------------------------------- - F Num DF Den DF --------------------------------------------------- - 1.1701 199 199 --------------------------------------------------- - - Null & Alternate Hypothesis ----------------------------------------- - ratio = sd(read) / (write) - Ho: ratio = 1 - - Ha: ratio < 1 Ha: ratio > 1 - Pr(F < f) = 0.8656 Pr(F > f) = 0.1344 -----------------------------------------") - - expect_equivalent(print(ifr_ts_var_test(hsb, read, write, alternative = "all")), x) + expect_snapshot(ifr_ts_var_test(hsb, read, write, alternative = "all")) }) diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R index 13cdeca..7c66b85 100644 --- a/tests/testthat/test-utils.R +++ b/tests/testthat/test-utils.R @@ -1,15 +1,13 @@ -context("utils") - test_that("output from anova_split matches the expected result", { smean <- anova_avg(mtcars, "mpg") k <- anova_split(mtcars, 'mpg', 'cyl', smean) - expect_equivalent(k$cyl, c(4, 6, 8)) - expect_equivalent(k$length, c(11, 7, 14)) - expect_equivalent(round(k$mean, 2), c(26.66, 19.74, 15.100)) - expect_equivalent(round(k$var, 2), c(20.34, 2.11, 6.55)) - expect_equivalent(round(k$sd, 2), c(4.51, 1.45, 2.56)) - expect_equivalent(round(k$sst, 2), c(475.25, 0.85, 348.69)) - expect_equivalent(round(k$sse, 2), c(203.39, 12.68, 85.2)) + expect_equal(k$cyl, c(4, 6, 8)) + expect_equal(k$length, c(11, 7, 14)) + expect_equal(round(k$mean, 2), c(26.66, 19.74, 15.100)) + expect_equal(round(k$var, 2), c(20.34, 2.11, 6.55)) + expect_equal(round(k$sd, 2), c(4.51, 1.45, 2.56)) + expect_equal(round(k$sst, 2), c(475.25, 0.85, 348.69)) + expect_equal(round(k$sse, 2), c(203.39, 12.68, 85.2)) }) test_that("output from anova_avg matches the expected result", { @@ -18,19 +16,19 @@ test_that("output from anova_avg matches the expected result", { }) test_that("output from text formatting matches the expected result", { - expect_equivalent(fg(3, 10), " 3 ") - expect_equivalent(fs(), " ") - expect_equivalent(fl(3, 10), "3 ") - expect_equivalent(fc(3, 10), " 3 ") - expect_equivalent(fk(3, 10), " 3.000") - expect_equivalent(fw(3, 10), " 3 ") - expect_equivalent(fn(3, 10), " 3 ") - expect_equivalent(formats(), " ") - expect_equivalent(formatter_t(3, 10), " 3 ") - expect_equivalent(format_cil(3, 10), " 3 ") - expect_equivalent(format_ciu(3, 10), " 3 ") - expect_equivalent(formats_t(), " ") - expect_equivalent(formatter_pair(3, 6), " 3.00 ") + expect_equal(fg(3, 10), " 3 ") + expect_equal(fs(), " ") + expect_equal(fl(3, 10), "3 ") + expect_equal(fc(3, 10), " 3 ") + expect_equal(fk(3, 10), " 3.000") + expect_equal(fw(3, 10), " 3 ") + expect_equal(fn(3, 10), " 3 ") + expect_equal(formats(), " ") + expect_equal(formatter_t(3, 10), " 3 ") + expect_equal(format_cil(3, 10), " 3 ") + expect_equal(format_ciu(3, 10), " 3 ") + expect_equal(formats_t(), " ") + expect_equal(formatter_pair(3, 6), " 3.00 ") }) # test_that("output from l matches the expected result", { @@ -61,12 +59,12 @@ test_that("output from serr matches the expected result", { test_that("output from tibble_stats matches the expected result", { k <- tibble_stats(mtcars, "mpg", "cyl") - expect_equivalent(k[[1]], c(4, 6, 8)) - expect_equivalent(k[[2]], c(11, 7, 14)) - expect_equivalent(round(k[[3]], 3), c(26.664, 19.743, 15.100)) - expect_equivalent(round(k[[4]], 3), c(20.339, 2.113, 6.554)) - expect_equivalent(round(k[[5]], 3), c(4.510, 1.454, 2.560)) - expect_equivalent(round(k[[6]], 3), c(1.360, 0.549, 0.684)) + expect_equal(k[[1]], c(4, 6, 8)) + expect_equal(k[[2]], c(11, 7, 14)) + expect_equal(round(k[[3]], 3), c(26.664, 19.743, 15.100)) + expect_equal(round(k[[4]], 3), c(20.339, 2.113, 6.554)) + expect_equal(round(k[[5]], 3), c(4.510, 1.454, 2.560)) + expect_equal(round(k[[6]], 3), c(1.360, 0.549, 0.684)) }) test_that("output from tbl_stats matches the expected result", { @@ -88,9 +86,9 @@ test_that("output from paired_data and paired_stats matches the expected result" j <- paired_data(hsb$read, hsb$write) k <- paired_stats(j, "key", "value") - expect_equivalent(k[[1]], c(52.230, 52.775, -0.545)) - expect_equivalent(round(k[[2]], 2), c(10.25, 9.48, 8.89)) - expect_equivalent(round(k[[3]], 2), c(0.72, 0.67, 0.63)) + expect_equal(k[[1]], c(52.230, 52.775, -0.545)) + expect_equal(round(k[[2]], 2), c(10.25, 9.48, 8.89)) + expect_equal(round(k[[3]], 2), c(0.72, 0.67, 0.63)) }) test_that("output from cor_sig matches the expected output", { @@ -101,7 +99,7 @@ test_that("output from conf_int_t matches the expected output", { j <- paired_data(hsb$read, hsb$write) b <- paired_stats(j, "key", "value") n <- length(hsb$read) - expect_equivalent(round(conf_int_t(b[[1, 1]], b[[2, 1]], n, alpha = 0.025), 2), c(43.80, 60.66)) + expect_equal(round(conf_int_t(b[[1, 1]], b[[2, 1]], n, alpha = 0.025), 2), c(43.80, 60.66)) }) test_that("output from data_split matches the expected result", { @@ -127,7 +125,7 @@ test_that("output from df matches the expected result", { }) test_that("output from conf_int_p matches the expected result", { - expect_equivalent(round(conf_int_p(10, 3.6), 3), c(2.944, 17.056)) + expect_equal(round(conf_int_p(10, 3.6), 3), c(2.944, 17.056)) }) test_that("output from sums and coch matches the expected result", { @@ -137,9 +135,9 @@ test_that("output from sums and coch matches the expected result", { z = c(1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1) ) k <- sums(data) - expect_equivalent(k[[1]], c(x = 10, y = 13, z = 13)) + expect_equal(k[[1]], c(x = 10, y = 13, z = 13)) expect_equal(k[[2]], 438) - expect_equivalent(k[[3]], c(2, 1, 3, 2, 3, 3, 2, 0, 3, 1, 1, 1, 2, 2, 1, 3, 3, 1, 1, 1)) + expect_equal(k[[3]], c(2, 1, 3, 2, 3, 3, 2, 0, 3, 1, 1, 1, 2, 2, 1, 3, 3, 1, 1, 1)) expect_equal(k[[4]], 82) q <- coch(ncol(data), k$cls_sum, k$cl, k$g, k$gs_sum) From af2e5abfe0f603e92255c362ab9aa7153ffc2eb2 Mon Sep 17 00:00:00 2001 From: aravindhebbali Date: Fri, 8 Nov 2024 20:37:14 +0530 Subject: [PATCH 10/10] ci: migrate to rhub v2 --- .github/workflows/rhub.yaml | 95 +++++++++++++++++++++++++++++++++++++ 1 file changed, 95 insertions(+) create mode 100644 .github/workflows/rhub.yaml diff --git a/.github/workflows/rhub.yaml b/.github/workflows/rhub.yaml new file mode 100644 index 0000000..74ec7b0 --- /dev/null +++ b/.github/workflows/rhub.yaml @@ -0,0 +1,95 @@ +# R-hub's generic GitHub Actions workflow file. It's canonical location is at +# https://github.com/r-hub/actions/blob/v1/workflows/rhub.yaml +# You can update this file to a newer version using the rhub2 package: +# +# rhub::rhub_setup() +# +# It is unlikely that you need to modify this file manually. + +name: R-hub +run-name: "${{ github.event.inputs.id }}: ${{ github.event.inputs.name || format('Manually run by {0}', github.triggering_actor) }}" + +on: + workflow_dispatch: + inputs: + config: + description: 'A comma separated list of R-hub platforms to use.' + type: string + default: 'linux,windows,macos' + name: + description: 'Run name. You can leave this empty now.' + type: string + id: + description: 'Unique ID. You can leave this empty now.' + type: string + +jobs: + + setup: + runs-on: ubuntu-latest + outputs: + containers: ${{ steps.rhub-setup.outputs.containers }} + platforms: ${{ steps.rhub-setup.outputs.platforms }} + + steps: + # NO NEED TO CHECKOUT HERE + - uses: r-hub/actions/setup@v1 + with: + config: ${{ github.event.inputs.config }} + id: rhub-setup + + linux-containers: + needs: setup + if: ${{ needs.setup.outputs.containers != '[]' }} + runs-on: ubuntu-latest + name: ${{ matrix.config.label }} + strategy: + fail-fast: false + matrix: + config: ${{ fromJson(needs.setup.outputs.containers) }} + container: + image: ${{ matrix.config.container }} + + steps: + - uses: r-hub/actions/checkout@v1 + - uses: r-hub/actions/platform-info@v1 + with: + token: ${{ secrets.RHUB_TOKEN }} + job-config: ${{ matrix.config.job-config }} + - uses: r-hub/actions/setup-deps@v1 + with: + token: ${{ secrets.RHUB_TOKEN }} + job-config: ${{ matrix.config.job-config }} + - uses: r-hub/actions/run-check@v1 + with: + token: ${{ secrets.RHUB_TOKEN }} + job-config: ${{ matrix.config.job-config }} + + other-platforms: + needs: setup + if: ${{ needs.setup.outputs.platforms != '[]' }} + runs-on: ${{ matrix.config.os }} + name: ${{ matrix.config.label }} + strategy: + fail-fast: false + matrix: + config: ${{ fromJson(needs.setup.outputs.platforms) }} + + steps: + - uses: r-hub/actions/checkout@v1 + - uses: r-hub/actions/setup-r@v1 + with: + job-config: ${{ matrix.config.job-config }} + token: ${{ secrets.RHUB_TOKEN }} + - uses: r-hub/actions/platform-info@v1 + with: + token: ${{ secrets.RHUB_TOKEN }} + job-config: ${{ matrix.config.job-config }} + - uses: r-hub/actions/setup-deps@v1 + with: + job-config: ${{ matrix.config.job-config }} + token: ${{ secrets.RHUB_TOKEN }} + - uses: r-hub/actions/run-check@v1 + with: + job-config: ${{ matrix.config.job-config }} + token: ${{ secrets.RHUB_TOKEN }}