version 1.0.6

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: likelihoodR
 Title: Likelihood Analyses for Common Statistical Tests
-Version: 1.0.5
+Version: 1.0.6
 Authors@R: 
     person(given = "Peter",
            family = "Cahusac",
@@ -23,8 +23,8 @@ Encoding: UTF-8
 LazyData: false
 RoxygenNote: 7.1.1
 NeedsCompilation: no
-Packaged: 2021-10-13 11:13:33 UTC; pcahusac
+Packaged: 2021-10-29 13:38:40 UTC; cahusac
 Author: Peter Cahusac [aut, cre] (<https://orcid.org/0000-0003-4976-2834>)
 Maintainer: Peter Cahusac <peteqsac@gmail.com>
 Repository: CRAN
-Date/Publication: 2021-10-13 13:32:04 UTC
+Date/Publication: 2021-10-29 14:10:02 UTC

MD5

@@ -1,30 +1,30 @@
-0b42d587034c736cf35744f31d6145b6 *DESCRIPTION
+75952dc6795835f76b397e2ac38217b6 *DESCRIPTION
 a17a73059d9ce8de56237528a0b3c965 *NAMESPACE
 5c55bd2e51514e28c91a13acc2faf1fb *R/L_1way_ANOVA.R
 5c03a9613ee4fb2e7ef1e321b8c2a599 *R/L_1way_RM_ANOVA.R
 0262779a5a0822be8d772eed6251e38c *R/L_1way_cat.R
 22aaf99cf48f11110412a72c88e7f456 *R/L_2S_ttest.R
 5bb61c75c922e04646309a490ae43aa5 *R/L_2way_Factorial_ANOVA.R
 161048edea31e3721d5f8acd5b9074ef *R/L_2way_cat.R
-61de6bae2d86276ee1d58195311ceb9f *R/L_OR.R
+c251ad544c501246bb5a3fb86f6edb12 *R/L_OR.R
 2b61b7a0922364d8ccbdf8dc8bdc3f8e *R/L_RR.R
 9dfa30e0b7c8cc7ad2f4945b751b0c94 *R/L_corr.R
 cf8fbfa2301deb25dcc7bf30bbeef942 *R/L_efficacy.R
 b5bd708114dabb8138c7273a563c83d3 *R/L_logistic_regress.R
 89199e2bb5cb0982b16d83c574da5c8e *R/L_regress.R
 dd4f02f6e6a9f896a06cfa9bf604f8b3 *R/L_t_test_sample_size.R
 65c1853af5f1489bd3ee292fa42c8d02 *R/L_ttest.R
-20350b22f3ccda17c9795d70d93e71aa *man/L_1way_ANOVA.Rd
+ee7ab3f59a9357b9bfed4c434b34f094 *man/L_1way_ANOVA.Rd
 145baf4e6ffe0a65c3fddb5706244f13 *man/L_1way_RM_ANOVA.Rd
 d61c424bef4624993ee48d1a1bdbf69e *man/L_1way_cat.Rd
 2b483ca9b7085c8563e820fb90890535 *man/L_2S_ttest.Rd
-d15cb8dec9a4916daa594c6432538fd5 *man/L_2way_Factorial_ANOVA.Rd
+91e009546c6b72820212f1c39798ebac *man/L_2way_Factorial_ANOVA.Rd
 a252bd17c6d53fe14cf9796e88f0d3a1 *man/L_2way_cat.Rd
-9d56afc1bd44707c4c3c73686fe7642c *man/L_OR.Rd
-7d39bbd12ade83dd6b9db384db5f5de8 *man/L_RR.Rd
-cffce60abba6c46e9e7148b1da01d5e8 *man/L_corr.Rd
-28e3830c1013a3d1b383d68191525fa7 *man/L_efficacy.Rd
-19fca1ac2e2d3e7aabdb1fa216156a3c *man/L_logistic_regress.Rd
+1ef4270225cc13c13c27e91dde1bd091 *man/L_OR.Rd
+fabad27387aa1ec7b55ad0f440de138f *man/L_RR.Rd
+6aa42451f59e79949c56151bcb66ce7b *man/L_corr.Rd
+faeff6b5146307fd176bbfaa35f6e7d0 *man/L_efficacy.Rd
+14c3b87d26c031f9e7838b1fca648190 *man/L_logistic_regress.Rd
 c37778f130a01e152d1483397c848cdb *man/L_regress.Rd
 1776e8243b47876dabf47e1235455d21 *man/L_t_test_sample_size.Rd
 fb1176a6580b18b29210949aec6179c1 *man/L_ttest.Rd

R/L_OR.R

@@ -169,8 +169,8 @@ L_OR <- function(table, null=1, exp.OR=NULL, L.int=2, alpha=0.05, cc=FALSE, tole
   nullh <- exp(-sum(a*log(a/xa), b*log(b/(c1tot-xa)), c*log(c/(r1tot-xa)),
                     d*log(d/(r2tot-c1tot+xa))))
 
-  S2w <- log(1) - log(nullh) # check that this should be the same as S for observed OR
-  lrt <- 2*S2w  # likelihood ratio statistic
+  S2way <- log(1) - log(nullh) # check that this should be the same as S for observed OR
+  lrt <- 2*S2way  # likelihood ratio statistic
   LRt_p <- 1-pchisq(lrt,1)
 
 # do the plot with lines