Permalink
Browse files

fixed bug when fitting with only 1 covariate

  • Loading branch information...
stc04003 committed Oct 17, 2018
1 parent f948b1d commit 751106abdc32a353a9ee5c1d28af7a9f690c60ab
Showing with 1 addition and 1 deletion.
  1. +1 −1 R/aftgee.R
@@ -153,7 +153,7 @@ aftgee <- function(formula, data, subset, id = NULL, contrasts = NULL,
aftgee.fit <- function(DF, corstr="independence",
B = 100, binit = "lm", yint = TRUE,
control = aftgee.control()) {
x <- as.matrix(DF[,-(1:5)])
x <- as.matrix(DF[,-(1:5), drop = FALSE])
id <- DF$id
n <- length(unique(id))
rm <- NULL

0 comments on commit 751106a

Please sign in to comment.