diff --git a/R/DMRnet.R b/R/DMRnet.R
index ae53786..e292ed9 100644
--- a/R/DMRnet.R
+++ b/R/DMRnet.R
@@ -88,19 +88,6 @@
 #' coef(m1, df = g$df.min)
 #' ypr <- predict(m1, newx = Xte, df = g$df.min)
 #'
-#' ## PDMR for logistic regression
-#' data(promoter)
-#' ytr <- factor(promoter[1:70,1])
-#' Xtr <- promoter[1:70,-1]
-#' Xte <- promoter[71:106,-1]
-#' m2 <- DMRnet(Xtr, ytr, family = "binomial", algorithm="PDMR")
-#' print(m2)
-#' plot(m2)
-#' g <- gic.DMR(m2, c = 2)
-#' plot(g)
-#' coef(m2, df = g$df.min)
-#' ypr <- predict(m2, newx = Xte, df = g$df.min)
-#'
 #' @export DMRnet
 
 DMRnet <- function(X, y, family = "gaussian", clust.method = "complete", o = 5, nlambda = 100, lam = 10^(-7), interc = TRUE, maxp = ifelse(family == "gaussian", ceiling(length(y)/2), ceiling(length(y)/4)), lambda = NULL, algorithm="DMRnet") {
diff --git a/cran-comments.md b/cran-comments.md
index 4b528ec..6ee1c25 100644
--- a/cran-comments.md
+++ b/cran-comments.md
@@ -1,7 +1,7 @@
 
-# This is a resubmission of 0.3.4
+# This is a 2nd resubmission of 0.3.4
 
-The following NOTE from WINDOWS precheck **has been corrected**:
+- The following NOTE from WINDOWS precheck **has been corrected**:
 
   * checking CRAN incoming feasibility ... [15s] NOTE
   Maintainer: 'Szymon Nowakowski <s.nowakowski@mimuw.edu.pl>'
@@ -10,6 +10,14 @@ The following NOTE from WINDOWS precheck **has been corrected**:
   as.personList().  Please use c() on person objects instead.
   Package CITATION file contains call(s) to citEntry(), citHeader() or
   citFooter().  Please use bibentry() instead.
+  
+- The folowing NOTE from precheck **has been corrected** by reducing examples by roughly 25%:
+
+  Flavor: r-devel-windows-x86_64
+  Check: examples, Result: NOTE
+    Examples with CPU (user + system) or elapsed time > 10s
+           user system elapsed
+    DMRnet   10   0.17   10.21
 
 # Local checks
 
diff --git a/man/DMRnet.Rd b/man/DMRnet.Rd
index 3a41695..969878b 100644
--- a/man/DMRnet.Rd
+++ b/man/DMRnet.Rd
@@ -108,19 +108,6 @@ plot(g)
 coef(m1, df = g$df.min)
 ypr <- predict(m1, newx = Xte, df = g$df.min)
 
-## PDMR for logistic regression
-data(promoter)
-ytr <- factor(promoter[1:70,1])
-Xtr <- promoter[1:70,-1]
-Xte <- promoter[71:106,-1]
-m2 <- DMRnet(Xtr, ytr, family = "binomial", algorithm="PDMR")
-print(m2)
-plot(m2)
-g <- gic.DMR(m2, c = 2)
-plot(g)
-coef(m2, df = g$df.min)
-ypr <- predict(m2, newx = Xte, df = g$df.min)
-
 }
 \seealso{
 \code{\link{print.DMR}} for printing, \code{\link{plot.DMR}} for plotting, \code{\link{coef.DMR}} for extracting coefficients and \code{\link{predict.DMR}} for prediction.