No flags found
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
8cfbfa2
... +0 ...
e6ca493
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
82 | 82 | ##' ## a <- riskreg(y ~ a, target=~z, nuisance=~x, propensity=~x, data=d, type="rr") |
|
83 | 83 | ##' a <- riskreg(y ~ a | z, nuisance=~x, propensity=~x, data=d, type="rr") |
|
84 | 84 | ##' a |
|
85 | + | ##' predict(a, d[1:5,]) |
|
85 | 86 | ##' |
|
86 | 87 | ##' riskreg(y ~ a, nuisance=~x, data=d, type="rr", mle=TRUE) |
|
87 | 88 | ##' |
|
88 | 89 | ##' |
|
90 | + | ##' |
|
91 | + | ##' |
|
89 | 92 | riskreg <- function(formula, |
|
90 | 93 | nuisance=~1, |
|
91 | 94 | propensity=~1, |
356 | 359 | if (missing(X)) |
|
357 | 360 | X <- with(object, update(des.nuisance, newdata)$x) |
|
358 | 361 | p <- coef(object) |
|
362 | + | if (tolower(object$estimator)!="mle") { |
|
363 | + | p <- coef(object$mle) |
|
364 | + | } |
|
359 | 365 | ##nx <- NCOL(object$nuisance$x) |
|
360 | 366 | ##nz <- NCOL(object$target$x) |
|
361 | 367 | pz <- p[seq_len(ncol(Z))] |
Files | Coverage |
---|---|
R | -0.05% 49.05% |
inst/include | 35.71% |
src | 43.47% |
Project Totals (40 files) | 47.39% |
e6ca493
8cfbfa2