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

[<wa...@us...>]

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

Log Message:
-----------
More changes, esp to lookup.xport() and friends

Modified Paths:
--------------
    trunk/SASxport/tests/Alfalfa_Test.Rout.save
    trunk/SASxport/tests/cars.Rout.save
    trunk/SASxport/tests/xport.Rout.save

Modified: trunk/SASxport/tests/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save	2007-08-09 23:28:27 UTC (rev 1131)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save	2007-08-09 23:28:42 UTC (rev 1132)
@@ -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,17 +15,19 @@
 'help.start()' for an HTML browser interface to help.
 Type 'q()' to quit R.
 
-*******************************************************
-** This copy of RPro is licensed to:                 **
-** Gregory R. Warnes                                 **
-*******************************************************
-
-
-> invisible(options(echo = TRUE))
 > ## This test demonstrates that write.xport can exactly duplicate an
 > ## existing SAS xport file "Alfalfa.xpt"
 > 
 > library(SASxport)
+
+Attaching package: 'SASxport'
+
+
+	The following object(s) are masked from package:base :
+
+	 units,
+	 units<- 
+
 > 
 > # existing data file
 > SPEC <- read.xport("Alfalfa.xpt")
@@ -45,6 +47,3 @@
 > ## Test that the files are identical
 > SASxport:::assert( all(a.1 == a.2) )
 > 
-> proc.time()
-[1] 0.939 0.103 1.212 0.000 0.000
-> 

Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save	2007-08-09 23:28:27 UTC (rev 1131)
+++ trunk/SASxport/tests/cars.Rout.save	2007-08-09 23:28:42 UTC (rev 1132)
@@ -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<- 
+
 > 
 > 
 > cars <- read.table(file="cars.sas", skip=3, nrows=26,
@@ -64,6 +64,3 @@
 > ## Test that the files are identical
 > SASxport:::assert( all(a.1 == a.2) )
 > 
-> proc.time()
-[1] 0.920 0.097 1.079 0.000 0.000
-> 

Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save	2007-08-09 23:28:27 UTC (rev 1131)
+++ trunk/SASxport/tests/xport.Rout.save	2007-08-09 23:28:42 UTC (rev 1132)
@@ -27,41 +27,20 @@
 
 > 
 > lookup.xport("Alfalfa.xpt")
-$SPEC
-$SPEC$headpad
-[1] 1360
 
-$SPEC$type
-[1] "character" "numeric"   "numeric"   "numeric"   "numeric"   "numeric"  
+SAS xport file
+--------------
+Filename: `Alfalfa.xpt'
 
-$SPEC$width
-[1] 8 8 8 8 8 8
+Variables in data set `SPEC':
+            dataset   name      type format width label nobs
+SPEC.POP       SPEC    POP character            8         40
+SPEC.SAMPLE    SPEC SAMPLE   numeric            8         40
+SPEC.REP       SPEC    REP   numeric            8         40
+SPEC.SEEDWT    SPEC SEEDWT   numeric            8         40
+SPEC.HARV1     SPEC  HARV1   numeric            8         40
+SPEC.HARV2     SPEC  HARV2   numeric            8         40
 
-$SPEC$index
-[1] 1 2 3 4 5 6
-
-$SPEC$position
-[1]  0  8 16 24 32 40
-
-$SPEC$name
-[1] "POP"    "SAMPLE" "REP"    "SEEDWT" "HARV1"  "HARV2" 
-
-$SPEC$label
-[1] "" "" "" "" "" ""
-
-$SPEC$format
-[1] "" "" "" "" "" ""
-
-$SPEC$sexptype
-[1] 16 14 14 14 14 14
-
-$SPEC$tailpad
-[1] 0
-
-$SPEC$length
-[1] 40
-
-
 > 
 > Alfalfa <- read.xport("Alfalfa.xpt")
 > 
@@ -84,41 +63,16 @@
 > ## test data provided by FR...@bi...
 > 
 > lookup.xport("test.xpt")
-$TEST
-$TEST$headpad
-[1] 800
 
-$TEST$type
-[1] "numeric" "numeric"
+SAS xport file
+--------------
+Filename: `test.xpt'
 
-$TEST$width
-[1] 8 8
+Variables in data set `TEST':
+       dataset name    type format width label nobs
+TEST.I    TEST    I numeric            8         12
+TEST.K    TEST    K numeric            8         12
 
-$TEST$index
-[1] 1 2
-
-$TEST$position
-[1] 0 8
-
-$TEST$name
-[1] "I" "K"
-
-$TEST$label
-[1] "" ""
-
-$TEST$format
-[1] "" ""
-
-$TEST$sexptype
-[1] 14 14
-
-$TEST$tailpad
-[1] 48
-
-$TEST$length
-[1] 12
-
-
 > testdata <- read.xport("test.xpt")
 > summary(testdata)
        i              k    


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