minor fix to include flags

This commit is contained in:
AG Damsbo 2021-10-07 09:53:21 +02:00
parent ecc7cbd01c
commit 21391d9392
2 changed files with 2 additions and 2 deletions

View File

@ -1,6 +1,6 @@
Package: daDoctoR
Title: Functions For Health Research
Version: 0.21.15
Version: 0.21.16
Year: 2021
Author: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>
Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>

View File

@ -30,7 +30,7 @@ print_pred_stratum<-function(meas,adj,strat,data,dec=2,n.by.adj=FALSE,p.val=FALS
strt<-data[, c(strat)]
for (i in 1:length(levels(factor(strt)))){
d_str<-data[data[[strat]]==levels(data[[strat]])[i], c(meas,adj)]
ls_str<-list(print_pred(meas = meas,adj=adj,data=d_str))
ls_str<-list(print_pred(meas = meas,adj=adj,data=d_str,dec=dec,n.by.adj=n.by.adj,p.val=p.val))
names(ls_str)<-levels(factor(strt))[i]
ls<-append(ls,ls_str)
}