|
mdv_var <- xp_var(xpdb, .problem, type = c('evid', 'mdv'), silent = TRUE)$col[1] |
This is because of the [1] in only_obs(). I think the logic in the function body would need to be changed if the [1] were removed, but currently this is only filtering on EVID==0, not EVID==0 and MDV==0. I will submit a pull request with a tested change if needed.
xpose/R/fetch_data.R
Line 59 in d6d194d
This is because of the
[1]inonly_obs(). I think the logic in the function body would need to be changed if the[1]were removed, but currently this is only filtering on EVID==0, not EVID==0 and MDV==0. I will submit a pull request with a tested change if needed.