Skip to content

Commit

Permalink
Qualify plogis()
Browse files Browse the repository at this point in the history
  • Loading branch information
remlapmot committed May 3, 2023
1 parent 32cba6e commit 4291be6
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/tsri.R
Original file line number Diff line number Diff line change
Expand Up @@ -501,13 +501,13 @@ tsri <- function(formula, instruments, data, subset, na.action,
}

if (tsri_env$anycovs) {
stage2express <- (Y - plogis(theta[stage2start] +
stage2express <- (Y - stats::plogis(theta[stage2start] +
thetacausal*X +
thetares * (X - as.matrix(linearpredictor)) +
as.matrix(covariates) %*% as.matrix(thetacov)))
}
else {
stage2express <- (Y - plogis(theta[stage2start] +
stage2express <- (Y - stats::plogis(theta[stage2start] +
thetacausal*X +
thetares * (X - as.matrix(linearpredictor))))
}
Expand Down

0 comments on commit 4291be6

Please sign in to comment.