[R-gregmisc-users] SF.net SVN: r-gregmisc: [1127] trunk/SASxport/tests

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Revision: 1127
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1127&view=rev
Author:   warnes
Date:     2007-08-09 09:53:14 -0700 (Thu, 09 Aug 2007)

Log Message:
-----------
Update saved output of test scripts

Modified Paths:
--------------
    trunk/SASxport/tests/testDates.Rout.save
    trunk/SASxport/tests/test_fields.Rout.save
    trunk/SASxport/tests/xport.Rout.save
    trunk/SASxport/tests/xxx.Rout.save

Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================

--- trunk/SASxport/tests/testDates.Rout.save	2007-08-08 18:54:43 UTC (rev 1126)
+++ trunk/SASxport/tests/testDates.Rout.save	2007-08-09 16:53:14 UTC (rev 1127)
@@ -1,6 +1,6 @@
 
-R version 2.4.1 (2006-12-18)
-Copyright (C) 2006 The R Foundation for Statistical Computing
+R version 2.6.0 Under development (unstable) (2007-08-04 r42421)
+Copyright (C) 2007 The R Foundation for Statistical Computing
 ISBN 3-900051-07-0
 
 R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -15,16 +15,16 @@
 'help.start()' for an HTML browser interface to help.
 Type 'q()' to quit R.
 
-*******************************************************
-** This copy of RPro is licensed to:                 **
-** Gregory R. Warnes                                 **
-*******************************************************
+> library(SASxport)
 
+Attaching package: 'SASxport'
 
-[Previously saved workspace restored]
 
-> invisible(options(echo = TRUE))
-> library(SASxport)
+	The following object(s) are masked from package:base :
+
+	 units,
+	 units<- 
+
 > 
 > ## Create a small data set containing dates, times, and date-times
 > 
@@ -47,7 +47,7 @@
 5 5 e 1992-02-01 1992-02-01 16:56:26
 > 
 > write.xport( DATETIME=temp, filename="datetime.xpt")
-> temp2 <- read.xport(file="datetime.xpt")
+> temp2 <- read.xport(file="datetime.xpt", names.tolower=FALSE)
 > 
 > print(temp2)
   X Y      DATES   DATETIME
@@ -61,6 +61,3 @@
 > identical(temp, temp2)
 [1] FALSE
 > 
-> proc.time()
-[1] 0.889 0.099 0.999 0.000 0.000
-> 

Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save	2007-08-08 18:54:43 UTC (rev 1126)
+++ trunk/SASxport/tests/test_fields.Rout.save	2007-08-09 16:53:14 UTC (rev 1127)
@@ -1,6 +1,6 @@
 
-R version 2.4.1 (2006-12-18)
-Copyright (C) 2006 The R Foundation for Statistical Computing
+R version 2.6.0 Under development (unstable) (2007-08-04 r42421)
+Copyright (C) 2007 The R Foundation for Statistical Computing
 ISBN 3-900051-07-0
 
 R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -15,16 +15,16 @@
 'help.start()' for an HTML browser interface to help.
 Type 'q()' to quit R.
 
-*******************************************************
-** This copy of RPro is licensed to:                 **
-** Gregory R. Warnes                                 **
-*******************************************************
+> library(SASxport)
 
+Attaching package: 'SASxport'
 
-[Previously saved workspace restored]
 
-> invisible(options(echo = TRUE))
-> library(SASxport)
+	The following object(s) are masked from package:base :
+
+	 units,
+	 units<- 
+
 > 
 > ## Call C-level test routines
 > 
@@ -33,6 +33,3 @@
 > 
 > ## Successful completion means all SASxport:::assertions have been met
 > 
-> proc.time()
-[1] 0.843 0.093 0.925 0.000 0.000
-> 

Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save	2007-08-08 18:54:43 UTC (rev 1126)
+++ trunk/SASxport/tests/xport.Rout.save	2007-08-09 16:53:14 UTC (rev 1127)
@@ -1,6 +1,6 @@
 
-R version 2.4.1 (2006-12-18)
-Copyright (C) 2006 The R Foundation for Statistical Computing
+R version 2.6.0 Under development (unstable) (2007-08-04 r42421)
+Copyright (C) 2007 The R Foundation for Statistical Computing
 ISBN 3-900051-07-0
 
 R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -15,16 +15,17 @@
 'help.start()' for an HTML browser interface to help.
 Type 'q()' to quit R.
 
