|
|
@@ -132,7 +132,7 @@ add.p.values.fisher<-function(df,dfRef,var,timeVar='visitid',nVar='total'){
|
|
|
#'
|
|
|
#' @importFrom rlang .data
|
|
|
#'
|
|
|
-get.ggplot<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal',
|
|
|
+get.ggplot<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
|
|
|
doseBreaks=base::c(60,62,100),doseLabels=base::c('60 Gy','62 Gy','all'),doseColors=base::c('red','magenta','blue'),
|
|
|
timeBreaks=base::c(0,1,3,4),timeLabels=base::c('beforeRT','at20','at3mo','at12mo')){
|
|
|
df<-add.conf.int(df,var,nVar)
|
|
|
@@ -171,7 +171,7 @@ get.ggplot<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal'
|
|
|
#'
|
|
|
#' @export
|
|
|
|
|
|
-get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal',
|
|
|
+get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
|
|
|
doseBreaks=c(59.9,60,62,100),doseLabels=c('ref','60 Gy','62 Gy','all'),
|
|
|
timeBreaks=c(0,1,3,4)){
|
|
|
|
