[R-gregmisc-users] SF.net SVN: r-gregmisc:[1859] trunk/SASxport/tests/Alfalfa_Test.Rout.save

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

Revision: 1859
          http://sourceforge.net/p/r-gregmisc/code/1859
Author:   warnes
Date:     2014-07-21 14:36:10 +0000 (Mon, 21 Jul 2014)
Log Message:
-----------
Add .Rout.save file matching changes to Alfalfa_Test.R

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

Modified: trunk/SASxport/tests/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save	2014-07-21 14:30:30 UTC (rev 1858)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save	2014-07-21 14:36:10 UTC (rev 1859)
@@ -41,8 +41,27 @@
 > Sys.setenv("TZ"="GMT")
 > 
 > # existing data file
-> SPEC <- read.xport("Alfalfa.xpt")
+> SPEC <- read.xport("Alfalfa.xpt", verbose=TRUE)
+### Checking if the specified file has the appropriate header ###
+### Extracting data file information... ###
+### Reading the data file... ###
+### Processing contents... ###
+### Processing SAS dataset SPEC ###
+### . ###
+### . ###
+### Done ###
 > 
+> str(SPEC)
+'data.frame':	40 obs. of  6 variables:
+ $ POP   : Factor w/ 2 levels "MAX","min": 2 2 2 2 2 1 1 1 1 1 ...
+ $ SAMPLE: int  0 1 2 3 4 5 6 7 8 9 ...
+ $ REP   : int  1 1 1 1 1 1 1 1 1 1 ...
+ $ SEEDWT: int  64 54 40 45 64 75 45 63 65 59 ...
+ $ HARV1 : num  172 138 146 170 125 ...
+ $ HARV2 : num  180 151 129 191 173 ...
+ - attr(*, "label")= chr " "
+ - attr(*, "SAStype")= chr " "
+> 
 > ## Write it out again, pretending to be the same OS, SAS version, and creation date
 > write.xport(SPEC,
 +             file="Alfalfa2.xpt",
@@ -842,4 +861,4 @@
 > 
 > proc.time()
    user  system elapsed 
-  0.506   0.054   0.550 
+  0.557   0.059   0.608 

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