Fix examples

cjb873 · Dec 8, 2023 · 14a57e0 · 14a57e0
1 parent 980eb3d
commit 14a57e0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 28 deletions.
diff --git 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
@@ -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")