andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-21 19:30:22 +01:00
Code Issues Projects Releases Wiki Activity

minor fix to include flags

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

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

2
R/print_pred_stratum.R
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)] strt<-data[, c(strat)]
for (i in 1:length(levels(factor(strt)))){ for (i in 1:length(levels(factor(strt)))){
d_str<-data[data[[strat]]==levels(data[[strat]])[i], c(meas,adj)] 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] names(ls_str)<-levels(factor(strt))[i]
ls<-append(ls,ls_str) ls<-append(ls,ls_str)
} }