|
|
@@ -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))
|
|
|
|
