From ae436747b86dda3496abe755cf39cbbb7bf6aaaf Mon Sep 17 00:00:00 2001
From: SzymonNowakowski <szymon.nowakowski@gmail.com>
Date: Tue, 19 Jul 2022 16:44:27 +0200
Subject: [PATCH] restricted examples a little bit

---
 R/DMRnet.R    | 12 ++++++------
 man/DMRnet.Rd | 12 ++++++------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/R/DMRnet.R b/R/DMRnet.R
index 95087ed..d4e1c2d 100644
--- a/R/DMRnet.R
+++ b/R/DMRnet.R
@@ -51,9 +51,9 @@
 #' @examples
 #' ## DMRnet for linear regression
 #' data(miete)
-#' ytr <- miete[1:1500,1]
-#' Xtr <- miete[1:1500,-1]
-#' Xte <- miete[1501:2053,-1]
+#' ytr <- miete[1:500,1]
+#' Xtr <- miete[1:500,-1]
+#' Xte <- miete[501:1000,-1]
 #' m1 <- DMRnet(Xtr, ytr)
 #' print(m1)
 #' plot(m1)
@@ -77,9 +77,9 @@
 #'
 #' ## GLAMER for linear regression
 #' data(miete)
-#' ytr <- miete[1:1500,1]
-#' Xtr <- miete[1:1500,-1]
-#' Xte <- miete[1501:2053,-1]
+#' ytr <- miete[1:500,1]
+#' Xtr <- miete[1:500,-1]
+#' Xte <- miete[501:1000,-1]
 #' m1 <- DMRnet(Xtr, ytr, algorithm="glamer")
 #' print(m1)
 #' plot(m1)
diff --git a/man/DMRnet.Rd b/man/DMRnet.Rd
index c74a8e9..5089a63 100644
--- a/man/DMRnet.Rd
+++ b/man/DMRnet.Rd
@@ -71,9 +71,9 @@ The final path of models is chosen by minimizing the likelihood of the models fo
 \examples{
 ## DMRnet for linear regression
 data(miete)
-ytr <- miete[1:1500,1]
-Xtr <- miete[1:1500,-1]
-Xte <- miete[1501:2053,-1]
+ytr <- miete[1:500,1]
+Xtr <- miete[1:500,-1]
+Xte <- miete[501:1000,-1]
 m1 <- DMRnet(Xtr, ytr)
 print(m1)
 plot(m1)
@@ -97,9 +97,9 @@ ypr <- predict(m2, newx = Xte, df = g$df.min)
 
 ## GLAMER for linear regression
 data(miete)
-ytr <- miete[1:1500,1]
-Xtr <- miete[1:1500,-1]
-Xte <- miete[1501:2053,-1]
+ytr <- miete[1:500,1]
+Xtr <- miete[1:500,-1]
+Xte <- miete[501:1000,-1]
 m1 <- DMRnet(Xtr, ytr, algorithm="glamer")
 print(m1)
 plot(m1)