-*******************************************************
-** This copy of RPro is licensed to:                 **
-** Gregory R. Warnes                                 **
-*******************************************************
+> library(SASxport)
 
+Attaching package: 'SASxport'
 
-[Previously saved workspace restored]
 
-> invisible(options(echo = TRUE))
-> library(SASxport)
+	The following object(s) are masked from package:base :
+
+	 units,
+	 units<- 
+
+> 
 > lookup.xport("Alfalfa.xpt")
 $SPEC
 $SPEC$headpad
@@ -61,23 +62,27 @@
 [1] 40
 
 
+> 
 > Alfalfa <- read.xport("Alfalfa.xpt")
+> 
 > summary(Alfalfa)
-  POP         SAMPLE         REP           SEEDWT          HARV1      
+  pop         sample         rep           seedwt          harv1      
  MAX:20   Min.   :0.0   Min.   :1.00   Min.   :35.00   Min.   :120.6  
  min:20   1st Qu.:2.0   1st Qu.:1.75   1st Qu.:47.75   1st Qu.:148.3  
           Median :4.5   Median :2.50   Median :59.00   Median :165.8  
           Mean   :4.5   Mean   :2.50   Mean   :56.08   Mean   :163.0  
           3rd Qu.:7.0   3rd Qu.:3.25   3rd Qu.:62.25   3rd Qu.:176.4  
           Max.   :9.0   Max.   :4.00   Max.   :75.00   Max.   :193.4  
-     HARV2      
+     harv2      
  Min.   :129.1  
  1st Qu.:150.6  
  Median :163.2  
  Mean   :167.1  
  3rd Qu.:179.6  
  Max.   :235.3  
+> 
 > ## test data provided by FR...@bi...
+> 
 > lookup.xport("test.xpt")
 $TEST
 $TEST$headpad
@@ -116,11 +121,12 @@
 
 > testdata <- read.xport("test.xpt")
 > summary(testdata)
-       I              K    
+       i              k    
  Min.   :1.00   Min.   :1  
  1st Qu.:1.75   1st Qu.:1  
  Median :2.50   Median :2  
  Mean   :2.50   Mean   :2  
  3rd Qu.:3.25   3rd Qu.:3  
  Max.   :4.00   Max.   :3  
+> 
 > q()

Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save	2007-08-08 18:54:43 UTC (rev 1126)
+++ trunk/SASxport/tests/xxx.Rout.save	2007-08-09 16:53:14 UTC (rev 1127)
@@ -1,6 +1,6 @@
 
-R version 2.4.1 (2006-12-18)
-Copyright (C) 2006 The R Foundation for Statistical Computing
+R version 2.6.0 Under development (unstable) (2007-08-04 r42421)
+Copyright (C) 2007 The R Foundation for Statistical Computing
 ISBN 3-900051-07-0
 
 R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -15,16 +15,16 @@
 'help.start()' for an HTML browser interface to help.
 Type 'q()' to quit R.
 
-*******************************************************
-** This copy of RPro is licensed to:                 **
-** Gregory R. Warnes                                 **
-*******************************************************
+> library(SASxport)
 
+Attaching package: 'SASxport'
 
-[Previously saved workspace restored]
 
-> invisible(options(echo = TRUE))
-> library(SASxport)
+	The following object(s) are masked from package:base :
+
+	 units,
+	 units<- 
+
 > 
 > ## manually create a data set
 > abc <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
@@ -44,11 +44,10 @@
 +             )
 > 
 > # read the original SAS data file
-> abc.SAS <- read.xport("xxx.xpt")
+> abc.SAS <- read.xport("xxx.xpt", names.tolower=FALSE)
 > 
-> ## read.xport currently doesn't store the format and label attributes...
+> ## read.xport currently doesn't store the format attribute...
 > attr(abc.SAS$X, 'format') <- 'date7.'
-> attr(abc.SAS$Y, 'label')  <- 'character variable'
 > 
 > # create a SAS XPORT file from the SAS data
 > write.xport(abc=abc.SAS,
@@ -79,6 +78,3 @@
 > 
 > 
 > 
-> proc.time()
-[1] 0.873 0.096 1.027 0.000 0.000
-> 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


