initial support for ggcontinuousexpdist

NAMESPACE

@@ -16,6 +16,7 @@ export(geom_km)
 export(geom_kmband)
 export(geom_kmticks)
 export(get_source_code)
+export(ggcontinuousexpdist)
 export(ggkmrisktable)
 export(gglogisticexpdist)
 export(merge_steps)

NEWS.md

@@ -7,6 +7,7 @@
 * added support of pasting values of two/three variables
 * added function `ggkmrisktable` to add facettable risk tables, km and split exposures to ntiles
 * added function `gglogisticexpdist`
+* added function `ggcontinuousexpdist`
 * TBD reduce package size ! 
 
 # ggquickeda 0.3.0

R/gglogisticexpdist.R

@@ -136,7 +136,36 @@ plogis <- function(x) exp(x)/(1+exp(x))
 #'                   exposure_metric_plac_value = 0,
 #'                   dist_position_scaler = 0.15)+
 #'                  facet_grid(Endpoint~expname+exptile,scales="free",
-#'                  margins = "exptile") 
+#'                  margins = "exptile")
+#' #Example 6
+#' a <- gglogisticexpdist(data = effICGI, # 
+#'                   response = "response",
+#'                   endpoint = "Endpoint",
+#'                   DOSE = "DOSE",yproj_dodge = 36,
+#'                   exposure_metrics = c("AUC"),
+#'                   exposure_metric_split = c("quartile"),
+#'                   exposure_distribution ="lineranges",
+#'                   exposure_metric_soc_value = -99,
+#'                   exposure_metric_plac_value = 0) +
+#'   facet_grid(Endpoint~expname,switch = "both")
+#' b <-   gglogisticexpdist(data = effICGI, # 
+#'                     response = "response",
+#'                     endpoint = "Endpoint",
+#'                     DOSE = "DOSE",yproj_dodge = 2,
+#'                     exposure_metrics = c("CMAX"),
+#'                     exposure_metric_split = c("quartile"),
+#'                     exposure_distribution ="lineranges",
+#'                     exposure_metric_soc_value = -99,
+#'                     exposure_metric_plac_value = 0,
+#'                     yaxis_position = "right")+
+#'   facet_grid(Endpoint~expname,switch = "x")+
+#'   theme(strip.text.y.right = element_blank(),
+#'         strip.background.y = element_blank())
+#' library(patchwork)
+#' (a | b ) +
+#'   plot_layout(guides = "collect")&
+#'   theme(legend.position = "top")
+#'                   
 #'}
 #' @export               
 gglogisticexpdist <- function(data = effICGI, 
@@ -517,42 +546,3 @@ gglogisticexpdist <- function(data = effICGI,
 
 }
 
-# library(ggquickeda)
-# effICGI <- logistic_data |>
-# dplyr::filter(!is.na(ICGI))|>
-# dplyr::filter(!is.na(AUC))
-# effICGI$DOSE <- factor(effICGI$DOSE,
-#                       levels=c("0", "600", "1200","1800","2400"),
-#                       labels=c("Placebo", "600 mg", "1200 mg","1800 mg","2400 mg"))
-# effICGI$STUDY <- factor(effICGI$STUDY)
-# effICGI$ICGI2 <- effICGI$ICGI
-# effICGI <- tidyr::gather(effICGI,Endpoint,response,ICGI,ICGI2)
-# 
-# 
-# a <- gglogisticexpdist(data = effICGI, # long format filter to Endpoint of choice
-#                   response = "response",
-#                   endpoint = "Endpoint",
-#                   DOSE = "DOSE",yproj_dodge = 36,
-#                   exposure_metrics = c("AUC"),
-#                   exposure_metric_split = c("quartile"),
-#                   exposure_distribution ="lineranges",
-#                   exposure_metric_soc_value = -99,
-#                   exposure_metric_plac_value = 0) +
-#   facet_grid(Endpoint~expname,switch = "both")
-# b <-   gglogisticexpdist(data = effICGI, # long format filter to Endpoint of choice
-#                     response = "response",
-#                     endpoint = "Endpoint",
-#                     DOSE = "DOSE",yproj_dodge = 2,
-#                     exposure_metrics = c("CMAX"),
-#                     exposure_metric_split = c("quartile"),
-#                     exposure_distribution ="lineranges",
-#                     exposure_metric_soc_value = -99,
-#                     exposure_metric_plac_value = 0,
-#                     yaxis_position = "right")+
-#   facet_grid(Endpoint~expname,switch = "x")+
-#   theme(strip.text.y.right = element_blank(),
-#         strip.background.y = element_blank())
-# library(patchwork)
-# (a | b ) +
-#   plot_layout(guides = "collect")&
-#   theme(legend.position = "top")