From 14a57e01197acee47151824bb6bf10a0cea89da0 Mon Sep 17 00:00:00 2001
From: cjb873 <cjb873@nau.edu>
Date: Fri, 8 Dec 2023 15:30:45 -0700
Subject: [PATCH] Fix examples

---
 man/BINSEG.Rd            | 16 ++--------------
 man/dynprog_interface.Rd | 16 ++--------------
 2 files changed, 4 insertions(+), 28 deletions(-)

diff --git a/man/BINSEG.Rd b/man/BINSEG.Rd
index 203dc0f..97240ef 100644
--- a/man/BINSEG.Rd
+++ b/man/BINSEG.Rd
@@ -18,20 +18,8 @@ BINSEG(K, data.vec)
 }                                                                                                                  
                                                                                                                    
 \examples{                                                                                                         
-# Pull in data table                                                               
-library(data.table)                                                                
-                                                                                   
-# Get the data                                                                     
-data(neuroblastoma, package="neuroblastoma")                                       
-                                                                                   
-# Store as a data table                                                            
-nb.dt <- data.table(neuroblastoma$profiles)                                        
-                                                                                   
-# Select a single profile                                                          
-one.profile <- nb.dt[profile.id == 4 & chromosome == "2"]                          
-                                                                                   
-# Select one series of logratio values                                             
-data.vec <- one.profile$logratio                                                   
+# Select data                                              
+data.vec <- as.matrix(iris[3])[,1]                                                   
                                                                                    
 # Pull in the package                                                              
 require("BeckRPackage")                                                            
diff --git a/man/dynprog_interface.Rd b/man/dynprog_interface.Rd
index 1b377d5..bbd09ad 100644
--- a/man/dynprog_interface.Rd
+++ b/man/dynprog_interface.Rd
@@ -18,20 +18,8 @@ dynprog_interface(K, data_vec)
 }                                                                                                              
                                                                                                                
 \examples{                                                                                                     
-# Pull in data table
-library(data.table) 
-
-# Get the data
-data(neuroblastoma, package="neuroblastoma")                                       
-
-# Store as a data table
-nb.dt <- data.table(neuroblastoma$profiles)                                        
-
-# Select a single profile
-one.profile <- nb.dt[profile.id == 4 & chromosome == "2"]                          
-
-# Select one series of logratio values
-data.vec <- one.profile$logratio                                                   
+# Select data 
+data.vec <- as.matrix(iris[3])[,1]                                                 
 
 # Pull in the package
 require("BeckRPackage")