intial adding of gglogisticexpdist and an example dataset

DESCRIPTION

@@ -53,7 +53,11 @@ Imports:
     table1 (>= 1.4.2),
     zoo,
     shinyFiles,
-    RPostgres
+    RPostgres,
+    forcats,
+    ggridges,
+    rms,
+    tibble
 Suggests:
     knitr,
     rmarkdown

NAMESPACE

@@ -17,6 +17,7 @@ export(geom_kmband)
 export(geom_kmticks)
 export(get_source_code)
 export(ggkmrisktable)
+export(gglogisticexpdist)
 export(merge_steps)
 export(run_ggquickeda)
 export(sourceable)
@@ -40,5 +41,7 @@ importFrom(scales,percent)
 importFrom(scales,percent_format)
 importFrom(scales,trans_breaks)
 importFrom(scales,trans_format)
+importFrom(stats,median)
+importFrom(stats,quantile)
 importFrom(survival,Surv)
 importFrom(survival,survfit)

R/logisticdata.R

@@ -0,0 +1,24 @@
+#' Simulated Exposure Response Data
+#'
+#' A dataset containing data suitable for logistic regression
+#'
+#' @format A data frame with 600 rows and 10 variables
+#' \describe{
+#'   \item{STUDY}{Study identifier}
+#'   \item{ID}{Subject Identifier}
+#'   \item{DOSE}{Dose, in mg}
+#'   \item{GBDS}{Dose, in alternative salt}
+#'   \item{SEX}{Sex of the subject}
+#'   \item{AGE}{age of the subject, in years}
+#'   \item{WT}{weight of the subject, in kg}
+#'   \item{RACE}{Race of the subject}
+#'   \item{CRCL}{Creatinine clearance}
+#'   \item{BRLS}{RLS score}
+#'   \item{PRLS}{RLS score}
+#'   \item{AUC}{Area under the curve exposure}
+#'   \item{CMAX}{Maximun concentration exposure}
+#'   \item{ICGI}{response 0/1}
+#'   \item{ICGI7}{response 1 to 7}
+#' }
+#' @source inspired from a real data submission
+"logistic_data"