Added discretized data example.

R/data.R

@@ -12,3 +12,19 @@
 #' }
 #' @source \url{http://www.cellocad.org}
 "circuit_data"
+
+#' Discretized simulated expression data for 400 cells and three genes.
+#'
+#' A dataset containing simulated expression data across 400 cells and three genes
+#' in an AND gated genetic circuit. Only if AmtR and SrpR expression is sufficiently high,
+#' cells will also express YFP. The expression values from \code{data(circuit_data)} have been
+#' discretized with the bayesian blocks algorithm from pythons \code{astroML} package.
+#'
+#' @format A data frame with 400 rows and 3 variables (columns):
+#' \describe{
+#'   \item{YFP}{Discretized expression values for YFP}
+#'   \item{AmtR}{Discretized expression values for AmtR}
+#'   \item{SrpR}{Discretized expression values for SrpR}
+#' }
+#' @source \url{http://www.cellocad.org}
+"circuit_data_discrete"

R/pid.R

@@ -14,8 +14,8 @@
 #'     }
 #'
 #' @examples
-#' data(circuit_data)
-#' pid(z = circuit_data$YFP, x1 = circuit_data$AmtR, x2 = circuit_data$SrpR, discrete = FALSE)
+#' data(circuit_data_discrete)
+#' pid(z = circuit_data$YFP, x1 = circuit_data$AmtR, x2 = circuit_data$SrpR)
 #'
 #' @export
 pid <- function(z, x1, x2, discrete = T) {