Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 2 additions & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -29,7 +29,8 @@ Authors@R: c(
email = "d.firth@warwick.ac.uk"),
person(given = "Daniel", family = "Sabanes Bove",
role="ctb",
email = "daniel.sabanesbove@gmail.com"),
email = "daniel@rconis.com",
comment = c(ORCID = "0000-0002-0176-9239")),
person(given = "Matt", family = "Kumar", role="ctb"),
person(given = "Shuguang", family = "Sun", role="ctb"),
person(given = "Gavin", family = "Klorfine", role = "aut")
Expand Down
4 changes: 4 additions & 0 deletions NEWS.md
Original file line number Diff line number Diff line change
@@ -1,3 +1,7 @@
## Version 0.9.6

* Fixed bug in `CMHtest` which previously suppressed `Df` and `Prob` (p-value) for the overall population results.

## Version 0.9.5

This is a major release of the package, completing work on a sizeable collection of tidy tools
Expand Down
7 changes: 6 additions & 1 deletion R/CMHtest.R
Original file line number Diff line number Diff line change
Expand Up @@ -486,7 +486,12 @@ CMHtest3 <- function(object, types = c("cor", "rmeans", "cmeans", "general")) {
V.list <- lapply(object, function(s) s$V)
A.list <- lapply(object, function(s) s$A)
nt <- sapply(lapply(object, function(s) s$n), sum)
Df <- object[[1]]$table[, "Df"]

tab1 <- object[[1]]$table
Df <- stats::setNames(
tab1[, "Df"],
rownames(tab1)
)

if (length(types) == 1 && types == "ALL") {
types <- c("general", "rmeans", "cmeans", "cor")
Expand Down
Loading
Loading