Correcting arguments for add.p.value in gg.gettext

R/hypoAfrica.R

@@ -175,7 +175,7 @@ get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal'
    doseBreaks=c(59.9,60,62,100),doseLabels=c('ref','60 Gy','62 Gy','all'),
    timeBreaks=c(0,1,3,4)){
 
-   df<-add.p.values.fisher(df,dfRef,var,nVar)
+   df<-add.p.values.fisher(df,dfRef,var,timeVar,nVar)
    sf<-base::sprintf('%s_sF',var)
    dfRef[,sf]<-base::rep('',nrow(dfRef))