Thread: [R-gregmisc-users] SF.net SVN: r-gregmisc:[1571] trunk/SASxport/tests
Brought to you by:
warnes
Menu
▾
▴
r-gregmisc-users
|
From: <wa...@us...> - 2012-06-21 23:12:40
|
Revision: 1571
http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1571&view=rev
Author: warnes
Date: 2012-06-21 23:12:34 +0000 (Thu, 21 Jun 2012)
Log Message:
-----------
Standardize file capitalization
Added Paths:
-----------
trunk/SASxport/tests/testUnnamedComponents.R
Removed Paths:
-------------
trunk/SASxport/tests/TestUnnamedComponents.R
Deleted: trunk/SASxport/tests/TestUnnamedComponents.R
===================================================================
--- trunk/SASxport/tests/TestUnnamedComponents.R 2012-06-19 19:00:31 UTC (rev 1570)
+++ trunk/SASxport/tests/TestUnnamedComponents.R 2012-06-21 23:12:34 UTC (rev 1571)
@@ -1,73 +0,0 @@
-library(SASxport)
-
-
-##tests
-example(read.xport)
-write.xport(w$test,file="a.xpt") #1.a
-lookup.xport("a.xpt") #1.b
-(tmp <- read.xport("a.xpt")) #1.c
-
-b <- w$test
-write.xport(b,file="a.xpt") #2.a
-lookup.xport("a.xpt") #2.b
-(tmp <- read.xport("a.xpt")) #2.c
-
-write.xport(test=w$test,file="a.xpt") #3.a
-lookup.xport("a.xpt") #3.b
-(tmp <- read.xport("a.xpt")) #3.c
-
-write.xport(test=w$test,z=w$z,file="a.xpt") #4.a
-lookup.xport("a.xpt") #4.b
-(tmp <- read.xport("a.xpt")) #4.c
-
-write.xport(w$test,w$z,file="a.xpt") #5.a
-lookup.xport("a.xpt") #5.b
-(tmp <- read.xport("a.xpt")) #5.c
-
-write.xport(w$test,z=w$z,file="a.xpt") #6.a
-lookup.xport("a.xpt") #6.b
-(tmp <- read.xport("a.xpt")) #6.c
-
-write.xport(list=w,file="a.xpt") #7.a
-lookup.xport("a.xpt") #7.b
-(tmp <- read.xport("a.xpt")) #7.c
-
-names(w) <- NULL
-write.xport(w[[1]],w[[2]],file="a.xpt") #8.a
-lookup.xport("a.xpt") #8.b
-(tmp <- read.xport("a.xpt")) #8.c
-
-names(w) <- NULL
-write.xport(list=w,file="a.xpt") #9.a
-lookup.xport("a.xpt") #9.b
-(tmp <- read.xport("a.xpt")) #9.c
-
-### Check that we catch invalid parameters
-failure <- try( write.xport(5,"a.xpt") ) #10.a
-SASxport:::assert( "try-error" %in% class(failure) ) #10.b
-(tmp <- read.xport("a.xpt")) #10.c
-
-failure <- try( write.xport(list(a=5,b=6),"a.xpt") ) #11.a
-SASxport:::assert( "try-error" %in% class(failure) ) #11.b
-(tmp <- read.xport("a.xpt")) #10.c
-
-# Check with different list construction function *name*
-example(read.xport)
-write.xport(list=base::list(w$test,w$z),file="a.xpt") #11.a
-lookup.xport("a.xpt") #11.b
-(tmp <- read.xport("a.xpt")) #11.c
-
-# remove names
-example(read.xport)
-names(w) <- NULL
-w[[3]] <- NULL
-write.xport(list=w,file="a.xpt") #12.a
-lookup.xport("a.xpt") #12.b
-(tmp <- read.xport("a.xpt")) #12.c
-
-# remove variable names
-example(read.xport)
-colnames(w[[2]]) <- rep("", length=ncol(w[[2]]))
-write.xport(list=w,file="a.xpt") #13.a
-lookup.xport("a.xpt") #13.b
-(tmp <- read.xport("a.xpt")) #13.c
Copied: trunk/SASxport/tests/testUnnamedComponents.R (from rev 1570, trunk/SASxport/tests/TestUnnamedComponents.R)
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.R (rev 0)
+++ trunk/SASxport/tests/testUnnamedComponents.R 2012-06-21 23:12:34 UTC (rev 1571)
@@ -0,0 +1,73 @@
+library(SASxport)
+
+
+##tests
+example(read.xport)
+write.xport(w$test,file="a.xpt") #1.a
+lookup.xport("a.xpt") #1.b
+(tmp <- read.xport("a.xpt")) #1.c
+
+b <- w$test
+write.xport(b,file="a.xpt") #2.a
+lookup.xport("a.xpt") #2.b
+(tmp <- read.xport("a.xpt")) #2.c
+
+write.xport(test=w$test,file="a.xpt") #3.a
+lookup.xport("a.xpt") #3.b
+(tmp <- read.xport("a.xpt")) #3.c
+
+write.xport(test=w$test,z=w$z,file="a.xpt") #4.a
+lookup.xport("a.xpt") #4.b
+(tmp <- read.xport("a.xpt")) #4.c
+
+write.xport(w$test,w$z,file="a.xpt") #5.a
+lookup.xport("a.xpt") #5.b
+(tmp <- read.xport("a.xpt")) #5.c
+
+write.xport(w$test,z=w$z,file="a.xpt") #6.a
+lookup.xport("a.xpt") #6.b
+(tmp <- read.xport("a.xpt")) #6.c
+
+write.xport(list=w,file="a.xpt") #7.a
+lookup.xport("a.xpt") #7.b
+(tmp <- read.xport("a.xpt")) #7.c
+
+names(w) <- NULL
+write.xport(w[[1]],w[[2]],file="a.xpt") #8.a
+lookup.xport("a.xpt") #8.b
+(tmp <- read.xport("a.xpt")) #8.c
+
+names(w) <- NULL
+write.xport(list=w,file="a.xpt") #9.a
+lookup.xport("a.xpt") #9.b
+(tmp <- read.xport("a.xpt")) #9.c
+
+### Check that we catch invalid parameters
+failure <- try( write.xport(5,"a.xpt") ) #10.a
+SASxport:::assert( "try-error" %in% class(failure) ) #10.b
+(tmp <- read.xport("a.xpt")) #10.c
+
+failure <- try( write.xport(list(a=5,b=6),"a.xpt") ) #11.a
+SASxport:::assert( "try-error" %in% class(failure) ) #11.b
+(tmp <- read.xport("a.xpt")) #10.c
+
+# Check with different list construction function *name*
+example(read.xport)
+write.xport(list=base::list(w$test,w$z),file="a.xpt") #11.a
+lookup.xport("a.xpt") #11.b
+(tmp <- read.xport("a.xpt")) #11.c
+
+# remove names
+example(read.xport)
+names(w) <- NULL
+w[[3]] <- NULL
+write.xport(list=w,file="a.xpt") #12.a
+lookup.xport("a.xpt") #12.b
+(tmp <- read.xport("a.xpt")) #12.c
+
+# remove variable names
+example(read.xport)
+colnames(w[[2]]) <- rep("", length=ncol(w[[2]]))
+write.xport(list=w,file="a.xpt") #13.a
+lookup.xport("a.xpt") #13.b
+(tmp <- read.xport("a.xpt")) #13.c
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2012-06-21 23:13:17
|
Revision: 1572
http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1572&view=rev
Author: warnes
Date: 2012-06-21 23:13:08 +0000 (Thu, 21 Jun 2012)
Log Message:
-----------
Standardize file capitalization
Added Paths:
-----------
trunk/SASxport/tests/testUnnamedComponents.Rout.save
Removed Paths:
-------------
trunk/SASxport/tests/TestUnnamedComponents.Rout.save
Deleted: trunk/SASxport/tests/TestUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/TestUnnamedComponents.Rout.save 2012-06-21 23:12:34 UTC (rev 1571)
+++ trunk/SASxport/tests/TestUnnamedComponents.Rout.save 2012-06-21 23:13:08 UTC (rev 1572)
@@ -1,2176 +0,0 @@
-
-R version 2.12.0 (2010-10-15)
-Copyright (C) 2010 The R Foundation for Statistical Computing
-ISBN 3-900051-07-0
-Platform: i386-apple-darwin9.8.0/i386 (32-bit)
-
-R is free software and comes with ABSOLUTELY NO WARRANTY.
-You are welcome to redistribute it under certain conditions.
-Type 'license()' or 'licence()' for distribution details.
-
-R is a collaborative project with many contributors.
-Type 'contributors()' for more information and
-'citation()' on how to cite R or R packages in publications.
-
-Type 'demo()' for some demos, 'help()' for on-line help, or
-'help.start()' for an HTML browser interface to help.
-Type 'q()' to quit R.
-
-> library(SASxport)
-
-Loaded SASxport version 1.2.4 (2010-11-11).
-
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
- Type `?SASxport' for usage information.
-
->
->
-> ##tests
-> example(read.xport)
-
-rd.xpr> # -------
-rd.xpr> # SAS code to generate test dataset:
-rd.xpr> # -------
-rd.xpr> # libname y SASV5XPT "test2.xpt";
-rd.xpr> #
-rd.xpr> # PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
-rd.xpr> # PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
-rd.xpr> # data test;
-rd.xpr> # LENGTH race 3 age 4;
-rd.xpr> # age=30; label age="Age at Beginning of Study";
-rd.xpr> # race=2;
-rd.xpr> # d1='3mar2002'd ;
-rd.xpr> # dt1='3mar2002 9:31:02'dt;
-rd.xpr> # t1='11:13:45't;
-rd.xpr> # output;
-rd.xpr> #
-rd.xpr> # age=31;
-rd.xpr> # race=4;
-rd.xpr> # d1='3jun2002'd ;
-rd.xpr> # dt1='3jun2002 9:42:07'dt;
-rd.xpr> # t1='11:14:13't;
-rd.xpr> # output;
-rd.xpr> # format d1 mmddyy10. dt1 datetime. t1 time. race race.;
-rd.xpr> # run;
-rd.xpr> # data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
-rd.xpr> # DO i=1 TO 100;
-rd.xpr> # x3=ranuni(3);
-rd.xpr> # x4=ranuni(5);
-rd.xpr> # x5=ranuni(7);
-rd.xpr> # x6=ranuni(9);
-rd.xpr> # x7=ranuni(11);
-rd.xpr> # x8=ranuni(13);
-rd.xpr> # output;
-rd.xpr> # END;
-rd.xpr> # DROP i;
-rd.xpr> # RUN;
-rd.xpr> # PROC MEANS; RUN;
-rd.xpr> # PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
-rd.xpr> # ------
-rd.xpr>
-rd.xpr> # Read this dataset from a local file:
-rd.xpr> ## Not run:
-rd.xpr> ##D w <- read.xport('test2.xpt')
-rd.xpr> ## End(Not run)
-rd.xpr>
-rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
-
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
-
-rd.xpr> url <- paste(host,path,sep="")
-
-rd.xpr> w <- read.xport(url)
-
-rd.xpr> # We can also get the dataset wrapped in a list
-rd.xpr> w <- read.xport(url, as.list=TRUE)
-
-rd.xpr> # And we can ask for the format information to be included as well.
-rd.xpr> w <- read.xport(url, as.list=TRUE, include.formats=TRUE)
-
-rd.xpr> ## Don't show:
-rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
-
-rd.xpr> ## End Don't show
-rd.xpr>
-rd.xpr>
-rd.xpr> ## Not run:
-rd.xpr> ##D ## The Hmisc library provides many useful functions for interacting with
-rd.xpr> ##D ## data imported from SAS via read.xport()
-rd.xpr> ##D library(Hmisc)
-rd.xpr> ##D
-rd.xpr> ##D describe(w$test) # see labels, format names for dataset test
-rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detaiil for each variable
-rd.xpr> ##D
-rd.xpr> ##D contents(w$test) # another way to see variable attributes
-rd.xpr> ##D lapply(w, contents)# show contents of individual items in more detail
-rd.xpr> ##D
-rd.xpr> ##D options(digits=7) # compare the following matrix with PROC MEANS output
-rd.xpr> ##D t(sapply(w$z, function(x)
-rd.xpr> ##D c(Mean=mean(x),SD=sqrt(var(x)),Min=min(x),Max=max(x))))
-rd.xpr> ## End(Not run)
-rd.xpr>
-rd.xpr>
-rd.xpr>
-rd.xpr>
-> write.xport(w$test,file="a.xpt") #1.a
-Warning message:
-In write.xport(w$test, file = "a.xpt") :
- Data frame names modified to obey SAS rules
-> lookup.xport("a.xpt") #1.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `W.TEST':
- dataset name type format flength fdigits iformat iflength ifdigits
- W.TEST RACE character RACE 0 0 0 0
- W.TEST AGE numeric 0 0 0 0
- W.TEST D1 numeric MMDDYY 10 0 0 0
- W.TEST DT1 numeric DATETIME 0 0 0 0
- W.TEST T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-> (tmp <- read.xport("a.xpt")) #1.c
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
->
-> b <- w$test
-> write.xport(b,file="a.xpt") #2.a
-> lookup.xport("a.xpt") #2.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `B':
- dataset name type format flength fdigits iformat iflength ifdigits
- B RACE character RACE 0 0 0 0
- B AGE numeric 0 0 0 0
- B D1 numeric MMDDYY 10 0 0 0
- B DT1 numeric DATETIME 0 0 0 0
- B T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-> (tmp <- read.xport("a.xpt")) #2.c
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
->
-> write.xport(test=w$test,file="a.xpt") #3.a
-> lookup.xport("a.xpt") #3.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `TEST':
- dataset name type format flength fdigits iformat iflength ifdigits
- TEST RACE character RACE 0 0 0 0
- TEST AGE numeric 0 0 0 0
- TEST D1 numeric MMDDYY 10 0 0 0
- TEST DT1 numeric DATETIME 0 0 0 0
- TEST T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-> (tmp <- read.xport("a.xpt")) #3.c
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
->
-> write.xport(test=w$test,z=w$z,file="a.xpt") #4.a
-> lookup.xport("a.xpt") #4.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `TEST':
- dataset name type format flength fdigits iformat iflength ifdigits
- TEST RACE character RACE 0 0 0 0
- TEST AGE numeric 0 0 0 0
- TEST D1 numeric MMDDYY 10 0 0 0
- TEST DT1 numeric DATETIME 0 0 0 0
- TEST T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-Variables in data set `Z':
- dataset name type format flength fdigits iformat iflength ifdigits label
- Z X3 numeric 0 0 0 0
- Z X4 numeric 0 0 0 0
- Z X5 numeric 0 0 0 0
- Z X6 numeric 0 0 0 0
- Z X7 numeric 0 0 0 0
- Z X8 numeric 0 0 0 0
- nobs
- 100
- 100
- 100
- 100
- 100
- 100
-
-> (tmp <- read.xport("a.xpt")) #4.c
-$test
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
-
-$z
- X3 X4 X5 X6 X7 X8
-1 0.554809570 0.91026592 0.199472918 0.77819594 0.76480773 0.907832049
-2 0.628906250 0.59507513 0.149382079 0.19969965 0.45795571 0.571611564
-3 0.560180664 0.20155370 0.871071571 0.89158189 0.81783537 0.069788893
-4 0.930175781 0.67952251 0.064709651 0.23829160 0.67566234 0.861676832
-5 0.427307129 0.53496075 0.903572354 0.77109401 0.74774458 0.131040108
-6 0.185058594 0.51981020 0.793640781 0.78736015 0.76898101 0.891668539
-7 0.173126221 0.41728735 0.038577245 0.50426505 0.49957831 0.613314660
-8 0.896362305 0.80392504 0.701412492 0.70635040 0.14863697 0.406764784
-9 0.533935547 0.29961348 0.528317338 0.99510797 0.21445599 0.373646303
-10 0.360412598 0.59865904 0.724511519 0.21542188 0.31943661 0.148101144
-11 0.567138672 0.03009592 0.068136962 0.13866363 0.81119381 0.337979215
-12 0.840698242 0.13869596 0.309818228 0.52551615 0.80671759 0.844569556
-13 0.262084961 0.21521139 0.075481503 0.13430464 0.56954970 0.443899054
-14 0.685424805 0.81032562 0.975597342 0.70753509 0.12778332 0.317631773
-15 0.752197266 0.57752514 0.195447854 0.71567068 0.72801126 0.563829176
-16 0.993896484 0.09662127 0.364689407 0.54199747 0.81191797 0.959635779
-17 0.264099121 0.11393309 0.812418848 0.28320176 0.46030928 0.530359364
-18 0.630615234 0.80165958 0.918073907 0.19114500 0.04715550 0.297804402
-19 0.630126953 0.83771992 0.658738920 0.20772481 0.11557381 0.936940561
-20 0.671508789 0.62512779 0.713715522 0.27031328 0.44528787 0.076310964
-21 0.451599121 0.97465801 0.088417932 0.56017806 0.08855998 0.131952559
-22 0.531616211 0.13582230 0.125990903 0.68861063 0.05864216 0.657296563
-23 0.745361328 0.52416706 0.138287167 0.93139657 0.93634337 0.279499571
-24 0.860229492 0.23535800 0.067773213 0.55205996 0.86140652 0.580399050
-25 0.885864258 0.89300871 0.154446173 0.05930633 0.47589580 0.489967297
-26 0.133148193 0.61039686 0.236988616 0.43535325 0.67330840 0.042648594
-27 0.106369019 0.47435546 0.894045589 0.71908408 0.91220874 0.777561118
-28 0.321899414 0.82515574 0.345769540 0.27898190 0.37587550 0.221321993
-29 0.584350586 0.45017719 0.256426542 0.55128526 0.99790806 0.116743046
-30 0.782714844 0.88925648 0.672125481 0.44156701 0.77192310 0.389772559
-31 0.255737305 0.76892853 0.691356288 0.24103043 0.30677701 0.010585836
-32 0.268127441 0.49482346 0.566317322 0.80006739 0.53679024 0.787674241
-33 0.132080078 0.55090714 0.066530403 0.35998585 0.50696324 0.892336901
-34 0.209716797 0.87050629 0.265810063 0.34237937 0.99317888 0.516304360
-35 0.731567383 0.80692101 0.868052749 0.41159689 0.81571351 0.670747127
-36 0.974731445 0.05395064 0.043045310 0.30307713 0.82485616 0.613199657
-37 0.060417175 0.93399811 0.892186217 0.54169906 0.80318660 0.918251223
-38 0.053512573 0.45821238 0.997252798 0.18699222 0.74571744 0.118700152
-39 0.274291992 0.15809727 0.456446022 0.81648360 0.93111440 0.607009959
-40 0.902587891 0.92125559 0.663786719 0.67212570 0.81908712 0.803353309
-41 0.107711792 0.39496422 0.157332692 0.34387862 0.81230429 0.606811568
-42 0.264343262 0.35475087 0.116596107 0.21385085 0.33521056 0.911987601
-43 0.717773438 0.92168236 0.860613002 0.26366805 0.50917660 0.285974402
-44 0.298767090 0.97046804 0.715277340 0.40017026 0.53598483 0.602097132
-45 0.838989258 0.43197370 0.872493969 0.93329615 0.55644537 0.399561767
-46 0.547485352 0.87380695 0.425328480 0.84611454 0.91989352 0.449281177
-47 0.951660156 0.55768442 0.701688468 0.69816831 0.07641118 0.280890167
-48 0.438110352 0.67539835 0.596034631 0.31697085 0.97244354 0.052248614
-49 0.360046387 0.84610510 0.208412720 0.62072056 0.59479764 0.122431251
-50 0.055969238 0.76994514 0.313554974 0.71819807 0.62459766 0.170687066
-51 0.409973145 0.02636161 0.004133753 0.43609714 0.56356174 0.735989964
-52 0.835083008 0.06974322 0.933788894 0.25459031 0.68429414 0.836456893
-53 0.328552246 0.95790482 0.581586711 0.96089912 0.64085773 0.649938160
-54 0.153930664 0.10510141 0.862072270 0.82662339 0.84238057 0.104127737
-55 0.360107422 0.57847071 0.425726887 0.64190236 0.66252058 0.930490654
-56 0.169525146 0.91843414 0.262370519 0.47529812 0.62708726 0.655481011
-57 0.915771484 0.70346546 0.545828892 0.59429612 0.21518204 0.868149194
-58 0.194366455 0.85970068 0.682605598 0.28758652 0.08545504 0.044229804
-59 0.262573242 0.02926101 0.503761623 0.72549339 0.82246938 0.239758181
-60 0.890747070 0.46807122 0.086424077 0.19262842 0.35845780 0.013044060
-61 0.934326172 0.94439077 0.478865772 0.21141539 0.85893385 0.039905848
-62 0.015239716 0.02890442 0.531706404 0.91962052 0.96377103 0.279689568
-63 0.363159180 0.98267412 0.382022258 0.09035326 0.53721446 0.278258128
-64 0.533203125 0.09129518 0.864049435 0.21085775 0.74247024 0.520784463
-65 0.812866211 0.92549849 0.326250156 0.03063606 0.37242442 0.681011943
-66 0.821655273 0.93953514 0.730109224 0.56800164 0.36850434 0.135115089
-67 0.495239258 0.18656993 0.703959208 0.91950956 0.37737182 0.331145230
-68 0.026271820 0.28924441 0.370986423 0.46839579 0.26069062 0.496386772
-69 0.961181641 0.07934558 0.370282067 0.01009577 0.91984033 0.250117553
-70 0.867187500 0.62807846 0.297433884 0.42768580 0.67836226 0.055045441
-71 0.634155273 0.45481491 0.366012510 0.46006086 0.62342353 0.553148303
-72 0.529907227 0.22573161 0.255918004 0.81299654 0.48340851 0.388373295
-73 0.969482422 0.06762362 0.233285627 0.28913314 0.40695817 0.379425337
-74 0.322631836 0.16369033 0.696140964 0.23542822 0.44133423 0.353194184
-75 0.980957031 0.88483143 0.904902402 0.40588630 0.43244408 0.104077954
-76 0.381713867 0.33405781 0.008811487 0.85152244 0.97412609 0.427583363
-77 0.352050781 0.81973124 0.882616673 0.97839957 0.91734389 0.705771805
-78 0.236816406 0.13472927 0.039259837 0.18197673 0.83403650 0.871165875
-79 0.216461182 0.39390779 0.689487964 0.52816572 0.18237391 0.328639985
-80 0.579467773 0.16152561 0.799306294 0.01943226 0.19664442 0.494486603
-81 0.213165283 0.49794507 0.903515683 0.82634666 0.95104984 0.512989034
-82 0.369934082 0.48608422 0.740175959 0.22198786 0.88631389 0.958679024
-83 0.023796082 0.34724808 0.996114468 0.41663422 0.13658224 0.809843882
-84 0.390930176 0.94919586 0.265328477 0.42259452 0.18362993 0.018595368
-85 0.171417236 0.26409721 0.171493893 0.43668409 0.29935710 0.788430851
-86 0.980102539 0.42689586 0.197483132 0.61358141 0.66990291 0.453710159
-87 0.656982422 0.36696911 0.047739081 0.27451939 0.18052140 0.054421855
-88 0.488464355 0.91196012 0.845107406 0.83929407 0.90409508 0.544446660
-89 0.314025879 0.50865173 0.984073751 0.74795267 0.57416734 0.370512281
-90 0.805297852 0.37908387 0.390562004 0.36959290 0.51052391 0.633604296
-91 0.471252441 0.43228960 0.225722159 0.80595341 0.16973734 0.474416345
-92 0.539428711 0.33449984 0.007872077 0.28196563 0.04201044 0.666856505
-93 0.825561523 0.27042723 0.774102103 0.16982144 0.04986308 0.830708595
-94 0.005760193 0.06863922 0.413105001 0.80787951 0.81871474 0.565592853
-95 0.623413086 0.09422225 0.729800716 0.35120569 0.16269988 0.935669079
-96 0.963989258 0.96828461 0.043478839 0.90069377 0.50886120 0.842695923
-97 0.421020508 0.16918373 0.196973316 0.52296367 0.20205632 0.007268806
-98 0.313354492 0.58946466 0.881128855 0.73021358 0.38516078 0.459060744
-99 0.963256836 0.91588259 0.873051692 0.97309719 0.75135814 0.770613592
-100 0.823852539 0.12452227 0.845681194 0.08775397 0.15969781 0.854058568
-
->
-> write.xport(w$test,w$z,file="a.xpt") #5.a
-Warning message:
-In write.xport(w$test, w$z, file = "a.xpt") :
- Data frame names modified to obey SAS rules
-> lookup.xport("a.xpt") #5.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `W.TEST':
- dataset name type format flength fdigits iformat iflength ifdigits
- W.TEST RACE character RACE 0 0 0 0
- W.TEST AGE numeric 0 0 0 0
- W.TEST D1 numeric MMDDYY 10 0 0 0
- W.TEST DT1 numeric DATETIME 0 0 0 0
- W.TEST T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-Variables in data set `W.Z':
- dataset name type format flength fdigits iformat iflength ifdigits label
- W.Z X3 numeric 0 0 0 0
- W.Z X4 numeric 0 0 0 0
- W.Z X5 numeric 0 0 0 0
- W.Z X6 numeric 0 0 0 0
- W.Z X7 numeric 0 0 0 0
- W.Z X8 numeric 0 0 0 0
- nobs
- 100
- 100
- 100
- 100
- 100
- 100
-
-> (tmp <- read.xport("a.xpt")) #5.c
-$w.test
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
-
-$w.z
- X3 X4 X5 X6 X7 X8
-1 0.554809570 0.91026592 0.199472918 0.77819594 0.76480773 0.907832049
-2 0.628906250 0.59507513 0.149382079 0.19969965 0.45795571 0.571611564
-3 0.560180664 0.20155370 0.871071571 0.89158189 0.81783537 0.069788893
-4 0.930175781 0.67952251 0.064709651 0.23829160 0.67566234 0.861676832
-5 0.427307129 0.53496075 0.903572354 0.77109401 0.74774458 0.131040108
-6 0.185058594 0.51981020 0.793640781 0.78736015 0.76898101 0.891668539
-7 0.173126221 0.41728735 0.038577245 0.50426505 0.49957831 0.613314660
-8 0.896362305 0.80392504 0.701412492 0.70635040 0.14863697 0.406764784
-9 0.533935547 0.29961348 0.528317338 0.99510797 0.21445599 0.373646303
-10 0.360412598 0.59865904 0.724511519 0.21542188 0.31943661 0.148101144
-11 0.567138672 0.03009592 0.068136962 0.13866363 0.81119381 0.337979215
-12 0.840698242 0.13869596 0.309818228 0.52551615 0.80671759 0.844569556
-13 0.262084961 0.21521139 0.075481503 0.13430464 0.56954970 0.443899054
-14 0.685424805 0.81032562 0.975597342 0.70753509 0.12778332 0.317631773
-15 0.752197266 0.57752514 0.195447854 0.71567068 0.72801126 0.563829176
-16 0.993896484 0.09662127 0.364689407 0.54199747 0.81191797 0.959635779
-17 0.264099121 0.11393309 0.812418848 0.28320176 0.46030928 0.530359364
-18 0.630615234 0.80165958 0.918073907 0.19114500 0.04715550 0.297804402
-19 0.630126953 0.83771992 0.658738920 0.20772481 0.11557381 0.936940561
-20 0.671508789 0.62512779 0.713715522 0.27031328 0.44528787 0.076310964
-21 0.451599121 0.97465801 0.088417932 0.56017806 0.08855998 0.131952559
-22 0.531616211 0.13582230 0.125990903 0.68861063 0.05864216 0.657296563
-23 0.745361328 0.52416706 0.138287167 0.93139657 0.93634337 0.279499571
-24 0.860229492 0.23535800 0.067773213 0.55205996 0.86140652 0.580399050
-25 0.885864258 0.89300871 0.154446173 0.05930633 0.47589580 0.489967297
-26 0.133148193 0.61039686 0.236988616 0.43535325 0.67330840 0.042648594
-27 0.106369019 0.47435546 0.894045589 0.71908408 0.91220874 0.777561118
-28 0.321899414 0.82515574 0.345769540 0.27898190 0.37587550 0.221321993
-29 0.584350586 0.45017719 0.256426542 0.55128526 0.99790806 0.116743046
-30 0.782714844 0.88925648 0.672125481 0.44156701 0.77192310 0.389772559
-31 0.255737305 0.76892853 0.691356288 0.24103043 0.30677701 0.010585836
-32 0.268127441 0.49482346 0.566317322 0.80006739 0.53679024 0.787674241
-33 0.132080078 0.55090714 0.066530403 0.35998585 0.50696324 0.892336901
-34 0.209716797 0.87050629 0.265810063 0.34237937 0.99317888 0.516304360
-35 0.731567383 0.80692101 0.868052749 0.41159689 0.81571351 0.670747127
-36 0.974731445 0.05395064 0.043045310 0.30307713 0.82485616 0.613199657
-37 0.060417175 0.93399811 0.892186217 0.54169906 0.80318660 0.918251223
-38 0.053512573 0.45821238 0.997252798 0.18699222 0.74571744 0.118700152
-39 0.274291992 0.15809727 0.456446022 0.81648360 0.93111440 0.607009959
-40 0.902587891 0.92125559 0.663786719 0.67212570 0.81908712 0.803353309
-41 0.107711792 0.39496422 0.157332692 0.34387862 0.81230429 0.606811568
-42 0.264343262 0.35475087 0.116596107 0.21385085 0.33521056 0.911987601
-43 0.717773438 0.92168236 0.860613002 0.26366805 0.50917660 0.285974402
-44 0.298767090 0.97046804 0.715277340 0.40017026 0.53598483 0.602097132
-45 0.838989258 0.43197370 0.872493969 0.93329615 0.55644537 0.399561767
-46 0.547485352 0.87380695 0.425328480 0.84611454 0.91989352 0.449281177
-47 0.951660156 0.55768442 0.701688468 0.69816831 0.07641118 0.280890167
-48 0.438110352 0.67539835 0.596034631 0.31697085 0.97244354 0.052248614
-49 0.360046387 0.84610510 0.208412720 0.62072056 0.59479764 0.122431251
-50 0.055969238 0.76994514 0.313554974 0.71819807 0.62459766 0.170687066
-51 0.409973145 0.02636161 0.004133753 0.43609714 0.56356174 0.735989964
-52 0.835083008 0.06974322 0.933788894 0.25459031 0.68429414 0.836456893
-53 0.328552246 0.95790482 0.581586711 0.96089912 0.64085773 0.649938160
-54 0.153930664 0.10510141 0.862072270 0.82662339 0.84238057 0.104127737
-55 0.360107422 0.57847071 0.425726887 0.64190236 0.66252058 0.930490654
-56 0.169525146 0.91843414 0.262370519 0.47529812 0.62708726 0.655481011
-57 0.915771484 0.70346546 0.545828892 0.59429612 0.21518204 0.868149194
-58 0.194366455 0.85970068 0.682605598 0.28758652 0.08545504 0.044229804
-59 0.262573242 0.02926101 0.503761623 0.72549339 0.82246938 0.239758181
-60 0.890747070 0.46807122 0.086424077 0.19262842 0.35845780 0.013044060
-61 0.934326172 0.94439077 0.478865772 0.21141539 0.85893385 0.039905848
-62 0.015239716 0.02890442 0.531706404 0.91962052 0.96377103 0.279689568
-63 0.363159180 0.98267412 0.382022258 0.09035326 0.53721446 0.278258128
-64 0.533203125 0.09129518 0.864049435 0.21085775 0.74247024 0.520784463
-65 0.812866211 0.92549849 0.326250156 0.03063606 0.37242442 0.681011943
-66 0.821655273 0.93953514 0.730109224 0.56800164 0.36850434 0.135115089
-67 0.495239258 0.18656993 0.703959208 0.91950956 0.37737182 0.331145230
-68 0.026271820 0.28924441 0.370986423 0.46839579 0.26069062 0.496386772
-69 0.961181641 0.07934558 0.370282067 0.01009577 0.91984033 0.250117553
-70 0.867187500 0.62807846 0.297433884 0.42768580 0.67836226 0.055045441
-71 0.634155273 0.45481491 0.366012510 0.46006086 0.62342353 0.553148303
-72 0.529907227 0.22573161 0.255918004 0.81299654 0.48340851 0.388373295
-73 0.969482422 0.06762362 0.233285627 0.28913314 0.40695817 0.379425337
-74 0.322631836 0.16369033 0.696140964 0.23542822 0.44133423 0.353194184
-75 0.980957031 0.88483143 0.904902402 0.40588630 0.43244408 0.104077954
-76 0.381713867 0.33405781 0.008811487 0.85152244 0.97412609 0.427583363
-77 0.352050781 0.81973124 0.882616673 0.97839957 0.91734389 0.705771805
-78 0.236816406 0.13472927 0.039259837 0.18197673 0.83403650 0.871165875
-79 0.216461182 0.39390779 0.689487964 0.52816572 0.18237391 0.328639985
-80 0.579467773 0.16152561 0.799306294 0.01943226 0.19664442 0.494486603
-81 0.213165283 0.49794507 0.903515683 0.82634666 0.95104984 0.512989034
-82 0.369934082 0.48608422 0.740175959 0.22198786 0.88631389 0.958679024
-83 0.023796082 0.34724808 0.996114468 0.41663422 0.13658224 0.809843882
-84 0.390930176 0.94919586 0.265328477 0.42259452 0.18362993 0.018595368
-85 0.171417236 0.26409721 0.171493893 0.43668409 0.29935710 0.788430851
-86 0.980102539 0.42689586 0.197483132 0.61358141 0.66990291 0.453710159
-87 0.656982422 0.36696911 0.047739081 0.27451939 0.18052140 0.054421855
-88 0.488464355 0.91196012 0.845107406 0.83929407 0.90409508 0.544446660
-89 0.314025879 0.50865173 0.984073751 0.74795267 0.57416734 0.370512281
-90 0.805297852 0.37908387 0.390562004 0.36959290 0.51052391 0.633604296
-91 0.471252441 0.43228960 0.225722159 0.80595341 0.16973734 0.474416345
-92 0.539428711 0.33449984 0.007872077 0.28196563 0.04201044 0.666856505
-93 0.825561523 0.27042723 0.774102103 0.16982144 0.04986308 0.830708595
-94 0.005760193 0.06863922 0.413105001 0.80787951 0.81871474 0.565592853
-95 0.623413086 0.09422225 0.729800716 0.35120569 0.16269988 0.935669079
-96 0.963989258 0.96828461 0.043478839 0.90069377 0.50886120 0.842695923
-97 0.421020508 0.16918373 0.196973316 0.52296367 0.20205632 0.007268806
-98 0.313354492 0.58946466 0.881128855 0.73021358 0.38516078 0.459060744
-99 0.963256836 0.91588259 0.873051692 0.97309719 0.75135814 0.770613592
-100 0.823852539 0.12452227 0.845681194 0.08775397 0.15969781 0.854058568
-
->
-> write.xport(w$test,z=w$z,file="a.xpt") #6.a
-> lookup.xport("a.xpt") #6.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `W.TEST':
- dataset name type format flength fdigits iformat iflength ifdigits
- W.TEST RACE character RACE 0 0 0 0
- W.TEST AGE numeric 0 0 0 0
- W.TEST D1 numeric MMDDYY 10 0 0 0
- W.TEST DT1 numeric DATETIME 0 0 0 0
- W.TEST T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-Variables in data set `Z':
- dataset name type format flength fdigits iformat iflength ifdigits label
- Z X3 numeric 0 0 0 0
- Z X4 numeric 0 0 0 0
- Z X5 numeric 0 0 0 0
- Z X6 numeric 0 0 0 0
- Z X7 numeric 0 0 0 0
- Z X8 numeric 0 0 0 0
- nobs
- 100
- 100
- 100
- 100
- 100
- 100
-
-> (tmp <- read.xport("a.xpt")) #6.c
-$w.test
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
-
-$z
- X3 X4 X5 X6 X7 X8
-1 0.554809570 0.91026592 0.199472918 0.77819594 0.76480773 0.907832049
-2 0.628906250 0.59507513 0.149382079 0.19969965 0.45795571 0.571611564
-3 0.560180664 0.20155370 0.871071571 0.89158189 0.81783537 0.069788893
-4 0.930175781 0.67952251 0.064709651 0.23829160 0.67566234 0.861676832
-5 0.427307129 0.53496075 0.903572354 0.77109401 0.74774458 0.131040108
-6 0.185058594 0.51981020 0.793640781 0.78736015 0.76898101 0.891668539
-7 0.173126221 0.41728735 0.038577245 0.50426505 0.49957831 0.613314660
-8 0.896362305 0.80392504 0.701412492 0.70635040 0.14863697 0.406764784
-9 0.533935547 0.29961348 0.528317338 0.99510797 0.21445599 0.373646303
-10 0.360412598 0.59865904 0.724511519 0.21542188 0.31943661 0.148101144
-11 0.567138672 0.03009592 0.068136962 0.13866363 0.81119381 0.337979215
-12 0.840698242 0.13869596 0.309818228 0.52551615 0.80671759 0.844569556
-13 0.262084961 0.21521139 0.075481503 0.13430464 0.56954970 0.443899054
-14 0.685424805 0.81032562 0.975597342 0.70753509 0.12778332 0.317631773
-15 0.752197266 0.57752514 0.195447854 0.71567068 0.72801126 0.563829176
-16 0.993896484 0.09662127 0.364689407 0.54199747 0.81191797 0.959635779
-17 0.264099121 0.11393309 0.812418848 0.28320176 0.46030928 0.530359364
-18 0.630615234 0.80165958 0.918073907 0.19114500 0.04715550 0.297804402
-19 0.630126953 0.83771992 0.658738920 0.20772481 0.11557381 0.936940561
-20 0.671508789 0.62512779 0.713715522 0.27031328 0.44528787 0.076310964
-21 0.451599121 0.97465801 0.088417932 0.56017806 0.08855998 0.131952559
-22 0.531616211 0.13582230 0.125990903 0.68861063 0.05864216 0.657296563
-23 0.745361328 0.52416706 0.138287167 0.93139657 0.93634337 0.279499571
-24 0.860229492 0.23535800 0.067773213 0.55205996 0.86140652 0.580399050
-25 0.885864258 0.89300871 0.154446173 0.05930633 0.47589580 0.489967297
-26 0.133148193 0.61039686 0.236988616 0.43535325 0.67330840 0.042648594
-27 0.106369019 0.47435546 0.894045589 0.71908408 0.91220874 0.777561118
-28 0.321899414 0.82515574 0.345769540 0.27898190 0.37587550 0.221321993
-29 0.584350586 0.45017719 0.256426542 0.55128526 0.99790806 0.116743046
-30 0.782714844 0.88925648 0.672125481 0.44156701 0.77192310 0.389772559
-31 0.255737305 0.76892853 0.691356288 0.24103043 0.30677701 0.010585836
-32 0.268127441 0.49482346 0.566317322 0.80006739 0.53679024 0.787674241
-33 0.132080078 0.55090714 0.066530403 0.35998585 0.50696324 0.892336901
-34 0.209716797 0.87050629 0.265810063 0.34237937 0.99317888 0.516304360
-35 0.731567383 0.80692101 0.868052749 0.41159689 0.81571351 0.670747127
-36 0.974731445 0.05395064 0.043045310 0.30307713 0.82485616 0.613199657
-37 0.060417175 0.93399811 0.892186217 0.54169906 0.80318660 0.918251223
-38 0.053512573 0.45821238 0.997252798 0.18699222 0.74571744 0.118700152
-39 0.274291992 0.15809727 0.456446022 0.81648360 0.93111440 0.607009959
-40 0.902587891 0.92125559 0.663786719 0.67212570 0.81908712 0.803353309
-41 0.107711792 0.39496422 0.157332692 0.34387862 0.81230429 0.606811568
-42 0.264343262 0.35475087 0.116596107 0.21385085 0.33521056 0.911987601
-43 0.717773438 0.92168236 0.860613002 0.26366805 0.50917660 0.285974402
-44 0.298767090 0.97046804 0.715277340 0.40017026 0.53598483 0.602097132
-45 0.838989258 0.43197370 0.872493969 0.93329615 0.55644537 0.399561767
-46 0.547485352 0.87380695 0.425328480 0.84611454 0.91989352 0.449281177
-47 0.951660156 0.55768442 0.701688468 0.69816831 0.07641118 0.280890167
-48 0.438110352 0.67539835 0.596034631 0.31697085 0.97244354 0.052248614
-49 0.360046387 0.84610510 0.208412720 0.62072056 0.59479764 0.122431251
-50 0.055969238 0.76994514 0.313554974 0.71819807 0.62459766 0.170687066
-51 0.409973145 0.02636161 0.004133753 0.43609714 0.56356174 0.735989964
-52 0.835083008 0.06974322 0.933788894 0.25459031 0.68429414 0.836456893
-53 0.328552246 0.95790482 0.581586711 0.96089912 0.64085773 0.649938160
-54 0.153930664 0.10510141 0.862072270 0.82662339 0.84238057 0.104127737
-55 0.360107422 0.57847071 0.425726887 0.64190236 0.66252058 0.930490654
-56 0.169525146 0.91843414 0.262370519 0.47529812 0.62708726 0.655481011
-57 0.915771484 0.70346546 0.545828892 0.59429612 0.21518204 0.868149194
-58 0.194366455 0.85970068 0.682605598 0.28758652 0.08545504 0.044229804
-59 0.262573242 0.02926101 0.503761623 0.72549339 0.82246938 0.239758181
-60 0.890747070 0.46807122 0.086424077 0.19262842 0.35845780 0.013044060
-61 0.934326172 0.94439077 0.478865772 0.21141539 0.85893385 0.039905848
-62 0.015239716 0.02890442 0.531706404 0.91962052 0.96377103 0.279689568
-63 0.363159180 0.98267412 0.382022258 0.09035326 0.53721446 0.278258128
-64 0.533203125 0.09129518 0.864049435 0.21085775 0.74247024 0.520784463
-65 0.812866211 0.92549849 0.326250156 0.03063606 0.37242442 0.681011943
-66 0.821655273 0.93953514 0.730109224 0.56800164 0.36850434 0.135115089
-67 0.495239258 0.18656993 0.703959208 0.91950956 0.37737182 0.331145230
-68 0.026271820 0.28924441 0.370986423 0.46839579 0.26069062 0.496386772
-69 0.961181641 0.07934558 0.370282067 0.01009577 0.91984033 0.250117553
-70 0.867187500 0.62807846 0.297433884 0.42768580 0.67836226 0.055045441
-71 0.634155273 0.45481491 0.366012510 0.46006086 0.62342353 0.553148303
-72 0.529907227 0.22573161 0.255918004 0.81299654 0.48340851 0.388373295
-73 0.969482422 0.06762362 0.233285627 0.28913314 0.40695817 0.379425337
-74 0.322631836 0.16369033 0.696140964 0.23542822 0.44133423 0.353194184
-75 0.980957031 0.88483143 0.904902402 0.40588630 0.43244408 0.104077954
-76 0.381713867 0.33405781 0.008811487 0.85152244 0.97412609 0.427583363
-77 0.352050781 0.81973124 0.882616673 0.97839957 0.91734389 0.705771805
-78 0.236816406 0.13472927 0.039259837 0.18197673 0.83403650 0.871165875
-79 0.216461182 0.39390779 0.689487964 0.52816572 0.18237391 0.328639985
-80 0.579467773 0.16152561 0.799306294 0.01943226 0.19664442 0.494486603
-81 0.213165283 0.49794507 0.903515683 0.82634666 0.95104984 0.512989034
-82 0.369934082 0.48608422 0.740175959 0.22198786 0.88631389 0.958679024
-83 0.023796082 0.34724808 0.996114468 0.41663422 0.13658224 0.809843882
-84 0.390930176 0.94919586 0.265328477 0.42259452 0.18362993 0.018595368
-85 0.171417236 0.26409721 0.171493893 0.43668409 0.29935710 0.788430851
-86 0.980102539 0.42689586 0.197483132 0.61358141 0.66990291 0.453710159
-87 0.656982422 0.36696911 0.047739081 0.27451939 0.18052140 0.054421855
-88 0.488464355 0.91196012 0.845107406 0.83929407 0.90409508 0.544446660
-89 0.314025879 0.50865173 0.984073751 0.74795267 0.57416734 0.370512281
-90 0.805297852 0.37908387 0.390562004 0.36959290 0.51052391 0.633604296
-91 0.471252441 0.43228960 0.225722159 0.80595341 0.16973734 0.474416345
-92 0.539428711 0.33449984 0.007872077 0.28196563 0.04201044 0.666856505
-93 0.825561523 0.27042723 0.774102103 0.16982144 0.04986308 0.830708595
-94 0.005760193 0.06863922 0.413105001 0.80787951 0.81871474 0.565592853
-95 0.623413086 0.09422225 0.729800716 0.35120569 0.16269988 0.935669079
-96 0.963989258 0.96828461 0.043478839 0.90069377 0.50886120 0.842695923
-97 0.421020508 0.16918373 0.196973316 0.52296367 0.20205632 0.007268806
-98 0.313354492 0.58946466 0.881128855 0.73021358 0.38516078 0.459060744
-99 0.963256836 0.91588259 0.873051692 0.97309719 0.75135814 0.770613592
-100 0.823852539 0.12452227 0.845681194 0.08775397 0.15969781 0.854058568
-
->
-> write.xport(list=w,file="a.xpt") #7.a
-> lookup.xport("a.xpt") #7.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `TEST':
- dataset name type format flength fdigits iformat iflength ifdigits
- TEST RACE numeric RACE 0 0 0 0
- TEST AGE numeric 0 0 0 0
- TEST D1 numeric MMDDYY 10 0 0 0
- TEST DT1 numeric DATETIME 0 0 0 0
- TEST T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-Variables in data set `Z':
- dataset name type format flength fdigits iformat iflength ifdigits label
- Z X3 numeric 0 0 0 0
- Z X4 numeric 0 0 0 0
- Z X5 numeric 0 0 0 0
- Z X6 numeric 0 0 0 0
- Z X7 numeric 0 0 0 0
- Z X8 numeric 0 0 0 0
- nobs
- 100
- 100
- 100
- 100
- 100
- 100
-
-Variables in data set `FORMATS':
- dataset name type format flength fdigits iformat iflength ifdigits
- FORMATS FMTNAME character 0 0 0 0
- FORMATS START character 0 0 0 0
- FORMATS END character 0 0 0 0
- FORMATS LABEL character 0 0 0 0
- FORMATS MIN numeric 0 0 0 0
- FORMATS MAX numeric 0 0 0 0
- FORMATS DEFAULT numeric 0 0 0 0
- FORMATS LENGTH numeric 0 0 0 0
- FORMATS FUZZ numeric 0 0 0 0
- FORMATS PREFIX character 0 0 0 0
- FORMATS MULT numeric 0 0 0 0
- FORMATS FILL character 0 0 0 0
- FORMATS NOEDIT numeric 0 0 0 0
- FORMATS TYPE character 0 0 0 0
- FORMATS SEXCL character 0 0 0 0
- FORMATS EEXCL character 0 0 0 0
- FORMATS HLO character 0 0 0 0
- FORMATS DECSEP character 0 0 0 0
- FORMATS DIG3SEP character 0 0 0 0
- FORMATS DATATYPE character 0 0 0 0
- FORMATS LANGUAGE character 0 0 0 0
- label nobs
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
-
-> (tmp <- read.xport("a.xpt")) #7.c
-$test
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
-
-$z
- X3 X4 X5 X6 X7 X8
-1 0.554809570 0.91026592 0.199472918 0.77819594 0.76480773 0.907832049
-2 0.628906250 0.59507513 0.149382079 0.19969965 0.45795571 0.571611564
-3 0.560180664 0.20155370 0.871071571 0.89158189 0.81783537 0.069788893
-4 0.930175781 0.67952251 0.064709651 0.23829160 0.67566234 0.861676832
-5 0.427307129 0.53496075 0.903572354 0.77109401 0.74774458 0.131040108
-6 0.185058594 0.51981020 0.793640781 0.78736015 0.76898101 0.891668539
-7 0.173126221 0.41728735 0.038577245 0.50426505 0.49957831 0.613314660
-8 0.896362305 0.80392504 0.701412492 0.70635040 0.14863697 0.406764784
-9 0.533935547 0.29961348 0.528317338 0.99510797 0.21445599 0.373646303
-10 0.360412598 0.59865904 0.724511519 0.21542188 0.31943661 0.148101144
-11 0.567138672 0.03009592 0.068136962 0.13866363 0.81119381 0.337979215
-12 0.840698242 0.13869596 0.309818228 0.52551615 0.80671759 0.844569556
-13 0.262084961 0.21521139 0.075481503 0.13430464 0.56954970 0.443899054
-14 0.685424805 0.81032562 0.975597342 0.70753509 0.12778332 0.317631773
-15 0.752197266 0.57752514 0.195447854 0.71567068 0.72801126 0.563829176
-16 0.993896484 0.09662127 0.364689407 0.54199747 0.81191797 0.959635779
-17 0.264099121 0.11393309 0.812418848 0.28320176 0.46030928 0.530359364
-18 0.630615234 0.80165958 0.918073907 0.19114500 0.04715550 0.297804402
-19 0.630126953 0.83771992 0.658738920 0.20772481 0.11557381 0.936940561
-20 0.671508789 0.62512779 0.713715522 0.27031328 0.44528787 0.076310964
-21 0.451599121 0.97465801 0.088417932 0.56017806 0.08855998 0.131952559
-22 0.531616211 0.13582230 0.125990903 0.68861063 0.05864216 0.657296563
-23 0.745361328 0.52416706 0.138287167 0.93139657 0.93634337 0.279499571
-24 0.860229492 0.23535800 0.067773213 0.55205996 0.86140652 0.580399050
-25 0.885864258 0.89300871 0.154446173 0.05930633 0.47589580 0.489967297
-26 0.133148193 0.61039686 0.236988616 0.43535325 0.67330840 0.042648594
-27 0.106369019 0.47435546 0.894045589 0.71908408 0.91220874 0.777561118
-28 0.321899414 0.82515574 0.345769540 0.27898190 0.37587550 0.221321993
-29 0.584350586 0.45017719 0.256426542 0.55128526 0.99790806 0.116743046
-30 0.782714844 0.88925648 0.672125481 0.44156701 0.77192310 0.389772559
-31 0.255737305 0.76892853 0.691356288 0.24103043 0.30677701 0.010585836
-32 0.268127441 0.49482346 0.566317322 0.80006739 0.53679024 0.787674241
-33 0.132080078 0.55090714 0.066530403 0.35998585 0.50696324 0.892336901
-34 0.209716797 0.87050629 0.265810063 0.34237937 0.99317888 0.516304360
-35 0.731567383 0.80692101 0.868052749 0.41159689 0.81571351 0.670747127
-36 0.974731445 0.05395064 0.043045310 0.30307713 0.82485616 0.613199657
-37 0.060417175 0.93399811 0.892186217 0.54169906 0.80318660 0.918251223
-38 0.053512573 0.45821238 0.997252798 0.18699222 0.74571744 0.118700152
-39 0.274291992 0.15809727 0.456446022 0.81648360 0.93111440 0.607009959
-40 0.902587891 0.92125559 0.663786719 0.67212570 0.81908712 0.803353309
-41 0.107711792 0.39496422 0.157332692 0.34387862 0.81230429 0.606811568
-42 0.264343262 0.35475087 0.116596107 0.21385085 0.33521056 0.911987601
-43 0.717773438 0.92168236 0.860613002 0.26366805 0.50917660 0.285974402
-44 0.298767090 0.97046804 0.715277340 0.40017026 0.53598483 0.602097132
-45 0.838989258 0.43197370 0.872493969 0.93329615 0.55644537 0.399561767
-46 0.547485352 0.87380695 0.425328480 0.84611454 0.91989352 0.449281177
-47 0.951660156 0.55768442 0.701688468 0.69816831 0.07641118 0.280890167
-48 0.438110352 0.67539835 0.596034631 0.31697085 0.97244354 0.052248614
-49 0.360046387 0.84610510 0.208412720 0.62072056 0.59479764 0.122431251
-50 0.055969238 0.76994514 0.313554974 0.71819807 0.62459766 0.170687066
-51 0.409973145 0.02636161 0.004133753 0.43609714 0.56356174 0.735989964
-52 0.835083008 0.06974322 0.933788894 0.25459031 0.68429414 0.836456893
-53 0.328552246 0.95790482 0.581586711 0.96089912 0.64085773 0.649938160
-54 0.153930664 0.10510141 0.862072270 0.82662339 0.84238057 0.104127737
-55 0.360107422 0.57847071 0.425726887 0.64190236 0.66252058 0.930490654
-56 0.169525146 0.91843414 0.262370519 0.47529812 0.62708726 0.655481011
-57 0.915771484 0.70346546 0.545828892 0.59429612 0.21518204 0.868149194
-58 0.194366455 0.85970068 0.682605598 0.28758652 0.08545504 0.044229804
-59 0.262573242 0.02926101 0.503761623 0.72549339 0.82246938 0.239758181
-60 0.890747070 0.46807122 0.086424077 0.19262842 0.35845780 0.013044060
-61 0.934326172 0.94439077 0.478865772 0.21141539 0.85893385 0.039905848
-62 0.015239716 0.02890442 0.531706404 0.91962052 0.96377103 0.279689568
-63 0.363159180 0.98267412 0.382022258 0.09035326 0.53721446 0.278258128
-64 0.533203125 0.09129518 0.864049435 0.21085775 0.74247024 0.520784463
-65 0.812866211 0.92549849 0.326250156 0.03063606 0.37242442 0.681011943
-66 0.821655273 0.93953514 0.730109224 0.56800164 0.36850434 0.135115089
-67 0.495239258 0.18656993 0.703959208 0.91950956 0.37737182 0.331145230
-68 0.026271820 0.28924441 0.370986423 0.46839579 0.26069062 0.496386772
-69 0.961181641 0.07934558 0.370282067 0.01009577 0.91984033 0.250117553
-70 0.867187500 0.62807846 0.297433884 0.42768580 0.67836226 0.055045441
-71 0.634155273 0.45481491 0.366012510 0.46006086 0.62342353 0.553148303
-72 0.529907227 0.22573161 0.255918004 0.81299654 0.48340851 0.388373295
-73 0.969482422 0.06762362 0.233285627 0.28913314 0.40695817 0.379425337
-74 0.322631836 0.16369033 0.696140964 0.23542822 0.44133423 0.353194184
-75 0.980957031 0.88483143 0.904902402 0.40588630 0.43244408 0.104077954
-76 0.381713867 0.33405781 0.008811487 0.85152244 0.97412609 0.427583363
-77 0.352050781 0.81973124 0.882616673 0.97839957 0.91734389 0.705771805
-78 0.236816406 0.13472927 0.039259837 0.18197673 0.83403650 0.871165875
-79 0.216461182 0.39390779 0.689487964 0.52816572 0.18237391 0.328639985
-80 0.579467773 0.16152561 0.799306294 0.01943226 0.19664442 0.494486603
-81 0.213165283 0.49794507 0.903515683 0.82634666 0.95104984 0.512989034
-82 0.369934082 0.48608422 0.740175959 0.22198786 0.88631389 0.958679024
-83 0.023796082 0.34724808 0.996114468 0.41663422 0.13658224 0.809843882
-84 0.390930176 0.94919586 0.265328477 0.42259452 0.18362993 0.018595368
-85 0.171417236 0.26409721 0.171493893 0.43668409 0.29935710 0.788430851
-86 0.980102539 0.42689586 0.197483132 0.61358141 0.66990291 0.453710159
-87 0.656982422 0.36696911 0.047739081 0.27451939 0.18052140 0.054421855
-88 0.488464355 0.91196012 0.845107406 0.83929407 0.90409508 0.544446660
-89 0.314025879 0.50865173 0.984073751 0.74795267 0.57416734 0.370512281
-90 0.805297852 0.37908387 0.390562004 0.36959290 0.51052391 0.633604296
-91 0.471252441 0.43228960 0.225722159 0.80595341 0.16973734 0.474416345
-92 0.539428711 0.33449984 0.007872077 0.28196563 0.04201044 0.666856505
-93 0.825561523 0.27042723 0.774102103 0.16982144 0.04986308 0.830708595
-94 0.005760193 0.06863922 0.413105001 0.80787951 0.81871474 0.565592853
-95 0.623413086 0.09422225 0.729800716 0.35120569 0.16269988 0.935669079
-96 0.963989258 0.96828461 0.043478839 0.90069377 0.50886120 0.842695923
-97 0.421020508 0.16918373 0.196973316 0.52296367 0.20205632 0.007268806
-98 0.313354492 0.58946466 0.881128855 0.73021358 0.38516078 0.459060744
-99 0.963256836 0.91588259 0.873051692 0.97309719 0.75135814 0.770613592
-100 0.823852539 0.12452227 0.845681194 0.08775397 0.15969781 0.854058568
-
->
-> names(w) <- NULL
-> write.xport(w[[1]],w[[2]],file="a.xpt") #8.a
-Warning message:
-In write.xport(w[[1]], w[[2]], file = "a.xpt") :
- Data frame names modified to obey SAS rules
-> lookup.xport("a.xpt") #8.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `W..1..':
- dataset name type format flength fdigits iformat iflength ifdigits
- W..1.. RACE character RACE 0 0 0 0
- W..1.. AGE numeric 0 0 0 0
- W..1.. D1 numeric MMDDYY 10 0 0 0
- W..1.. DT1 numeric DATETIME 0 0 0 0
- W..1.. T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-Variables in data set `W..2..':
- dataset name type format flength fdigits iformat iflength ifdigits label
- W..2.. X3 numeric 0 0 0 0
- W..2.. X4 numeric 0 0 0 0
- W..2.. X5 numeric 0 0 0 0
- W..2.. X6 numeric 0 0 0 0
- W..2.. X7 numeric 0 0 0 0
- W..2.. X8 numeric 0 0 0 0
- nobs
- 100
- 100
- 100
- 100
- 100
- 100
-
-> (tmp <- read.xport("a.xpt")) #8.c
-$w..1..
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
-
-$w..2..
- X3 X4 X5 X6 X7 X8
-1 0.554809570 0.91026592 0.199472918 0.77819594 0.76480773 0.907832049
-2 0.628906250 0.59507513 0.149382079 0.19969965 0.45795571 0.571611564
-3 0.560180664 0.20155370 0.871071571 0.89158189 0.81783537 0.069788893
-4 0.930175781 0.67952251 0.064709651 0.23829160 0.67566234 0.861676832
-5 0.427307129 0.53496075 0.903572354 0.77109401 0.74774458 0.131040108
-6 0.185058594 0.51981020 0.793640781 0.78736015 0.76898101 0.891668539
-7 0.173126221 0.41728735 0.038577245 0.50426505 0.49957831 0.613314660
-8 0.896362305 0.80392504 0.701412492 0.70635040 0.14863697 0.406764784
-9 0.533935547 0.29961348 0.528317338 0.99510797 0.21445599 0.373646303
-10 0.360412598 0.59865904 0.724511519 0.21542188 0.31943661 0.148101144
-11 0.567138672 0.03009592 0.068136962 0.13866363 0.81119381 0.337979215
-12 0.840698242 0.13869596 0.309818228 0.52551615 0.80671759 0.844569556
-13 0.262084961 0.21521139 0.075481503 0.13430464 0.56954970 0.443899054
-14 0.685424805 0.81032562 0.975597342 0.70753509 0.12778332 0.317631773
-15 0.752197266 0.57752514 0.195447854 0.71567068 0.72801126 0.563829176
-16 0.993896484 0.09662127 0.364689407 0.54199747 0.81191797 0.959635779
-17 0.264099121 0.11393309 0.812418848 0.28320176 0.46030928 0.530359364
-18 0.630615234 0.80165958 0.918073907 0.19114500 0.04715550 0.297804402
-19 0.630126953 0.83771992 0.658738920 0.20772481 0.11557381 0.936940561
-20 0.671508789 0.62512779 0.713715522 0.27031328 0.44528787 0.076310964
-21 0.451599121 0.97465801 0.088417932 0.56017806 0.08855998 0.131952559
-22 0.531616211 0.13582230 0.125990903 0.68861063 0.05864216 0.657296563
-23 0.745361328 0.52416706 0.138287167 0.93139657 0.93634337 0.279499571
-24 0.860229492 0.23535800 0.067773213 0.55205996 0.86140652 0.580399050
-25 0.885864258 0.89300871 0.154446173 0.05930633 0.47589580 0.489967297
-26 0.133148193 0.61039686 0.236988616 0.43535325 0.67330840 0.042648594
-27 0.106369019 0.47435546 0.894045589 0.71908408 0.91220874 0.777561118
-28 0.321899414 0.82515574 0.345769540 0.27898190 0.37587550 0.221321993
-29 0.584350586 0.45017719 0.256426542 0.55128526 0.99790806 0.116743046
-30 0.782714844 0.88925648 0.672125481 0.44156701 0.77192310 0.389772559
-31 0.255737305 0.76892853 0.691356288 0.24103043 0.30677701 0.010585836
-32 0.268127441 0.49482346 0.566317322 0.80006739 0.53679024 0.787674241
-33 0.132080078 0.55090714 0.066530403 0.35998585 0.50696324 0.892336901
-34 0.209716797 0.87050629 0.265810063 0.34237937 0.99317888 0.516304360
-35 0.731567383 0.80692101 0.868052749 0.41159689 0.81571351 0.670747127
-36 0.974731445 0.05395064 0.043045310 0.30307713 0.82485616 0.613199657
-37 0.060417175 0.93399811 0.892186217 0.54169906 0.80318660 0.918251223
-38 0.053512573 0.45821238 0.997252798 0.18699222 0.74571744 0.118700152
-39 0.274291992 0.15809727 0.456446022 0.81648360 0.93111440 0.607009959
-40 0.902587891 0.92125559 0.663786719 0.67212570 0.81908712 0.803353309
-41 0.107711792 0.39496422 0.157332692 0.34387862 0.81230429 0.606811568
-42 0.264343262 0.35475087 0.116596107 0.21385085 0.33521056 0.911987601
-43 0.717773438 0.92168236 0.860613002 0.26366805 0.50917660 0.285974402
-44 0.298767090 0.97046804 0.715277340 0.40017026 0.53598483 0.602097132
-45 0.838989258 0.43197370 0.872493969 0.93329615 0.55644537 0.399561767
-46 0.547485352 0.87380695 0.425328480 0.84611454 0.91989352 0.449281177
-47 0.951660156 0.55768442 0.701688468 0.69816831 0.07641118 0.280890167
-48 0.438110352 0.67539835 0.596034631 0.31697085 0.97244354 0.052248614
-49 0.360046387 0.84610510 0.208412720 0.62072056 0.59479764 0.122431251
-50 0.055969238 0.76994514 0.313554974 0.71819807 0.62459766 0.170687066
-51 0.409973145 0.02636161 0.004133753 0.43609714 0.56356174 0.735989964
-52 0.835083008 0.06974322 0.933788894 0.25459031 0.68429414 0.836456893
-53 0.328552246 0.95790482 0.581586711 0.96089912 0.64085773 0.649938160
-54 0.153930664 0.10510141 0.862072270 0.82662339 0.84238057 0.104127737
-55 0.360107422 0.57847071 0.425726887 0.64190236 0.66252058 0.930490654
-56 0.169525146 0.91843414 0.262370519 0.47529812 0.62708726 0.655481011
-57 0.915771484 0.70346546 0.545828892 0.59429612 0.21518204 0.868149194
-58 0.194366455 0.85970068 0.682605598 0.28758652 0.08545504 0.044229804
-59 0.262573242 0.02926101 0.503761623 0.72549339 0.82246938 0.239758181
-60 0.890747070 0.46807122 0.086424077 0.19262842 0.35845780 0.013044060
-61 0.934326172 0.94439077 0.478865772 0.21141539 0.85893385 0.039905848
-62 0.015239716 0.02890442 0.531706404 0.91962052 0.96377103 0.279689568
-63 0.363159180 0.98267412 0.382022258 0.09035326 0.53721446 0.278258128
-64 0.533203125 0.09129518 0.864049435 0.21085775 0.74247024 0.520784463
-65 0.812866211 0.92549849 0.326250156 0.03063606 0.37242442 0.681011943
-66 0.821655273 0.93953514 0.730109224 0.56800164 0.36850434 0.135115089
-67 0.495239258 0.18656993 0.703959208 0.91950956 0.37737182 0.331145230
-68 0.026271820 0.28924441 0.370986423 0.46839579 0.26069062 0.496386772
-69 0.961181641 0.07934558 0.370282067 0.01009577 0.91984033 0.250117553
-70 0.867187500 0.62807846 0.297433884 0.42768580 0.67836226 0.055045441
-71 0.634155273 0.45481491 0.366012510 0.46006086 0.62342353 0.553148303
-72 0.529907227 0.22573161 0.255918004 0.81299654 0.48340851 0.388373295
-73 0.969482422 0.06762362 0.233285627 0.28913314 0.40695817 0.379425337
-74 0.322631836 0.16369033 0.696140964 0.23542822 0.44133423 0.353194184
-75 0.980957031 0.88483143 0.904902402 0.40588630 0.43244408 0.104077954
-76 0.381713867 0.33405781 0.008811487 0.85152244 0.97412609 0.427583363
-77 0.352050781 0.81973124 0.882616673 0.97839957 0.91734389 0.705771805
-78 0.236816406 0.13472927 0.039259837 0.18197673 0.83403650 0.871165875
-79 0.216461182 0.39390779 0.689487964 0.52816572 0.18237391 0.328639985
-80 0.579467773 0.16152561 0.799306294 0.01943226 0.19664442 0.494486603
-81 0.213165283 0.49794507 0.903515683 0.82634666 0.95104984 0.512989034
-82 0.369934082 0.48608422 0.740175959 0.22198786 0.88631389 0.958679024
-83 0.023796082 0.34724808 0.996114468 0.41663422 0.13658224 0.809843882
-84 0.390930176 0.94919586 0.265328477 0.42259452 0.18362993 0.018595368
-85 0.171417236 0.26409721 0.171493893 0.43668409 0.29935710 0.788430851
-86 0.980102539 0.42689586 0.197483132 0.61358141 0.66990291 0.453710159
-87 0.656982422 0.36696911 0.047739081 0.27451939 0.18052140 0.054421855
-88 0.488464355 0.91196012 0.845107406 0.83929407 0.90409508 0.544446660
-89 0.314025879 0.50865173 0.984073751 0.74795267 0.57416734 0.370512281
-90 0.805297852 0.37908387 0.390562004 0.36959290 0.51052391 0.633604296
-91 0.471252441 0.43228960 0.225722159 0.80595341 0.16973734 0.474416345
-92 0.539428711 0.33449984 0.007872077 0.28196563 0.04201044 0.666856505
-93 0.825561523 0.27042723 0.774102103 0.16982144 0.04986308 0.830708595
-94 0.005760193 0.06863922 0.413105001 0.80787951 0.81871474 0.565592853
-95 0.623413086 0.09422225 0.729800716 0.35120569 0.16269988 0.935669079
-96 0.963989258 0.96828461 0.043478839 0.90069377 0.50886120 0.842695923
-97 0.421020508 0.16918373 0.196973316 0.52296367 0.20205632 0.007268806
-98 0.313354492 0.58946466 0.881128855 0.73021358 0.38516078 0.459060744
-99 0.963256836 0.91588259 0.873051692 0.97309719 0.75135814 0.770613592
-100 0.823852539 0.12452227 0.845681194 0.08775397 0.15969781 0.854058568
-
->
-> names(w) <- NULL
-> write.xport(list=w,file="a.xpt") #9.a
-Warning message:
-In write.xport(list = w, file = "a.xpt") :
- Replacing missing or invalid dataset names
-> lookup.xport("a.xpt") #9.b
-
-SAS xport file
---------------
-Filename: `a.xpt'
-
-Variables in data set `DATA1':
- dataset name type format flength fdigits iformat iflength ifdigits
- DATA1 RACE character RACE 0 0 0 0
- DATA1 AGE numeric 0 0 0 0
- DATA1 D1 numeric MMDDYY 10 0 0 0
- DATA1 DT1 numeric DATETIME 0 0 0 0
- DATA1 T1 character TIME 0 0 0 0
- label nobs
- 2
- Age at Beginning of Study 2
- 2
- 2
- 2
-
-Variables in data set `DATA2':
- dataset name type format flength fdigits iformat iflength ifdigits label
- DATA2 X3 numeric 0 0 0 0
- DATA2 X4 numeric 0 0 0 0
- DATA2 X5 numeric 0 0 0 0
- DATA2 X6 numeric 0 0 0 0
- DATA2 X7 numeric 0 0 0 0
- DATA2 X8 numeric 0 0 0 0
- nobs
- 100
- 100
- 100
- 100
- 100
- 100
-
-Variables in data set `DATA3':
- dataset name type format flength fdigits iformat iflength ifdigits
- DATA3 FMTNAME character 0 0 0 0
- DATA3 START character 0 0 0 0
- DATA3 END character 0 0 0 0
- DATA3 LABEL character 0 0 0 0
- DATA3 MIN numeric 0 0 0 0
- DATA3 MAX numeric 0 0 0 0
- DATA3 DEFAULT numeric 0 0 0 0
- DATA3 LENGTH numeric 0 0 0 0
- DATA3 FUZZ numeric 0 0 0 0
- DATA3 PREFIX character 0 0 0 0
- DATA3 MULT numeric 0 0 0 0
- DATA3 FILL character 0 0 0 0
- DATA3 NOEDIT numeric 0 0 0 0
- DATA3 TYPE character 0 0 0 0
- DATA3 SEXCL character 0 0 0 0
- DATA3 EEXCL character 0 0 0 0
- DATA3 HLO character 0 0 0 0
- DATA3 DECSEP character 0 0 0 0
- DATA3 DIG3SEP character 0 0 0 0
- DATA3 DATATYPE character 0 0 0 0
- DATA3 LANGUAGE character 0 0 0 0
- label nobs
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
-
-> (tmp <- read.xport("a.xpt")) #9.c
-$data1
- RACE AGE D1 DT1 T1
-1 <NA> 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
-
-$data2
- X3 X4 X5 X6 X7 X8
-1 0.554809570 0.91026592 0.199472918 0.77819594 0.76480773 0.907832049
-2 0.628906250 0.59507513 0.149382079 0.19969965 0.45795571 0.571611564
-3 0.560180664 0.20155370 0.871071571 0.89158189 0.81783537 0.069788893
-4 0.930175781 0.67952251 0.064709651 0.23829160 0.67566234 0.861676832
-5 0.427307129 0.53496075 0.903572354 0.77109401 0.74774458 0.131040108
-6 0.185058594 0.51981020 0.793640781 0.78736015 0.76898101 0.891668539
-7 0.173126221 0.41728735 0.038577245 0.50426505 0.49957831 0.613314660
-8 0.896362305 0.80392504 0.701412492 0.70635040 0.14863697 0.406764784
-9 0.533935547 0.29961348 0.528317338 0.99510797 0.21445599 0.373646303
-10 0.360412598 0.59865904 0.724511519 0.21542188 0.31943661 0.148101144
-11 0.567138672 0.03009592 0.068136962 0.13866363 0.81119381 0.337979215
-12 0.840698242 0.13869596 0.309818228 0....
[truncated message content] |
|
From: <wa...@us...> - 2012-06-28 01:37:26
|
Revision: 1579
http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1579&view=rev
Author: warnes
Date: 2012-06-28 01:37:19 +0000 (Thu, 28 Jun 2012)
Log Message:
-----------
Update saved test output files.
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -20,11 +21,8 @@
>
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -47,3 +45,6 @@
> ## Test that the files are identical
> SASxport:::assert( all(a.1 == a.2) )
>
+> proc.time()
+ user system elapsed
+ 0.303 0.025 0.316
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/Theoph.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -22,11 +23,8 @@
>
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -43,3 +41,6 @@
> SASxport:::assert( all(Theoph[,-1] == Theoph.2[,-1]) )
>
>
+> proc.time()
+ user system elapsed
+ 0.539 0.026 0.555
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/cars.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -64,3 +62,6 @@
> ## Test that the files are identical
> SASxport:::assert( all(a.1 == a.2) )
>
+> proc.time()
+ user system elapsed
+ 0.296 0.025 0.310
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/testDates.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -47,8 +45,7 @@
>
> write.xport( DATETIME=temp, file="datetime.xpt")
Warning message:
-In write.xport(DATETIME = temp, file = "datetime.xpt") :
- Variable names modified to obey SAS rules
+In makeSASNames(colnames(df)) : Truncated 1 long names to 8 characters.
> temp2 <- read.xport(file="datetime.xpt", names.tolower=FALSE)
>
> print(temp2)
@@ -63,3 +60,6 @@
> identical(temp, temp2)
[1] FALSE
>
+> proc.time()
+ user system elapsed
+ 0.364 0.025 0.378
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/testNegative.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -43,9 +41,11 @@
> df3 <- data.frame(x.continuous=seq(-100,100,by=0.5), x.integer=as.integer(seq(-100,100,by=0.5)) )
> write.xport(df3, file='df3.xpt')
Warning message:
-In write.xport(df3, file = "df3.xpt") :
- Variable names modified to obey SAS rules
+In makeSASNames(colnames(df)) : Truncated 2 long names to 8 characters.
> df4 <- read.xport(file='df3.xpt')
>
> SASxport:::assert(all(df3==df4))
>
+> proc.time()
+ user system elapsed
+ 0.423 0.027 0.439
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -87,3 +85,6 @@
6 ZZ
>
>
+> proc.time()
+ user system elapsed
+ 0.494 0.025 0.507
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,6 +1,6 @@
-R version 2.12.0 (2010-10-15)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i386-apple-darwin9.8.0/i386 (32-bit)
@@ -18,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.4 (2010-11-11).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -116,22 +113,19 @@
rd.xpr>
rd.xpr>
> write.xport(w$test,file="a.xpt") #1.a
-Warning message:
-In write.xport(w$test, file = "a.xpt") :
- Data frame names modified to obey SAS rules
> lookup.xport("a.xpt") #1.b
SAS xport file
--------------
Filename: `a.xpt'
-Variables in data set `W.TEST':
+Variables in data set `W$TEST':
dataset name type format flength fdigits iformat iflength ifdigits
- W.TEST RACE character RACE 0 0 0 0
- W.TEST AGE numeric 0 0 0 0
- W.TEST D1 numeric MMDDYY 10 0 0 0
- W.TEST DT1 numeric DATETIME 0 0 0 0
- W.TEST T1 character TIME 0 0 0 0
+ W$TEST RACE character RACE 0 0 0 0
+ W$TEST AGE numeric 0 0 0 0
+ W$TEST D1 numeric MMDDYY 10 0 0 0
+ W$TEST DT1 numeric DATETIME 0 0 0 0
+ W$TEST T1 character TIME 0 0 0 0
label nobs
2
Age at Beginning of Study 2
@@ -345,22 +339,19 @@
>
> write.xport(w$test,w$z,file="a.xpt") #5.a
-Warning message:
-In write.xport(w$test, w$z, file = "a.xpt") :
- Data frame names modified to obey SAS rules
> lookup.xport("a.xpt") #5.b
SAS xport file
--------------
Filename: `a.xpt'
-Variables in data set `W.TEST':
+Variables in data set `W$TEST':
dataset name type format flength fdigits iformat iflength ifdigits
- W.TEST RACE character RACE 0 0 0 0
- W.TEST AGE numeric 0 0 0 0
- W.TEST D1 numeric MMDDYY 10 0 0 0
- W.TEST DT1 numeric DATETIME 0 0 0 0
- W.TEST T1 character TIME 0 0 0 0
+ W$TEST RACE character RACE 0 0 0 0
+ W$TEST AGE numeric 0 0 0 0
+ W$TEST D1 numeric MMDDYY 10 0 0 0
+ W$TEST DT1 numeric DATETIME 0 0 0 0
+ W$TEST T1 character TIME 0 0 0 0
label nobs
2
Age at Beginning of Study 2
@@ -368,14 +359,14 @@
2
2
-Variables in data set `W.Z':
+Variables in data set `W$Z':
dataset name type format flength fdigits iformat iflength ifdigits label
- W.Z X3 numeric 0 0 0 0
- W.Z X4 numeric 0 0 0 0
- W.Z X5 numeric 0 0 0 0
- W.Z X6 numeric 0 0 0 0
- W.Z X7 numeric 0 0 0 0
- W.Z X8 numeric 0 0 0 0
+ W$Z X3 numeric 0 0 0 0
+ W$Z X4 numeric 0 0 0 0
+ W$Z X5 numeric 0 0 0 0
+ W$Z X6 numeric 0 0 0 0
+ W$Z X7 numeric 0 0 0 0
+ W$Z X8 numeric 0 0 0 0
nobs
100
100
@@ -385,12 +376,12 @@
100
> (tmp <- read.xport("a.xpt")) #5.c
-$w.test
+$`w$test`
RACE AGE D1 DT1 T1
1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
-$w.z
+$`w$z`
X3 X4 X5 X6 X7 X8
1 0.554809570 0.91026592 0.199472918 0.77819594 0.76480773 0.907832049
2 0.628906250 0.59507513 0.149382079 0.19969965 0.45795571 0.571611564
@@ -501,13 +492,13 @@
--------------
Filename: `a.xpt'
-Variables in data set `W.TEST':
+Variables in data set `W$TEST':
dataset name type format flength fdigits iformat iflength ifdigits
- W.TEST RACE character RACE 0 0 0 0
- W.TEST AGE numeric 0 0 0 0
- W.TEST D1 numeric MMDDYY 10 0 0 0
- W.TEST DT1 numeric DATETIME 0 0 0 0
- W.TEST T1 character TIME 0 0 0 0
+ W$TEST RACE character RACE 0 0 0 0
+ W$TEST AGE numeric 0 0 0 0
+ W$TEST D1 numeric MMDDYY 10 0 0 0
+ W$TEST DT1 numeric DATETIME 0 0 0 0
+ W$TEST T1 character TIME 0 0 0 0
label nobs
2
Age at Beginning of Study 2
@@ -532,7 +523,7 @@
100
> (tmp <- read.xport("a.xpt")) #6.c
-$w.test
+$`w$test`
RACE AGE D1 DT1 T1
1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
@@ -836,22 +827,19 @@
>
> names(w) <- NULL
> write.xport(w[[1]],w[[2]],file="a.xpt") #8.a
-Warning message:
-In write.xport(w[[1]], w[[2]], file = "a.xpt") :
- Data frame names modified to obey SAS rules
> lookup.xport("a.xpt") #8.b
SAS xport file
--------------
Filename: `a.xpt'
-Variables in data set `W..1..':
+Variables in data set `W[[1]]':
dataset name type format flength fdigits iformat iflength ifdigits
- W..1.. RACE character RACE 0 0 0 0
- W..1.. AGE numeric 0 0 0 0
- W..1.. D1 numeric MMDDYY 10 0 0 0
- W..1.. DT1 numeric DATETIME 0 0 0 0
- W..1.. T1 character TIME 0 0 0 0
+ W[[1]] RACE character RACE 0 0 0 0
+ W[[1]] AGE numeric 0 0 0 0
+ W[[1]] D1 numeric MMDDYY 10 0 0 0
+ W[[1]] DT1 numeric DATETIME 0 0 0 0
+ W[[1]] T1 character TIME 0 0 0 0
label nobs
2
Age at Beginning of Study 2
@@ -859,14 +847,14 @@
2
2
-Variables in data set `W..2..':
+Variables in data set `W[[2]]':
dataset name type format flength fdigits iformat iflength ifdigits label
- W..2.. X3 numeric 0 0 0 0
- W..2.. X4 numeric 0 0 0 0
- W..2.. X5 numeric 0 0 0 0
- W..2.. X6 numeric 0 0 0 0
- W..2.. X7 numeric 0 0 0 0
- W..2.. X8 numeric 0 0 0 0
+ W[[2]] X3 numeric 0 0 0 0
+ W[[2]] X4 numeric 0 0 0 0
+ W[[2]] X5 numeric 0 0 0 0
+ W[[2]] X6 numeric 0 0 0 0
+ W[[2]] X7 numeric 0 0 0 0
+ W[[2]] X8 numeric 0 0 0 0
nobs
100
100
@@ -876,12 +864,12 @@
100
> (tmp <- read.xport("a.xpt")) #8.c
-$w..1..
+$`w[[1]]`
RACE AGE D1 DT1 T1
1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
-$w..2..
+$`w[[2]]`
X3 X4 X5 X6 X7 X8
1 0.554809570 0.91026592 0.199472918 0.77819594 0.76480773 0.907832049
2 0.628906250 0.59507513 0.149382079 0.19969965 0.45795571 0.571611564
@@ -2174,3 +2162,6 @@
100 0.823852539 0.12452227 0.845681194 0.08775397 0.15969781 0.854058568
>
+> proc.time()
+ user system elapsed
+ 2.092 0.073 8.083
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -67,3 +65,6 @@
>
>
>
+> proc.time()
+ user system elapsed
+ 0.269 0.024 0.282
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/test_fields.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -32,3 +30,6 @@
>
> ## Successful completion means all SASxport:::assertions have been met
>
+> proc.time()
+ user system elapsed
+ 0.240 0.023 0.252
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/xport.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -106,3 +104,6 @@
Max. :40453
>
> q()
+> proc.time()
+ user system elapsed
+ 0.286 0.025 0.300
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2012-06-28 01:34:11 UTC (rev 1578)
+++ trunk/SASxport/tests/xxx.Rout.save 2012-06-28 01:37:19 UTC (rev 1579)
@@ -1,7 +1,8 @@
-R version 2.11.1 (2010-05-31)
-Copyright (C) 2010 The R Foundation for Statistical Computing
+R version 2.15.0 (2012-03-30)
+Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,11 +18,8 @@
> library(SASxport)
-Loaded SASxport version 1.2.3 (2008-02-29).
+Loaded SASxport version 1.3.0 (2012-06-21).
- Updates and technical support available from Random Technologies, LLC
- <http://random-technologies-llc.com/products/SASxport>
-
Type `?SASxport' for usage information.
>
@@ -79,3 +77,6 @@
>
>
>
+> proc.time()
+ user system elapsed
+ 0.287 0.027 0.303
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2012-06-29 19:02:21
|
Revision: 1592
http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1592&view=rev
Author: warnes
Date: 2012-06-29 19:02:14 +0000 (Fri, 29 Jun 2012)
Log Message:
-----------
Update SASxport version number
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -21,7 +21,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/Theoph.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -23,7 +23,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/cars.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/testDates.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/testNegative.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/test_fields.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/xport.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2012-06-29 18:51:34 UTC (rev 1591)
+++ trunk/SASxport/tests/xxx.Rout.save 2012-06-29 19:02:14 UTC (rev 1592)
@@ -18,7 +18,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.0 (2012-06-21).
+Loaded SASxport version 1.3.0 (2012-06-29).
Type `?SASxport' for usage information.
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2013-05-11 20:05:59
|
Revision: 1651
http://sourceforge.net/p/r-gregmisc/code/1651
Author: warnes
Date: 2013-05-11 20:05:57 +0000 (Sat, 11 May 2013)
Log Message:
-----------
Carry bug fix forward to handle loading xport data when a dataset ends on exactly 80 byte block boundry.
Added Paths:
-----------
trunk/SASxport/tests/events.csv
trunk/SASxport/tests/exposure.csv
trunk/SASxport/tests/testBlockBoundary.R
Added: trunk/SASxport/tests/events.csv
===================================================================
--- trunk/SASxport/tests/events.csv (rev 0)
+++ trunk/SASxport/tests/events.csv 2013-05-11 20:05:57 UTC (rev 1651)
@@ -0,0 +1,11 @@
+"NID","TIME","DINTV","EVID","AUC","CMAX","TMAX","RT","CMIN","IPRED","CWRES","DV","PRED","RES","WRES"
+1,0,1,1,0,-1,-1,-1,9999,0,0,0,0,0,0
+1,1,1,0,7.8964,14.918,1,1,14.918,14.918,-3.0776,5.24,24.54,-19.3,-3.3211
+1,2,1,2,22.436,15.298,1.2179,1.2179,12.845,12.845,0,0,14.455,0,0
+1,3,1,2,32.934,15.298,1.2179,1.2179,8.2815,8.2815,0,0,9.0077,0,0
+1,4,1,2,39.464,15.298,1.2179,1.2179,5.0233,5.0233,0,0,5.9024,0,0
+1,5,1,2,43.403,15.298,1.2179,1.2179,3.0246,3.0246,0,0,4.0132,0,0
+1,6,1,2,45.78,15.298,1.2179,1.2179,1.8323,1.8323,0,0,2.7974,0,0
+1,7,1,2,47.224,15.298,1.2179,1.2179,1.1164,1.1164,0,0,1.9773,0,0
+1,8,1,2,48.105,15.298,1.2179,1.2179,0.68056,0.68057,0,0,1.4036,0,0
+1,9,1,2,48.641,15.298,1.2179,1.2179,0.41253,0.41253,0,0,0.99249,0,0
Added: trunk/SASxport/tests/exposure.csv
===================================================================
--- trunk/SASxport/tests/exposure.csv (rev 0)
+++ trunk/SASxport/tests/exposure.csv 2013-05-11 20:05:57 UTC (rev 1651)
@@ -0,0 +1,2 @@
+"NID","DINTV","CMAX","TMAX","CMIN","AUC"
+NA,NA,NA,NA,NA,NA
Added: trunk/SASxport/tests/testBlockBoundary.R
===================================================================
--- trunk/SASxport/tests/testBlockBoundary.R (rev 0)
+++ trunk/SASxport/tests/testBlockBoundary.R 2013-05-11 20:05:57 UTC (rev 1651)
@@ -0,0 +1,33 @@
+## This script tests an edge case where a dataset ends exactly on a
+## block boundery. Previously, this could lead to an error in
+## loading the created data file.
+
+library(SASxport)
+events <- read.csv('events.csv')
+exposure <- read.csv('exposure.csv')
+events
+exposure
+
+
+write.xport(events,exposure,file='dat.xpt')
+write.xport(exposure,events,file='tad.xpt')
+
+l1.s <- SASxport::lookup.xport('dat.xpt')
+l2.s <- SASxport::lookup.xport('tad.xpt')
+
+stopifnot( identical( l1.s$EXPOSURE, l2.s$EXPOSURE) )
+stopifnot( identical( l1.s$EVENTS, l2.s$EVENTS ) )
+
+d1.s <- SASxport::read.xport(file='dat.xpt')
+d2.s <- SASxport::read.xport(file='tad.xpt')
+
+stopifnot( identical( d1.s$EXPOSURE, d2.s$EXPOSURE) )
+stopifnot( identical( d1.s$EVENTS, d2.s$EVENTS) )
+
+
+
+
+
+
+
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2013-05-11 23:32:38
|
Revision: 1657
http://sourceforge.net/p/r-gregmisc/code/1657
Author: warnes
Date: 2013-05-11 23:32:35 +0000 (Sat, 11 May 2013)
Log Message:
-----------
Fix spelling error
Modified Paths:
--------------
trunk/SASxport/tests/xxx.R
Added Paths:
-----------
trunk/SASxport/tests/dfAttributes.R
Copied: trunk/SASxport/tests/dfAttributes.R (from rev 1649, trunk/SASxport/tests/xxx.R)
===================================================================
--- trunk/SASxport/tests/dfAttributes.R (rev 0)
+++ trunk/SASxport/tests/dfAttributes.R 2013-05-11 23:32:35 UTC (rev 1657)
@@ -0,0 +1,38 @@
+library(SASxport)
+
+## manually create a data set
+abc.out <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
+
+## add a data set label (not used by R)
+label(abc.out) <- "data set"
+SAStype(abc.out) <- "normal"
+
+## add a format specifier (not used by R)
+SASformat(abc.out$x) <- 'date7.'
+
+## add a variable label (not used by R)
+label(abc.out$y) <- 'character variable'
+
+# create a SAS XPORT file from our local data frame
+write.xport(abc.out,
+ file="xxx2.xpt",
+ cDate=strptime("28JUL07:21:08:06 ", format="%d%b%y:%H:%M:%S"),
+ osType="SunOS",
+ sasVer="9.1",
+ autogen.formats=FALSE
+ )
+
+# read the SAS data back in
+abc.in <- read.xport("xxx2.xpt", names.tolower=FALSE)
+
+## Test that the files are otherwise identical
+label(abc.out, "missing!")
+label(abc.in , "missing!")
+
+SAStype(abc.out, "missing!")
+SAStype(abc.in , "missing!")
+
+stopifnot( label(abc.out)==label(abc.in, "missing!") )
+stopifnot( SAStype(abc.out)==SAStype(abc.in, "missing!") )
+
+
Modified: trunk/SASxport/tests/xxx.R
===================================================================
--- trunk/SASxport/tests/xxx.R 2013-05-11 20:31:15 UTC (rev 1656)
+++ trunk/SASxport/tests/xxx.R 2013-05-11 23:32:35 UTC (rev 1657)
@@ -44,7 +44,7 @@
## R doesn't have multiple NA types, while SAS does. The original
## file contains a SAS '.A' missing value, while what we've created
## contains an ordinary '.' missing value, so mash this one byte to
-## avoid a comparison error for this know limitation.
+## avoid a comparison error for this known limitation.
a.1[1089] <- as.raw("0x2e")
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2013-05-31 03:09:27
|
Revision: 1663
http://sourceforge.net/p/r-gregmisc/code/1663
Author: warnes
Date: 2013-05-31 03:09:24 +0000 (Fri, 31 May 2013)
Log Message:
-----------
Update for SASxport 1.3.3
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -20,7 +20,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -22,7 +22,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/cars.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/testDates.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/xport.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2013-05-31 03:04:30 UTC (rev 1662)
+++ trunk/SASxport/tests/xxx.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.2 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-11).
Type `?SASxport' for usage information.
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2013-05-31 03:14:58
|
Revision: 1664
http://sourceforge.net/p/r-gregmisc/code/1664
Author: warnes
Date: 2013-05-31 03:14:56 +0000 (Fri, 31 May 2013)
Log Message:
-----------
Update build date.
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -20,7 +20,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -22,7 +22,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/cars.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/testDates.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/xport.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2013-05-31 03:09:24 UTC (rev 1663)
+++ trunk/SASxport/tests/xxx.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-11).
+Loaded SASxport version 1.3.3 (2013-05-30).
Type `?SASxport' for usage information.
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2013-05-31 03:53:52
|
Revision: 1665
http://sourceforge.net/p/r-gregmisc/code/1665
Author: warnes
Date: 2013-05-31 03:53:49 +0000 (Fri, 31 May 2013)
Log Message:
-----------
Explicitly specify timezone in tests/*.R to avoid extraneous warnings
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.R
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.R
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.R
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/dfAttributes.R
trunk/SASxport/tests/testBlockBoundary.R
trunk/SASxport/tests/testDates.R
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.R
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testFactorAllNA.R
trunk/SASxport/tests/testManyNames.R
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.R
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.R
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.R
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.R
trunk/SASxport/tests/test_as_is.Rout.save
trunk/SASxport/tests/test_fields.R
trunk/SASxport/tests/test_fields.Rout.save
trunk/SASxport/tests/xport.R
trunk/SASxport/tests/xport.Rout.save
trunk/SASxport/tests/xxx.R
trunk/SASxport/tests/xxx.Rout.save
Modified: trunk/SASxport/tests/Alfalfa_Test.R
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/Alfalfa_Test.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -2,6 +2,7 @@
## existing SAS xport file "Alfalfa.xpt"
library(SASxport)
+Sys.setenv("TZ"="GMT")
# existing data file
SPEC <- read.xport("Alfalfa.xpt")
Modified: trunk/SASxport/tests/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -24,6 +24,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> # existing data file
> SPEC <- read.xport("Alfalfa.xpt")
@@ -46,4 +47,4 @@
>
> proc.time()
user system elapsed
- 0.940 0.052 0.985
+ 0.936 0.088 1.015
Modified: trunk/SASxport/tests/Theoph.R
===================================================================
--- trunk/SASxport/tests/Theoph.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/Theoph.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -4,6 +4,7 @@
####
library(SASxport)
+Sys.setenv("TZ"="GMT")
write.xport(Theoph,file="theoph.xpt")
Theoph.2 <- read.xport("theoph.xpt")
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -26,6 +26,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> write.xport(Theoph,file="theoph.xpt")
> Theoph.2 <- read.xport("theoph.xpt")
@@ -42,4 +43,4 @@
>
> proc.time()
user system elapsed
- 1.632 0.084 1.705
+ 1.668 0.080 1.773
Modified: trunk/SASxport/tests/cars.R
===================================================================
--- trunk/SASxport/tests/cars.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/cars.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
cars <- read.table(file="cars.sas", skip=3, nrows=26,
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/cars.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
>
> cars <- read.table(file="cars.sas", skip=3, nrows=26,
@@ -63,4 +64,4 @@
>
> proc.time()
user system elapsed
- 0.904 0.096 0.998
+ 0.976 0.084 1.064
Modified: trunk/SASxport/tests/dfAttributes.R
===================================================================
--- trunk/SASxport/tests/dfAttributes.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/dfAttributes.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
## manually create a data set
abc.out <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
Modified: trunk/SASxport/tests/testBlockBoundary.R
===================================================================
--- trunk/SASxport/tests/testBlockBoundary.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testBlockBoundary.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -3,6 +3,8 @@
## loading the created data file.
library(SASxport)
+Sys.setenv("TZ"="GMT")
+
events <- read.csv('events.csv')
exposure <- read.csv('exposure.csv')
events
Modified: trunk/SASxport/tests/testDates.R
===================================================================
--- trunk/SASxport/tests/testDates.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testDates.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
## Create a small data set containing dates, times, and date-times
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testDates.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> ## Create a small data set containing dates, times, and date-times
>
@@ -61,4 +62,4 @@
>
> proc.time()
user system elapsed
- 1.112 0.084 1.183
+ 1.128 0.084 1.201
Modified: trunk/SASxport/tests/testDuplicateNames.R
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testDuplicateNames.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,6 +1,6 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
-
##tests
example(read.xport)
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,8 +21,8 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
->
> ##tests
> example(read.xport)
@@ -119,23 +119,23 @@
> read.xport("dn.a.xpt")
$aa
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$aa.1
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$aa.2
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$aa.3
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
>
> # Duplicate column names
@@ -147,12 +147,12 @@
In makeSASNames(colnames(df)) : Made 5 duplicate names unique.
> read.xport("dn.b.xpt")
RACE AGE D1 DT1 T1 RACE.1 AGE.1 D1.1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45 blue 30 2002-03-03
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13 31 2002-06-03
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45 blue 30 2002-03-03
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13 31 2002-06-03
DT1.1 T1.1
-1 (03 Mar 2002 04:31:02) 11:13:45
-2 (03 Jun 2002 04:42:07) 11:14:13
+1 (03 Mar 2002 09:31:02) 11:13:45
+2 (03 Jun 2002 09:42:07) 11:14:13
>
> proc.time()
user system elapsed
- 1.292 0.124 2.566
+ 1.368 0.100 2.671
Modified: trunk/SASxport/tests/testFactorAllNA.R
===================================================================
--- trunk/SASxport/tests/testFactorAllNA.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testFactorAllNA.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
x <- data.frame(A=1:10,
B=letters[1:10],
Modified: trunk/SASxport/tests/testManyNames.R
===================================================================
--- trunk/SASxport/tests/testManyNames.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testManyNames.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
data(iris)
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> data(iris)
>
@@ -94,4 +95,4 @@
>
> proc.time()
user system elapsed
- 19.392 0.172 19.717
+ 19.312 0.284 19.745
Modified: trunk/SASxport/tests/testNegative.R
===================================================================
--- trunk/SASxport/tests/testNegative.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testNegative.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
df1 <- data.frame( f=c(1.0, -1.0), d=as.integer(c(-1,1) ) )
write.xport(df1, file='df1.xpt')
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> df1 <- data.frame( f=c(1.0, -1.0), d=as.integer(c(-1,1) ) )
> write.xport(df1, file='df1.xpt')
@@ -47,4 +48,4 @@
>
> proc.time()
user system elapsed
- 1.260 0.072 1.321
+ 1.272 0.064 1.324
Modified: trunk/SASxport/tests/testNumeric.R
===================================================================
--- trunk/SASxport/tests/testNumeric.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testNumeric.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
##
## Construct a data frame with all common R data types.
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> ##
> ## Construct a data frame with all common R data types.
@@ -86,4 +87,4 @@
>
> proc.time()
user system elapsed
- 1.584 0.096 1.673
+ 1.572 0.084 1.651
Modified: trunk/SASxport/tests/testUnnamedComponents.R
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testUnnamedComponents.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,6 +1,6 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
-
##tests
example(read.xport)
write.xport(w$test,file="a.xpt") #1.a
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,8 +21,8 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
->
> ##tests
> example(read.xport)
@@ -134,8 +134,8 @@
> (tmp <- read.xport("a.xpt")) #1.c
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
>
> b <- w$test
> write.xport(b,file="a.xpt") #2.a
@@ -161,8 +161,8 @@
> (tmp <- read.xport("a.xpt")) #2.c
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
>
> write.xport(test=w$test,file="a.xpt") #3.a
> lookup.xport("a.xpt") #3.b
@@ -187,8 +187,8 @@
> (tmp <- read.xport("a.xpt")) #3.c
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
>
> write.xport(test=w$test,z=w$z,file="a.xpt") #4.a
> lookup.xport("a.xpt") #4.b
@@ -230,8 +230,8 @@
> (tmp <- read.xport("a.xpt")) #4.c
$test
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$z
X3 X4 X5 X6 X7 X8
@@ -377,8 +377,8 @@
> (tmp <- read.xport("a.xpt")) #5.c
$`w$test`
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$`w$z`
X3 X4 X5 X6 X7 X8
@@ -524,8 +524,8 @@
> (tmp <- read.xport("a.xpt")) #6.c
$`w$test`
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$z
X3 X4 X5 X6 X7 X8
@@ -717,8 +717,8 @@
> (tmp <- read.xport("a.xpt")) #7.c
$test
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$z
X3 X4 X5 X6 X7 X8
@@ -865,8 +865,8 @@
> (tmp <- read.xport("a.xpt")) #8.c
$`w[[1]]`
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$`w[[2]]`
X3 X4 X5 X6 X7 X8
@@ -1062,8 +1062,8 @@
> (tmp <- read.xport("a.xpt")) #9.c
$data1
RACE AGE D1 DT1 T1
-1 <NA> 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 <NA> 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -1177,8 +1177,8 @@
> (tmp <- read.xport("a.xpt")) #10.c
$data1
RACE AGE D1 DT1 T1
-1 <NA> 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 <NA> 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -1291,8 +1291,8 @@
> (tmp <- read.xport("a.xpt")) #10.c
$data1
RACE AGE D1 DT1 T1
-1 <NA> 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 <NA> 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -1529,8 +1529,8 @@
> (tmp <- read.xport("a.xpt")) #11.c
$data1
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -1769,8 +1769,8 @@
> (tmp <- read.xport("a.xpt")) #12.c
$data1
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -2054,8 +2054,8 @@
> (tmp <- read.xport("a.xpt")) #13.c
$test
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$z
VAR1 VAR2 VAR3 VAR4 VAR5 VAR6
@@ -2163,4 +2163,4 @@
>
> proc.time()
user system elapsed
- 6.024 1.684 14.087
+ 6.016 1.632 12.803
Modified: trunk/SASxport/tests/test_as_is.R
===================================================================
--- trunk/SASxport/tests/test_as_is.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/test_as_is.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
lookup.xport('puromycin.xpt')
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> lookup.xport('puromycin.xpt')
@@ -70,4 +71,4 @@
>
> proc.time()
user system elapsed
- 0.860 0.112 0.996
+ 0.876 0.092 0.973
Modified: trunk/SASxport/tests/test_fields.R
===================================================================
--- trunk/SASxport/tests/test_fields.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/test_fields.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
## Call C-level test routines
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> ## Call C-level test routines
>
@@ -31,4 +32,4 @@
>
> proc.time()
user system elapsed
- 0.756 0.056 0.820
+ 0.756 0.060 0.835
Modified: trunk/SASxport/tests/xport.R
===================================================================
--- trunk/SASxport/tests/xport.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/xport.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
lookup.xport("Alfalfa.xpt")
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/xport.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> lookup.xport("Alfalfa.xpt")
@@ -105,4 +106,4 @@
> q()
> proc.time()
user system elapsed
- 0.908 0.108 1.018
+ 0.888 0.124 1.018
Modified: trunk/SASxport/tests/xxx.R
===================================================================
--- trunk/SASxport/tests/xxx.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/xxx.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
## manually create a data set
abc <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/xxx.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> ## manually create a data set
> abc <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
@@ -78,4 +79,4 @@
>
> proc.time()
user system elapsed
- 0.908 0.092 0.991
+ 0.900 0.104 1.013
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2013-05-31 23:18:05
|
Revision: 1667
http://sourceforge.net/p/r-gregmisc/code/1667
Author: warnes
Date: 2013-05-31 23:18:03 +0000 (Fri, 31 May 2013)
Log Message:
-----------
Update test Rout.save files to match new version
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -20,7 +20,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -47,4 +47,4 @@
>
> proc.time()
user system elapsed
- 0.936 0.088 1.015
+ 0.908 0.084 0.981
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -22,7 +22,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -43,4 +43,4 @@
>
> proc.time()
user system elapsed
- 1.668 0.080 1.773
+ 1.632 0.092 1.811
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/cars.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -64,4 +64,4 @@
>
> proc.time()
user system elapsed
- 0.976 0.084 1.064
+ 0.920 0.128 1.036
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/testDates.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -62,4 +62,4 @@
>
> proc.time()
user system elapsed
- 1.128 0.084 1.201
+ 1.092 0.108 1.187
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -155,4 +155,4 @@
>
> proc.time()
user system elapsed
- 1.368 0.100 2.671
+ 1.348 0.104 2.636
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -95,4 +95,4 @@
>
> proc.time()
user system elapsed
- 19.312 0.284 19.745
+ 19.180 0.228 20.097
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -48,4 +48,4 @@
>
> proc.time()
user system elapsed
- 1.272 0.064 1.324
+ 1.292 0.116 1.475
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -87,4 +87,4 @@
>
> proc.time()
user system elapsed
- 1.572 0.084 1.651
+ 1.604 0.180 1.846
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -2163,4 +2163,4 @@
>
> proc.time()
user system elapsed
- 6.016 1.632 12.803
+ 5.872 1.744 12.296
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -71,4 +71,4 @@
>
> proc.time()
user system elapsed
- 0.876 0.092 0.973
+ 0.828 0.124 0.942
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -32,4 +32,4 @@
>
> proc.time()
user system elapsed
- 0.756 0.060 0.835
+ 0.724 0.092 0.808
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/xport.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -106,4 +106,4 @@
> q()
> proc.time()
user system elapsed
- 0.888 0.124 1.018
+ 0.892 0.128 1.026
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2013-05-31 17:26:09 UTC (rev 1666)
+++ trunk/SASxport/tests/xxx.Rout.save 2013-05-31 23:18:03 UTC (rev 1667)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.3 (2013-05-30).
+Loaded SASxport version 1.3.4 (2013-05-31).
Type `?SASxport' for usage information.
@@ -79,4 +79,4 @@
>
> proc.time()
user system elapsed
- 0.900 0.104 1.013
+ 0.872 0.124 0.982
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2013-06-14 20:58:08
|
Revision: 1672
http://sourceforge.net/p/r-gregmisc/code/1672
Author: warnes
Date: 2013-06-14 20:58:06 +0000 (Fri, 14 Jun 2013)
Log Message:
-----------
Update .save files for 1.3.5
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testEmpty.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -20,7 +20,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -47,4 +47,4 @@
>
> proc.time()
user system elapsed
- 0.952 0.076 1.020
+ 0.956 0.092 1.147
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/Theoph.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -22,7 +22,7 @@
>
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -43,4 +43,4 @@
>
> proc.time()
user system elapsed
- 1.660 0.088 1.787
+ 1.740 0.136 2.578
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/cars.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -64,4 +64,4 @@
>
> proc.time()
user system elapsed
- 0.972 0.084 1.061
+ 1.016 0.092 1.399
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/testDates.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -62,4 +62,4 @@
>
> proc.time()
user system elapsed
- 1.132 0.096 1.244
+ 1.176 0.080 1.532
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -155,4 +155,4 @@
>
> proc.time()
user system elapsed
- 1.300 0.144 2.626
+ 1.392 0.152 3.531
Modified: trunk/SASxport/tests/testEmpty.Rout.save
===================================================================
--- trunk/SASxport/tests/testEmpty.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/testEmpty.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -70,4 +70,4 @@
>
> proc.time()
user system elapsed
- 1.296 0.088 1.466
+ 1.344 0.120 1.715
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -95,4 +95,4 @@
>
> proc.time()
user system elapsed
- 19.108 0.212 19.530
+ 19.368 0.216 20.394
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/testNegative.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -48,4 +48,4 @@
>
> proc.time()
user system elapsed
- 1.224 0.112 1.334
+ 1.312 0.044 1.360
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -87,4 +87,4 @@
>
> proc.time()
user system elapsed
- 1.548 0.080 1.621
+ 1.572 0.104 1.713
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -2163,4 +2163,4 @@
>
> proc.time()
user system elapsed
- 5.896 1.676 12.756
+ 6.192 1.760 17.901
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -71,4 +71,4 @@
>
> proc.time()
user system elapsed
- 0.868 0.092 0.946
+ 0.884 0.076 0.963
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/test_fields.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -32,4 +32,4 @@
>
> proc.time()
user system elapsed
- 0.716 0.092 0.833
+ 0.756 0.048 0.824
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/xport.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -106,4 +106,4 @@
> q()
> proc.time()
user system elapsed
- 0.888 0.132 1.031
+ 0.904 0.100 1.013
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2013-06-14 16:26:02 UTC (rev 1671)
+++ trunk/SASxport/tests/xxx.Rout.save 2013-06-14 20:58:06 UTC (rev 1672)
@@ -17,7 +17,7 @@
> library(SASxport)
-Loaded SASxport version 1.3.4 (2013-05-31).
+Loaded SASxport version 1.3.5 (2013-06-14).
Type `?SASxport' for usage information.
@@ -79,4 +79,4 @@
>
> proc.time()
user system elapsed
- 0.896 0.096 0.983
+ 0.912 0.112 1.021
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2013-10-09 18:25:10
|
Revision: 1721
http://sourceforge.net/p/r-gregmisc/code/1721
Author: warnes
Date: 2013-10-09 18:25:07 +0000 (Wed, 09 Oct 2013)
Log Message:
-----------
Update examples
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testEmpty.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -19,8 +19,9 @@
> ## existing SAS xport file "Alfalfa.xpt"
>
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -47,4 +48,4 @@
>
> proc.time()
user system elapsed
- 0.956 0.092 1.147
+ 0.972 0.072 1.031
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/Theoph.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -21,8 +21,9 @@
> ####
>
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -43,4 +44,4 @@
>
> proc.time()
user system elapsed
- 1.740 0.136 2.578
+ 1.656 0.112 1.878
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/cars.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -64,4 +65,4 @@
>
> proc.time()
user system elapsed
- 1.016 0.092 1.399
+ 0.972 0.084 1.074
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/testDates.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -62,4 +63,4 @@
>
> proc.time()
user system elapsed
- 1.176 0.080 1.532
+ 1.168 0.116 1.716
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -26,79 +27,143 @@
> ##tests
> example(read.xport)
-rd.xpr> # -------
-rd.xpr> # SAS code to generate test dataset:
-rd.xpr> # -------
-rd.xpr> # libname y SASV5XPT "test2.xpt";
-rd.xpr> #
-rd.xpr> # PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
-rd.xpr> # PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
-rd.xpr> # data test;
-rd.xpr> # LENGTH race 3 age 4;
-rd.xpr> # age=30; label age="Age at Beginning of Study";
-rd.xpr> # race=2;
-rd.xpr> # d1='3mar2002'd ;
-rd.xpr> # dt1='3mar2002 9:31:02'dt;
-rd.xpr> # t1='11:13:45't;
-rd.xpr> # output;
-rd.xpr> #
-rd.xpr> # age=31;
-rd.xpr> # race=4;
-rd.xpr> # d1='3jun2002'd ;
-rd.xpr> # dt1='3jun2002 9:42:07'dt;
-rd.xpr> # t1='11:14:13't;
-rd.xpr> # output;
-rd.xpr> # format d1 mmddyy10. dt1 datetime. t1 time. race race.;
-rd.xpr> # run;
-rd.xpr> # data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
-rd.xpr> # DO i=1 TO 100;
-rd.xpr> # x3=ranuni(3);
-rd.xpr> # x4=ranuni(5);
-rd.xpr> # x5=ranuni(7);
-rd.xpr> # x6=ranuni(9);
-rd.xpr> # x7=ranuni(11);
-rd.xpr> # x8=ranuni(13);
-rd.xpr> # output;
-rd.xpr> # END;
-rd.xpr> # DROP i;
-rd.xpr> # RUN;
-rd.xpr> # PROC MEANS; RUN;
-rd.xpr> # PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
-rd.xpr> # ------
+rd.xpr> ## -------
+rd.xpr> ## SAS code to generate test dataset:
+rd.xpr> ## -------
+rd.xpr> ## libname y SASV5XPT "test2.xpt";
+rd.xpr> ##
+rd.xpr> ## PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
+rd.xpr> ## PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
+rd.xpr> ## data test;
+rd.xpr> ## LENGTH race 3 age 4;
+rd.xpr> ## age=30; label age="Age at Beginning of Study";
+rd.xpr> ## race=2;
+rd.xpr> ## d1='3mar2002'd ;
+rd.xpr> ## dt1='3mar2002 9:31:02'dt;
+rd.xpr> ## t1='11:13:45't;
+rd.xpr> ## output;
+rd.xpr> ##
+rd.xpr> ## age=31;
+rd.xpr> ## race=4;
+rd.xpr> ## d1='3jun2002'd ;
+rd.xpr> ## dt1='3jun2002 9:42:07'dt;
+rd.xpr> ## t1='11:14:13't;
+rd.xpr> ## output;
+rd.xpr> ## format d1 mmddyy10. dt1 datetime. t1 time. race race.;
+rd.xpr> ## run;
+rd.xpr> ## data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
+rd.xpr> ## DO i=1 TO 100;
+rd.xpr> ## x3=ranuni(3);
+rd.xpr> ## x4=ranuni(5);
+rd.xpr> ## x5=ranuni(7);
+rd.xpr> ## x6=ranuni(9);
+rd.xpr> ## x7=ranuni(11);
+rd.xpr> ## x8=ranuni(13);
+rd.xpr> ## output;
+rd.xpr> ## END;
+rd.xpr> ## DROP i;
+rd.xpr> ## RUN;
+rd.xpr> ## PROC MEANS; RUN;
+rd.xpr> ## PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
+rd.xpr> ## ------
rd.xpr>
-rd.xpr> # Read this dataset from a local file:
+rd.xpr> ## Read this dataset from a local file:
+rd.xpr> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+
+rd.xpr> w <- read.xport(testFile)
+
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+
rd.xpr> ## Not run:
-rd.xpr> ##D w <- read.xport('test2.xpt')
+rd.xpr> ##D ## Or read a copy of test2.xpt available on the web:
+rd.xpr> ##D url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
+rd.xpr> ##D w <- read.xport(url)
rd.xpr> ## End(Not run)
rd.xpr>
-rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
+rd.xpr> ## We can also get the dataset wrapped in a list
+rd.xpr> w <- read.xport(testFile, as.list=TRUE)
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> class(w)
+[1] "list"
-rd.xpr> url <- paste(host,path,sep="")
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-rd.xpr> w <- read.xport(url)
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
-rd.xpr> # We can also get the dataset wrapped in a list
-rd.xpr> w <- read.xport(url, as.list=TRUE)
-rd.xpr> # And we can ask for the format information to be included as well.
-rd.xpr> w <- read.xport(url, as.list=TRUE, include.formats=TRUE)
+rd.xpr> ## And we can ask for the format information to be included as well.
+rd.xpr> w <- read.xport(testFile, as.list=TRUE, include.formats=TRUE)
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+$FORMATS
+ FMTNAME START END LABEL MIN MAX DEFAULT LENGTH FUZZ
+1 RACE 1 1 green 1 40 6 6 1e-12
+2 RACE 2 2 blue 1 40 6 6 1e-12
+3 RACE 3 3 purple 1 40 6 6 1e-12
+ PREFIX MULT FILL NOEDIT TYPE SEXCL EEXCL HLO DECSEP DIG3SEP DATATYPE LANGUAGE
+1 0 0 N N N
+2 0 0 N N N
+3 0 0 N N N
+
+
rd.xpr> ## Don't show:
-rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+rd.xpr> stopifnot( is.data.frame(w)==FALSE && is.list(w)==TRUE )
rd.xpr> ## End Don't show
rd.xpr>
rd.xpr>
rd.xpr> ## Not run:
-rd.xpr> ##D ## The Hmisc library provides many useful functions for interacting with
-rd.xpr> ##D ## data imported from SAS via read.xport()
+rd.xpr> ##D #### The Hmisc library provides many useful functions for interacting with
+rd.xpr> ##D #### data imported from SAS via read.xport()
rd.xpr> ##D library(Hmisc)
rd.xpr> ##D
rd.xpr> ##D describe(w$test) # see labels, format names for dataset test
-rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detaiil for each variable
+rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detail for each variable
rd.xpr> ##D
rd.xpr> ##D contents(w$test) # another way to see variable attributes
rd.xpr> ##D lapply(w, contents)# show contents of individual items in more detail
@@ -155,4 +220,4 @@
>
> proc.time()
user system elapsed
- 1.392 0.152 3.531
+ 1.480 0.176 1.791
Modified: trunk/SASxport/tests/testEmpty.Rout.save
===================================================================
--- trunk/SASxport/tests/testEmpty.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/testEmpty.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -70,4 +71,4 @@
>
> proc.time()
user system elapsed
- 1.344 0.120 1.715
+ 1.332 0.136 1.949
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -95,4 +96,4 @@
>
> proc.time()
user system elapsed
- 19.368 0.216 20.394
+ 19.200 0.208 19.802
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/testNegative.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -48,4 +49,4 @@
>
> proc.time()
user system elapsed
- 1.312 0.044 1.360
+ 1.300 0.128 1.982
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -87,4 +88,4 @@
>
> proc.time()
user system elapsed
- 1.572 0.104 1.713
+ 1.636 0.104 1.856
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -26,79 +27,143 @@
> ##tests
> example(read.xport)
-rd.xpr> # -------
-rd.xpr> # SAS code to generate test dataset:
-rd.xpr> # -------
-rd.xpr> # libname y SASV5XPT "test2.xpt";
-rd.xpr> #
-rd.xpr> # PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
-rd.xpr> # PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
-rd.xpr> # data test;
-rd.xpr> # LENGTH race 3 age 4;
-rd.xpr> # age=30; label age="Age at Beginning of Study";
-rd.xpr> # race=2;
-rd.xpr> # d1='3mar2002'd ;
-rd.xpr> # dt1='3mar2002 9:31:02'dt;
-rd.xpr> # t1='11:13:45't;
-rd.xpr> # output;
-rd.xpr> #
-rd.xpr> # age=31;
-rd.xpr> # race=4;
-rd.xpr> # d1='3jun2002'd ;
-rd.xpr> # dt1='3jun2002 9:42:07'dt;
-rd.xpr> # t1='11:14:13't;
-rd.xpr> # output;
-rd.xpr> # format d1 mmddyy10. dt1 datetime. t1 time. race race.;
-rd.xpr> # run;
-rd.xpr> # data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
-rd.xpr> # DO i=1 TO 100;
-rd.xpr> # x3=ranuni(3);
-rd.xpr> # x4=ranuni(5);
-rd.xpr> # x5=ranuni(7);
-rd.xpr> # x6=ranuni(9);
-rd.xpr> # x7=ranuni(11);
-rd.xpr> # x8=ranuni(13);
-rd.xpr> # output;
-rd.xpr> # END;
-rd.xpr> # DROP i;
-rd.xpr> # RUN;
-rd.xpr> # PROC MEANS; RUN;
-rd.xpr> # PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
-rd.xpr> # ------
+rd.xpr> ## -------
+rd.xpr> ## SAS code to generate test dataset:
+rd.xpr> ## -------
+rd.xpr> ## libname y SASV5XPT "test2.xpt";
+rd.xpr> ##
+rd.xpr> ## PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
+rd.xpr> ## PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
+rd.xpr> ## data test;
+rd.xpr> ## LENGTH race 3 age 4;
+rd.xpr> ## age=30; label age="Age at Beginning of Study";
+rd.xpr> ## race=2;
+rd.xpr> ## d1='3mar2002'd ;
+rd.xpr> ## dt1='3mar2002 9:31:02'dt;
+rd.xpr> ## t1='11:13:45't;
+rd.xpr> ## output;
+rd.xpr> ##
+rd.xpr> ## age=31;
+rd.xpr> ## race=4;
+rd.xpr> ## d1='3jun2002'd ;
+rd.xpr> ## dt1='3jun2002 9:42:07'dt;
+rd.xpr> ## t1='11:14:13't;
+rd.xpr> ## output;
+rd.xpr> ## format d1 mmddyy10. dt1 datetime. t1 time. race race.;
+rd.xpr> ## run;
+rd.xpr> ## data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
+rd.xpr> ## DO i=1 TO 100;
+rd.xpr> ## x3=ranuni(3);
+rd.xpr> ## x4=ranuni(5);
+rd.xpr> ## x5=ranuni(7);
+rd.xpr> ## x6=ranuni(9);
+rd.xpr> ## x7=ranuni(11);
+rd.xpr> ## x8=ranuni(13);
+rd.xpr> ## output;
+rd.xpr> ## END;
+rd.xpr> ## DROP i;
+rd.xpr> ## RUN;
+rd.xpr> ## PROC MEANS; RUN;
+rd.xpr> ## PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
+rd.xpr> ## ------
rd.xpr>
-rd.xpr> # Read this dataset from a local file:
+rd.xpr> ## Read this dataset from a local file:
+rd.xpr> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+
+rd.xpr> w <- read.xport(testFile)
+
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+
rd.xpr> ## Not run:
-rd.xpr> ##D w <- read.xport('test2.xpt')
+rd.xpr> ##D ## Or read a copy of test2.xpt available on the web:
+rd.xpr> ##D url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
+rd.xpr> ##D w <- read.xport(url)
rd.xpr> ## End(Not run)
rd.xpr>
-rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
+rd.xpr> ## We can also get the dataset wrapped in a list
+rd.xpr> w <- read.xport(testFile, as.list=TRUE)
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> class(w)
+[1] "list"
-rd.xpr> url <- paste(host,path,sep="")
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-rd.xpr> w <- read.xport(url)
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
-rd.xpr> # We can also get the dataset wrapped in a list
-rd.xpr> w <- read.xport(url, as.list=TRUE)
-rd.xpr> # And we can ask for the format information to be included as well.
-rd.xpr> w <- read.xport(url, as.list=TRUE, include.formats=TRUE)
+rd.xpr> ## And we can ask for the format information to be included as well.
+rd.xpr> w <- read.xport(testFile, as.list=TRUE, include.formats=TRUE)
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+$FORMATS
+ FMTNAME START END LABEL MIN MAX DEFAULT LENGTH FUZZ
+1 RACE 1 1 green 1 40 6 6 1e-12
+2 RACE 2 2 blue 1 40 6 6 1e-12
+3 RACE 3 3 purple 1 40 6 6 1e-12
+ PREFIX MULT FILL NOEDIT TYPE SEXCL EEXCL HLO DECSEP DIG3SEP DATATYPE LANGUAGE
+1 0 0 N N N
+2 0 0 N N N
+3 0 0 N N N
+
+
rd.xpr> ## Don't show:
-rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+rd.xpr> stopifnot( is.data.frame(w)==FALSE && is.list(w)==TRUE )
rd.xpr> ## End Don't show
rd.xpr>
rd.xpr>
rd.xpr> ## Not run:
-rd.xpr> ##D ## The Hmisc library provides many useful functions for interacting with
-rd.xpr> ##D ## data imported from SAS via read.xport()
+rd.xpr> ##D #### The Hmisc library provides many useful functions for interacting with
+rd.xpr> ##D #### data imported from SAS via read.xport()
rd.xpr> ##D library(Hmisc)
rd.xpr> ##D
rd.xpr> ##D describe(w$test) # see labels, format names for dataset test
-rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detaiil for each variable
+rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detail for each variable
rd.xpr> ##D
rd.xpr> ##D contents(w$test) # another way to see variable attributes
rd.xpr> ##D lapply(w, contents)# show contents of individual items in more detail
@@ -1401,79 +1466,143 @@
> # Check with different list construction function *name*
> example(read.xport)
-rd.xpr> # -------
-rd.xpr> # SAS code to generate test dataset:
-rd.xpr> # -------
-rd.xpr> # libname y SASV5XPT "test2.xpt";
-rd.xpr> #
-rd.xpr> # PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
-rd.xpr> # PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
-rd.xpr> # data test;
-rd.xpr> # LENGTH race 3 age 4;
-rd.xpr> # age=30; label age="Age at Beginning of Study";
-rd.xpr> # race=2;
-rd.xpr> # d1='3mar2002'd ;
-rd.xpr> # dt1='3mar2002 9:31:02'dt;
-rd.xpr> # t1='11:13:45't;
-rd.xpr> # output;
-rd.xpr> #
-rd.xpr> # age=31;
-rd.xpr> # race=4;
-rd.xpr> # d1='3jun2002'd ;
-rd.xpr> # dt1='3jun2002 9:42:07'dt;
-rd.xpr> # t1='11:14:13't;
-rd.xpr> # output;
-rd.xpr> # format d1 mmddyy10. dt1 datetime. t1 time. race race.;
-rd.xpr> # run;
-rd.xpr> # data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
-rd.xpr> # DO i=1 TO 100;
-rd.xpr> # x3=ranuni(3);
-rd.xpr> # x4=ranuni(5);
-rd.xpr> # x5=ranuni(7);
-rd.xpr> # x6=ranuni(9);
-rd.xpr> # x7=ranuni(11);
-rd.xpr> # x8=ranuni(13);
-rd.xpr> # output;
-rd.xpr> # END;
-rd.xpr> # DROP i;
-rd.xpr> # RUN;
-rd.xpr> # PROC MEANS; RUN;
-rd.xpr> # PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
-rd.xpr> # ------
+rd.xpr> ## -------
+rd.xpr> ## SAS code to generate test dataset:
+rd.xpr> ## -------
+rd.xpr> ## libname y SASV5XPT "test2.xpt";
+rd.xpr> ##
+rd.xpr> ## PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
+rd.xpr> ## PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
+rd.xpr> ## data test;
+rd.xpr> ## LENGTH race 3 age 4;
+rd.xpr> ## age=30; label age="Age at Beginning of Study";
+rd.xpr> ## race=2;
+rd.xpr> ## d1='3mar2002'd ;
+rd.xpr> ## dt1='3mar2002 9:31:02'dt;
+rd.xpr> ## t1='11:13:45't;
+rd.xpr> ## output;
+rd.xpr> ##
+rd.xpr> ## age=31;
+rd.xpr> ## race=4;
+rd.xpr> ## d1='3jun2002'd ;
+rd.xpr> ## dt1='3jun2002 9:42:07'dt;
+rd.xpr> ## t1='11:14:13't;
+rd.xpr> ## output;
+rd.xpr> ## format d1 mmddyy10. dt1 datetime. t1 time. race race.;
+rd.xpr> ## run;
+rd.xpr> ## data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
+rd.xpr> ## DO i=1 TO 100;
+rd.xpr> ## x3=ranuni(3);
+rd.xpr> ## x4=ranuni(5);
+rd.xpr> ## x5=ranuni(7);
+rd.xpr> ## x6=ranuni(9);
+rd.xpr> ## x7=ranuni(11);
+rd.xpr> ## x8=ranuni(13);
+rd.xpr> ## output;
+rd.xpr> ## END;
+rd.xpr> ## DROP i;
+rd.xpr> ## RUN;
+rd.xpr> ## PROC MEANS; RUN;
+rd.xpr> ## PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
+rd.xpr> ## ------
rd.xpr>
-rd.xpr> # Read this dataset from a local file:
+rd.xpr> ## Read this dataset from a local file:
+rd.xpr> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+
+rd.xpr> w <- read.xport(testFile)
+
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+
rd.xpr> ## Not run:
-rd.xpr> ##D w <- read.xport('test2.xpt')
+rd.xpr> ##D ## Or read a copy of test2.xpt available on the web:
+rd.xpr> ##D url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
+rd.xpr> ##D w <- read.xport(url)
rd.xpr> ## End(Not run)
rd.xpr>
-rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
+rd.xpr> ## We can also get the dataset wrapped in a list
+rd.xpr> w <- read.xport(testFile, as.list=TRUE)
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> class(w)
+[1] "list"
-rd.xpr> url <- paste(host,path,sep="")
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-rd.xpr> w <- read.xport(url)
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
-rd.xpr> # We can also get the dataset wrapped in a list
-rd.xpr> w <- read.xport(url, as.list=TRUE)
-rd.xpr> # And we can ask for the format information to be included as well.
-rd.xpr> w <- read.xport(url, as.list=TRUE, include.formats=TRUE)
+rd.xpr> ## And we can ask for the format information to be included as well.
+rd.xpr> w <- read.xport(testFile, as.list=TRUE, include.formats=TRUE)
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+$FORMATS
+ FMTNAME START END LABEL MIN MAX DEFAULT LENGTH FUZZ
+1 RACE 1 1 green 1 40 6 6 1e-12
+2 RACE 2 2 blue 1 40 6 6 1e-12
+3 RACE 3 3 purple 1 40 6 6 1e-12
+ PREFIX MULT FILL NOEDIT TYPE SEXCL EEXCL HLO DECSEP DIG3SEP DATATYPE LANGUAGE
+1 0 0 N N N
+2 0 0 N N N
+3 0 0 N N N
+
+
rd.xpr> ## Don't show:
-rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+rd.xpr> stopifnot( is.data.frame(w)==FALSE && is.list(w)==TRUE )
rd.xpr> ## End Don't show
rd.xpr>
rd.xpr>
rd.xpr> ## Not run:
-rd.xpr> ##D ## The Hmisc library provides many useful functions for interacting with
-rd.xpr> ##D ## data imported from SAS via read.xport()
+rd.xpr> ##D #### The Hmisc library provides many useful functions for interacting with
+rd.xpr> ##D #### data imported from SAS via read.xport()
rd.xpr> ##D library(Hmisc)
rd.xpr> ##D
rd.xpr> ##D describe(w$test) # see labels, format names for dataset test
-rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detaiil for each variable
+rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detail for each variable
rd.xpr> ##D
rd.xpr> ##D contents(w$test) # another way to see variable attributes
rd.xpr> ##D lapply(w, contents)# show contents of individual items in more detail
@@ -1639,79 +1768,143 @@
> # remove names
> example(read.xport)
-rd.xpr> # -------
-rd.xpr> # SAS code to generate test dataset:
-rd.xpr> # -------
-rd.xpr> # libname y SASV5XPT "test2.xpt";
-rd.xpr> #
-rd.xpr> # PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
-rd.xpr> # PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
-rd.xpr> # data test;
-rd.xpr> # LENGTH race 3 age 4;
-rd.xpr> # age=30; label age="Age at Beginning of Study";
-rd.xpr> # race=2;
-rd.xpr> # d1='3mar2002'd ;
-rd.xpr> # dt1='3mar2002 9:31:02'dt;
-rd.xpr> # t1='11:13:45't;
-rd.xpr> # output;
-rd.xpr> #
-rd.xpr> # age=31;
-rd.xpr> # race=4;
-rd.xpr> # d1='3jun2002'd ;
-rd.xpr> # dt1='3jun2002 9:42:07'dt;
-rd.xpr> # t1='11:14:13't;
-rd.xpr> # output;
-rd.xpr> # format d1 mmddyy10. dt1 datetime. t1 time. race race.;
-rd.xpr> # run;
-rd.xpr> # data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
-rd.xpr> # DO i=1 TO 100;
-rd.xpr> # x3=ranuni(3);
-rd.xpr> # x4=ranuni(5);
-rd.xpr> # x5=ranuni(7);
-rd.xpr> # x6=ranuni(9);
-rd.xpr> # x7=ranuni(11);
-rd.xpr> # x8=ranuni(13);
-rd.xpr> # output;
-rd.xpr> # END;
-rd.xpr> # DROP i;
-rd.xpr> # RUN;
-rd.xpr> # PROC MEANS; RUN;
-rd.xpr> # PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
-rd.xpr> # ------
+rd.xpr> ## -------
+rd.xpr> ## SAS code to generate test dataset:
+rd.xpr> ## -------
+rd.xpr> ## libname y SASV5XPT "test2.xpt";
+rd.xpr> ##
+rd.xpr> ## PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
+rd.xpr> ## PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
+rd.xpr> ## data test;
+rd.xpr> ## LENGTH race 3 age 4;
+rd.xpr> ## age=30; label age="Age at Beginning of Study";
+rd.xpr> ## race=2;
+rd.xpr> ## d1='3mar2002'd ;
+rd.xpr> ## dt1='3mar2002 9:31:02'dt;
+rd.xpr> ## t1='11:13:45't;
+rd.xpr> ## output;
+rd.xpr> ##
+rd.xpr> ## age=31;
+rd.xpr> ## race=4;
+rd.xpr> ## d1='3jun2002'd ;
+rd.xpr> ## dt1='3jun2002 9:42:07'dt;
+rd.xpr> ## t1='11:14:13't;
+rd.xpr> ## output;
+rd.xpr> ## format d1 mmddyy10. dt1 datetime. t1 time. race race.;
+rd.xpr> ## run;
+rd.xpr> ## data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
+rd.xpr> ## DO i=1 TO 100;
+rd.xpr> ## x3=ranuni(3);
+rd.xpr> ## x4=ranuni(5);
+rd.xpr> ## x5=ranuni(7);
+rd.xpr> ## x6=ranuni(9);
+rd.xpr> ## x7=ranuni(11);
+rd.xpr> ## x8=ranuni(13);
+rd.xpr> ## output;
+rd.xpr> ## END;
+rd.xpr> ## DROP i;
+rd.xpr> ## RUN;
+rd.xpr> ## PROC MEANS; RUN;
+rd.xpr> ## PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
+rd.xpr> ## ------
rd.xpr>
-rd.xpr> # Read this dataset from a local file:
+rd.xpr> ## Read this dataset from a local file:
+rd.xpr> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+
+rd.xpr> w <- read.xport(testFile)
+
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+
rd.xpr> ## Not run:
-rd.xpr> ##D w <- read.xport('test2.xpt')
+rd.xpr> ##D ## Or read a copy of test2.xpt available on the web:
+rd.xpr> ##D url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
+rd.xpr> ##D w <- read.xport(url)
rd.xpr> ## End(Not run)
rd.xpr>
-rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
+rd.xpr> ## We can also get the dataset wrapped in a list
+rd.xpr> w <- read.xport(testFile, as.list=TRUE)
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> class(w)
+[1] "list"
-rd.xpr> url <- paste(host,path,sep="")
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-rd.xpr> w <- read.xport(url)
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
-rd.xpr> # We can also get the dataset wrapped in a list
-rd.xpr> w <- read.xport(url, as.list=TRUE)
-rd.xpr> # And we can ask for the format information to be included as well.
-rd.xpr> w <- read.xport(url, as.list=TRUE, include.formats=TRUE)
+rd.xpr> ## And we can ask for the format information to be included as well.
+rd.xpr> w <- read.xport(testFile, as.list=TRUE, include.formats=TRUE)
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+$FORMATS
+ FMTNAME START END LABEL MIN MAX DEFAULT LENGTH FUZZ
+1 RACE 1 1 green 1 40 6 6 1e-12
+2 RACE 2 2 blue 1 40 6 6 1e-12
+3 RACE 3 3 purple 1 40 6 6 1e-12
+ PREFIX MULT FILL NOEDIT TYPE SEXCL EEXCL HLO DECSEP DIG3SEP DATATYPE LANGUAGE
+1 0 0 N N N
+2 0 0 N N N
+3 0 0 N N N
+
+
rd.xpr> ## Don't show:
-rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+rd.xpr> stopifnot( is.data.frame(w)==FALSE && is.list(w)==TRUE )
rd.xpr> ## End Don't show
rd.xpr>
rd.xpr>
rd.xpr> ## Not run:
-rd.xpr> ##D ## The Hmisc library provides many useful functions for interacting with
-rd.xpr> ##D ## data imported from SAS via read.xport()
+rd.xpr> ##D #### The Hmisc library provides many useful functions for interacting with
+rd.xpr> ##D #### data imported from SAS via read.xport()
rd.xpr> ##D library(Hmisc)
rd.xpr> ##D
rd.xpr> ##D describe(w$test) # see labels, format names for dataset test
-rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detaiil for each variable
+rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detail for each variable
rd.xpr> ##D
rd.xpr> ##D contents(w$test) # another way to see variable attributes
rd.xpr> ##D lapply(w, contents)# show contents of individual items in more detail
@@ -1879,79 +2072,143 @@
> # remove variable names
> example(read.xport)
-rd.xpr> # -------
-rd.xpr> # SAS code to generate test dataset:
-rd.xpr> # -------
-rd.xpr> # libname y SASV5XPT "test2.xpt";
-rd.xpr> #
-rd.xpr> # PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
-rd.xpr> # PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
-rd.xpr> # data test;
-rd.xpr> # LENGTH race 3 age 4;
-rd.xpr> # age=30; label age="Age at Beginning of Study";
-rd.xpr> # race=2;
-rd.xpr> # d1='3mar2002'd ;
-rd.xpr> # dt1='3mar2002 9:31:02'dt;
-rd.xpr> # t1='11:13:45't;
-rd.xpr> # output;
-rd.xpr> #
-rd.xpr> # age=31;
-rd.xpr> # race=4;
-rd.xpr> # d1='3jun2002'd ;
-rd.xpr> # dt1='3jun2002 9:42:07'dt;
-rd.xpr> # t1='11:14:13't;
-rd.xpr> # output;
-rd.xpr> # format d1 mmddyy10. dt1 datetime. t1 time. race race.;
-rd.xpr> # run;
-rd.xpr> # data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
-rd.xpr> # DO i=1 TO 100;
-rd.xpr> # x3=ranuni(3);
-rd.xpr> # x4=ranuni(5);
-rd.xpr> # x5=ranuni(7);
-rd.xpr> # x6=ranuni(9);
-rd.xpr> # x7=ranuni(11);
-rd.xpr> # x8=ranuni(13);
-rd.xpr> # output;
-rd.xpr> # END;
-rd.xpr> # DROP i;
-rd.xpr> # RUN;
-rd.xpr> # PROC MEANS; RUN;
-rd.xpr> # PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
-rd.xpr> # ------
+rd.xpr> ## -------
+rd.xpr> ## SAS code to generate test dataset:
+rd.xpr> ## -------
+rd.xpr> ## libname y SASV5XPT "test2.xpt";
+rd.xpr> ##
+rd.xpr> ## PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
+rd.xpr> ## PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
+rd.xpr> ## data test;
+rd.xpr> ## LENGTH race 3 age 4;
+rd.xpr> ## age=30; label age="Age at Beginning of Study";
+rd.xpr> ## race=2;
+rd.xpr> ## d1='3mar2002'd ;
+rd.xpr> ## dt1='3mar2002 9:31:02'dt;
+rd.xpr> ## t1='11:13:45't;
+rd.xpr> ## output;
+rd.xpr> ##
+rd.xpr> ## age=31;
+rd.xpr> ## race=4;
+rd.xpr> ## d1='3jun2002'd ;
+rd.xpr> ## dt1='3jun2002 9:42:07'dt;
+rd.xpr> ## t1='11:14:13't;
+rd.xpr> ## output;
+rd.xpr> ## format d1 mmddyy10. dt1 datetime. t1 time. race race.;
+rd.xpr> ## run;
+rd.xpr> ## data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
+rd.xpr> ## DO i=1 TO 100;
+rd.xpr> ## x3=ranuni(3);
+rd.xpr> ## x4=ranuni(5);
+rd.xpr> ## x5=ranuni(7);
+rd.xpr> ## x6=ranuni(9);
+rd.xpr> ## x7=ranuni(11);
+rd.xpr> ## x8=ranuni(13);
+rd.xpr> ## output;
+rd.xpr> ## END;
+rd.xpr> ## DROP i;
+rd.xpr> ## RUN;
+rd.xpr> ## PROC MEANS; RUN;
+rd.xpr> ## PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
+rd.xpr> ## ------
rd.xpr>
-rd.xpr> # Read this dataset from a local file:
+rd.xpr> ## Read this dataset from a local file:
+rd.xpr> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+
+rd.xpr> w <- read.xport(testFile)
+
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+
rd.xpr> ## Not run:
-rd.xpr> ##D w <- read.xport('test2.xpt')
+rd.xpr> ##D ## Or read a copy of test2.xpt available on the web:
+rd.xpr> ##D url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
+rd.xpr> ##D w <- read.xport(url)
rd.xpr> ## End(Not run)
rd.xpr>
-rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
+rd.xpr> ## We can also get the dataset wrapped in a list
+rd.xpr> w <- read.xport(testFile, as.list=TRUE)
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> class(w)
+[1] "list"
-rd.xpr> url <- paste(host,path,sep="")
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-rd.xpr> w <- read.xport(url)
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
-rd.xpr> # We can also get the dataset wrapped in a list
-rd.xpr> w <- read.xport(url, as.list=TRUE)
-rd.xpr> # And we can ask for the format information to be included as well.
-rd.xpr> w <- read.xport(url, as.list=TRUE, include.formats=TRUE)
+rd.xpr> ## And we can ask for the format information to be included as well.
+rd.xpr> w <- read.xport(testFile, as.list=TRUE, include.formats=TRUE)
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$test
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+$FORMATS
+ FMTNAME START END LABEL MIN MAX DEFAULT LENGTH FUZZ
+1 RACE 1 1 green 1 40 6 6 1e-12
+2 RACE 2 2 blue 1 40 6 6 1e-12
+3 RACE 3 3 purple 1 40 6 6 1e-12
+ PREFIX MULT FILL NOEDIT TYPE SEXCL EEXCL HLO DECSEP DIG3SEP DATATYPE LANGUAGE
+1 0 0 N N N
+2 0 0 N N N
+3 0 0 N N N
+
+
rd.xpr> ## Don't show:
-rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+rd.xpr> stopifnot( is.data.frame(w)==FALSE && is.list(w)==TRUE )
rd.xpr> ## End Don't show
rd.xpr>
rd.xpr>
rd.xpr> ## Not run:
-rd.xpr> ##D ## The Hmisc library provides many useful functions for interacting with
-rd.xpr> ##D ## data imported from SAS via read.xport()
+rd.xpr> ##D #### The Hmisc library provides many useful functions for interacting with
+rd.xpr> ##D #### data imported from SAS via read.xport()
rd.xpr> ##D library(Hmisc)
rd.xpr> ##D
rd.xpr> ##D describe(w$test) # see labels, format names for dataset test
-rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detaiil for each variable
+rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detail for each variable
rd.xpr> ##D
rd.xpr> ##D contents(w$test) # another way to see variable attributes
rd.xpr> ##D lapply(w, contents)# show contents of individual items in more detail
@@ -2163,4 +2420,4 @@
>
> proc.time()
user system elapsed
- 6.192 1.760 17.901
+ 6.172 1.968 9.155
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -71,4 +72,4 @@
>
> proc.time()
user system elapsed
- 0.884 0.076 0.963
+ 0.924 0.104 1.071
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/test_fields.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -32,4 +33,4 @@
>
> proc.time()
user system elapsed
- 0.756 0.048 0.824
+ 0.824 0.056 0.908
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/xport.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -106,4 +107,4 @@
> q()
> proc.time()
user system elapsed
- 0.904 0.100 1.013
+ 0.932 0.152 1.164
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2013-10-09 18:20:23 UTC (rev 1720)
+++ trunk/SASxport/tests/xxx.Rout.save 2013-10-09 18:25:07 UTC (rev 1721)
@@ -16,8 +16,9 @@
Type 'q()' to quit R.
> library(SASxport)
+Loading required package: chron
-Loaded SASxport version 1.3.5 (2013-06-14).
+Loaded SASxport version 1.3.6 (2013-10-09).
Type `?SASxport' for usage information.
@@ -79,4 +80,4 @@
>
> proc.time()
user system elapsed
- 0.912 0.112 1.021
+ 0.948 0.100 1.147
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2014-07-17 02:55:18
|
Revision: 1830
http://sourceforge.net/p/r-gregmisc/code/1830
Author: warnes
Date: 2014-07-17 02:55:02 +0000 (Thu, 17 Jul 2014)
Log Message:
-----------
Modfy tests to directly call 'read.xport' instead of relying on 'examples(read.xport)'. Add test files to run 'examples(read.xport)' separately.
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.R
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testEmpty.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.R
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.Rout.save
trunk/SASxport/tests/test_fields.Rout.save
trunk/SASxport/tests/xport.Rout.save
trunk/SASxport/tests/xxx.Rout.save
Added Paths:
-----------
trunk/SASxport/tests/testExamples.R
trunk/SASxport/tests/testExamples.Rout.save
Modified: trunk/SASxport/tests/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -20,9 +20,22 @@
>
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
Type `?SASxport' for usage information.
> Sys.setenv("TZ"="GMT")
@@ -48,4 +61,4 @@
>
> proc.time()
user system elapsed
- 0.972 0.072 1.031
+ 0.478 0.037 0.508
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/Theoph.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -22,9 +22,22 @@
>
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
Type `?SASxport' for usage information.
> Sys.setenv("TZ"="GMT")
@@ -44,4 +57,4 @@
>
> proc.time()
user system elapsed
- 1.656 0.112 1.878
+ 0.639 0.039 0.683
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/cars.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,9 +17,22 @@
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
Type `?SASxport' for usage information.
> Sys.setenv("TZ"="GMT")
@@ -65,4 +78,4 @@
>
> proc.time()
user system elapsed
- 0.972 0.084 1.074
+ 0.482 0.038 0.506
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testDates.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,9 +17,22 @@
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
Type `?SASxport' for usage information.
> Sys.setenv("TZ"="GMT")
@@ -63,4 +76,4 @@
>
> proc.time()
user system elapsed
- 1.168 0.116 1.716
+ 0.509 0.037 0.541
Modified: trunk/SASxport/tests/testDuplicateNames.R
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.R 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testDuplicateNames.R 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,8 +1,9 @@
library(SASxport)
Sys.setenv("TZ"="GMT")
-##tests
-example(read.xport)
+## Read example dataset from a local file
+testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+w <- read.xport(testFile, names.tolower=TRUE)
# Duplicate df names
write.xport("AA"=w$test,"Aa"=w$test,"aA"=w$test,"aa"=w$test, file="dn.a.xpt") #1.a
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,187 +17,51 @@
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
- Type `?SASxport' for usage information.
+The following objects are masked from 'package:base':
-> Sys.setenv("TZ"="GMT")
->
-> ##tests
-> example(read.xport)
+ format.pval, round.POSIXt, trunc.POSIXt, units
-rd.xpr> ## -------
-rd.xpr> ## SAS code to generate test dataset:
-rd.xpr> ## -------
-rd.xpr> ## libname y SASV5XPT "test2.xpt";
-rd.xpr> ##
-rd.xpr> ## PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
-rd.xpr> ## PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
-rd.xpr> ## data test;
-rd.xpr> ## LENGTH race 3 age 4;
-rd.xpr> ## age=30; label age="Age at Beginning of Study";
-rd.xpr> ## race=2;
-rd.xpr> ## d1='3mar2002'd ;
-rd.xpr> ## dt1='3mar2002 9:31:02'dt;
-rd.xpr> ## t1='11:13:45't;
-rd.xpr> ## output;
-rd.xpr> ##
-rd.xpr> ## age=31;
-rd.xpr> ## race=4;
-rd.xpr> ## d1='3jun2002'd ;
-rd.xpr> ## dt1='3jun2002 9:42:07'dt;
-rd.xpr> ## t1='11:14:13't;
-rd.xpr> ## output;
-rd.xpr> ## format d1 mmddyy10. dt1 datetime. t1 time. race race.;
-rd.xpr> ## run;
-rd.xpr> ## data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
-rd.xpr> ## DO i=1 TO 100;
-rd.xpr> ## x3=ranuni(3);
-rd.xpr> ## x4=ranuni(5);
-rd.xpr> ## x5=ranuni(7);
-rd.xpr> ## x6=ranuni(9);
-rd.xpr> ## x7=ranuni(11);
-rd.xpr> ## x8=ranuni(13);
-rd.xpr> ## output;
-rd.xpr> ## END;
-rd.xpr> ## DROP i;
-rd.xpr> ## RUN;
-rd.xpr> ## PROC MEANS; RUN;
-rd.xpr> ## PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
-rd.xpr> ## ------
-rd.xpr>
-rd.xpr> ## Read this dataset from a local file:
-rd.xpr> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
-rd.xpr> w <- read.xport(testFile)
+Loaded SASxport version 1.4.1 (2014-07-16).
-rd.xpr> class(w)
-[1] "list"
+ Type `?SASxport' for usage information.
-rd.xpr> sapply(w, head)
-$test
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-
-$z
- X3 X4 X5 X6 X7 X8
-1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
-2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
-3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
-4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
-5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
-6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
-
-
-rd.xpr> ## Not run:
-rd.xpr> ##D ## Or read a copy of test2.xpt available on the web:
-rd.xpr> ##D url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
-rd.xpr> ##D w <- read.xport(url)
-rd.xpr> ## End(Not run)
-rd.xpr>
-rd.xpr> ## We can also get the dataset wrapped in a list
-rd.xpr> w <- read.xport(testFile, as.list=TRUE)
-
-rd.xpr> class(w)
-[1] "list"
-
-rd.xpr> sapply(w, head)
-$test
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-
-$z
- X3 X4 X5 X6 X7 X8
-1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
-2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
-3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
-4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
-5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
-6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
-
-
-rd.xpr> ## And we can ask for the format information to be included as well.
-rd.xpr> w <- read.xport(testFile, as.list=TRUE, include.formats=TRUE)
-
-rd.xpr> class(w)
-[1] "list"
-
-rd.xpr> sapply(w, head)
-$test
- RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-
-$z
- X3 X4 X5 X6 X7 X8
-1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
-2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
-3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
-4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
-5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
-6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
-
-$FORMATS
- FMTNAME START END LABEL MIN MAX DEFAULT LENGTH FUZZ
-1 RACE 1 1 green 1 40 6 6 1e-12
-2 RACE 2 2 blue 1 40 6 6 1e-12
-3 RACE 3 3 purple 1 40 6 6 1e-12
- PREFIX MULT FILL NOEDIT TYPE SEXCL EEXCL HLO DECSEP DIG3SEP DATATYPE LANGUAGE
-1 0 0 N N N
-2 0 0 N N N
-3 0 0 N N N
-
-
-rd.xpr> ## Don't show:
-rd.xpr> stopifnot( is.data.frame(w)==FALSE && is.list(w)==TRUE )
-
-rd.xpr> ## End Don't show
-rd.xpr>
-rd.xpr>
-rd.xpr> ## Not run:
-rd.xpr> ##D #### The Hmisc library provides many useful functions for interacting with
-rd.xpr> ##D #### data imported from SAS via read.xport()
-rd.xpr> ##D library(Hmisc)
-rd.xpr> ##D
-rd.xpr> ##D describe(w$test) # see labels, format names for dataset test
-rd.xpr> ##D lapply(w, describe)# see descriptive stats in more detail for each variable
-rd.xpr> ##D
-rd.xpr> ##D contents(w$test) # another way to see variable attributes
-rd.xpr> ##D lapply(w, contents)# show contents of individual items in more detail
-rd.xpr> ##D
-rd.xpr> ##D options(digits=7) # compare the following matrix with PROC MEANS output
-rd.xpr> ##D t(sapply(w$z, function(x)
-rd.xpr> ##D c(Mean=mean(x),SD=sqrt(var(x)),Min=min(x),Max=max(x))))
-rd.xpr> ## End(Not run)
-rd.xpr>
-rd.xpr>
-rd.xpr>
-rd.xpr>
+> Sys.setenv("TZ"="GMT")
>
+> ## Read example dataset from a local file
+> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+> w <- read.xport(testFile, names.tolower=TRUE)
+>
> # Duplicate df names
> write.xport("AA"=w$test,"Aa"=w$test,"aA"=w$test,"aa"=w$test, file="dn.a.xpt") #1.a
Warning message:
In makeSASNames(dfNames) : Made 3 duplicate names unique.
> read.xport("dn.a.xpt")
-$aa
+$AA
RACE AGE D1 DT1 T1
1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-$aa.1
+$AA.1
RACE AGE D1 DT1 T1
1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-$aa.2
+$AA.2
RACE AGE D1 DT1 T1
1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
-$aa.3
+$AA.3
RACE AGE D1 DT1 T1
1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
@@ -220,4 +84,4 @@
>
> proc.time()
user system elapsed
- 1.480 0.176 1.791
+ 0.534 0.038 0.569
Modified: trunk/SASxport/tests/testEmpty.Rout.save
===================================================================
--- trunk/SASxport/tests/testEmpty.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testEmpty.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,9 +17,22 @@
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
Type `?SASxport' for usage information.
>
@@ -55,15 +68,15 @@
> stopifnot( length(names(dat)) == 3 )
> stopifnot( nrow(dat)!=0 )
> dat
-$iris1
+$IRIS1
SEPAL.LE SEPAL.WI PETAL.LE PETAL.WI SPECIES
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
-$empty
+$EMPTY
data frame with 0 columns and 0 rows
-$iris2
+$IRIS2
SEPAL.LE SEPAL.WI PETAL.LE PETAL.WI SPECIES
1 4.7 3.2 1.3 0.2 setosa
2 4.6 3.1 1.5 0.2 setosa
@@ -71,4 +84,4 @@
>
> proc.time()
user system elapsed
- 1.332 0.136 1.949
+ 0.555 0.040 0.589
Added: trunk/SASxport/tests/testExamples.R
===================================================================
--- trunk/SASxport/tests/testExamples.R (rev 0)
+++ trunk/SASxport/tests/testExamples.R 2014-07-17 02:55:02 UTC (rev 1830)
@@ -0,0 +1,12 @@
+library(SASxport)
+Sys.setenv("TZ"="GMT")
+
+# run the examples, comparing output
+example(SASformat)
+example(lookup.xport)
+example(makeSASNames)
+example(read.xport)
+example(toSAS)
+example(write.xport)
+
+
Added: trunk/SASxport/tests/testExamples.Rout.save
===================================================================
--- trunk/SASxport/tests/testExamples.Rout.save (rev 0)
+++ trunk/SASxport/tests/testExamples.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -0,0 +1,971 @@
+
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
+
+R is free software and comes with ABSOLUTELY NO WARRANTY.
+You are welcome to redistribute it under certain conditions.
+Type 'license()' or 'licence()' for distribution details.
+
+R is a collaborative project with many contributors.
+Type 'contributors()' for more information and
+'citation()' on how to cite R or R packages in publications.
+
+Type 'demo()' for some demos, 'help()' for on-line help, or
+'help.start()' for an HTML browser interface to help.
+Type 'q()' to quit R.
+
+> library(SASxport)
+Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
+
+Attaching package: 'Hmisc'
+
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
+ Type `?SASxport' for usage information.
+
+> Sys.setenv("TZ"="GMT")
+>
+> # run the examples, comparing output
+> example(SASformat)
+
+SASfrm> ## Examples for vectors
+SASfrm>
+SASfrm> fail.time <- c(10,20)
+
+SASfrm> # set attributes
+SASfrm> SASformat(fail.time) <- 'Numeric2'
+
+SASfrm> SASiformat(fail.time) <- 'Numeric2'
+
+SASfrm> # display individual attributes
+SASfrm> SASformat(fail.time)
+[1] "Numeric2"
+
+SASfrm> SASiformat(fail.time)
+[1] "Numeric2"
+
+SASfrm> # display all attributes
+SASfrm> attributes(fail.time)
+$SASformat
+[1] "Numeric2"
+
+$SASiformat
+[1] "Numeric2"
+
+
+SASfrm> ## SAStype only applies to data frames
+SASfrm> df <- data.frame( fail.time, day=c("Mon","Tue") )
+
+SASfrm> SAStype(df) <- "USER"
+
+SASfrm> SAStype(df)
+[1] "USER"
+
+SASfrm> ## Example showing specification of default return value
+SASfrm> a <- 70
+
+SASfrm> label(a, default="no label")
+[1] "no label"
+> example(lookup.xport)
+
+lkp.xp> ## Get information about a local file
+lkp.xp> alfFile <- system.file('extdata', 'Alfalfa.xpt', package='SASxport')
+
+lkp.xp> lookup.xport(alfFile)
+
+SAS xport file
+--------------
+Filename: `/Users/warnes/src/r-gregmisc/SASxport.Rcheck/SASxport/extdata/Alfalfa.xpt'
+
+Variables in data set `SPEC':
+ dataset name type format flength fdigits iformat iflength ifdigits
+ SPEC POP character 0 0 0 0
+ SPEC SAMPLE numeric 0 0 0 0
+ SPEC REP numeric 0 0 0 0
+ SPEC SEEDWT numeric 0 0 0 0
+ SPEC HARV1 numeric 0 0 0 0
+ SPEC HARV2 numeric 0 0 0 0
+ label nobs
+ 40
+ 40
+ 40
+ 40
+ 40
+ 40
+
+
+lkp.xp> ## Read a copy of test2.xpt available on the web:
+lkp.xp> ## Not run:
+lkp.xp> ##D url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
+lkp.xp> ##D w <- lookup.xport(url)
+lkp.xp> ## End(Not run)
+lkp.xp> ## Or use the local copy...
+lkp.xp> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+
+lkp.xp> w <- lookup.xport(testFile)
+
+lkp.xp> # display the information (calls 'print.lookup.xport')
+lkp.xp> w
+
+SAS xport file
+--------------
+Filename: `/Users/warnes/src/r-gregmisc/SASxport.Rcheck/SASxport/extdata/test2.xpt'
+
+Variables in data set `TEST':
+ dataset name type format flength fdigits iformat iflength ifdigits
+ TEST RACE numeric RACE 0 0 0 0
+ TEST AGE numeric 0 0 0 0
+ TEST D1 numeric MMDDYY 10 0 0 0
+ TEST DT1 numeric DATETIME 0 0 0 0
+ TEST T1 numeric TIME 0 0 0 0
+ label nobs
+ 2
+ Age at Beginning of Study 2
+ 2
+ 2
+ 2
+
+Variables in data set `FORMAT':
+ dataset name type format flength fdigits iformat iflength ifdigits
+ FORMAT FMTNAME character 0 0 0 0
+ FORMAT START character 0 0 0 0
+ FORMAT END character 0 0 0 0
+ FORMAT LABEL character 0 0 0 0
+ FORMAT MIN numeric 0 0 0 0
+ FORMAT MAX numeric 0 0 0 0
+ FORMAT DEFAULT numeric 0 0 0 0
+ FORMAT LENGTH numeric 0 0 0 0
+ FORMAT FUZZ numeric 0 0 0 0
+ FORMAT PREFIX character 0 0 0 0
+ FORMAT MULT numeric 0 0 0 0
+ FORMAT FILL character 0 0 0 0
+ FORMAT NOEDIT numeric 0 0 0 0
+ FORMAT TYPE character 0 0 0 0
+ FORMAT SEXCL character 0 0 0 0
+ FORMAT EEXCL character 0 0 0 0
+ FORMAT HLO character 0 0 0 0
+ FORMAT DECSEP character 0 0 0 0
+ FORMAT DIG3SEP character 0 0 0 0
+ FORMAT DATATYPE character 0 0 0 0
+ FORMAT LANGUAGE character 0 0 0 0
+ label nobs
+ Format name 3
+ Starting value for format 3
+ Ending value for format 3
+ Format value label 3
+ Minimum length 3
+ Maximum length 3
+ Default length 3
+ Format length 3
+ Fuzz value 3
+ Prefix characters 3
+ Multiplier 3
+ Fill character 3
+ Is picture string noedit? 3
+ Type of format 3
+ Start exclusion 3
+ End exclusion 3
+ Additional information 3
+ Decimal separator 3
+ Three-digit separator 3
+ Date/time/datetime? 3
+ Language for date strings 3
+
+Variables in data set `Z':
+ dataset name type format flength fdigits iformat iflength ifdigits label
+ Z X3 numeric 0 0 0 0
+ Z X4 numeric 0 0 0 0
+ Z X5 numeric 0 0 0 0
+ Z X6 numeric 0 0 0 0
+ Z X7 numeric 0 0 0 0
+ Z X8 numeric 0 0 0 0
+ nobs
+ 100
+ 100
+ 100
+ 100
+ 100
+ 100
+
+
+lkp.xp> # names of data sets
+lkp.xp> names(w)
+[1] "TEST" "FORMAT" "Z"
+
+lkp.xp> # names of variables within data sets
+lkp.xp> w$Z$name
+[1] "X3" "X4" "X5" "X6" "X7" "X8"
+
+lkp.xp> # use summary
+lkp.xp> wS <- summary(w)
+
+lkp.xp> wS # same display
+
+SAS xport file
+--------------
+Filename: `/Users/warnes/src/r-gregmisc/SASxport.Rcheck/SASxport/extdata/test2.xpt'
+
+Variables in data set `TEST':
+ dataset name type format flength fdigits iformat iflength ifdigits
+ TEST RACE numeric RACE 0 0 0 0
+ TEST AGE numeric 0 0 0 0
+ TEST D1 numeric MMDDYY 10 0 0 0
+ TEST DT1 numeric DATETIME 0 0 0 0
+ TEST T1 numeric TIME 0 0 0 0
+ label nobs
+ 2
+ Age at Beginning of Study 2
+ 2
+ 2
+ 2
+
+Variables in data set `FORMAT':
+ dataset name type format flength fdigits iformat iflength ifdigits
+ FORMAT FMTNAME character 0 0 0 0
+ FORMAT START character 0 0 0 0
+ FORMAT END character 0 0 0 0
+ FORMAT LABEL character 0 0 0 0
+ FORMAT MIN numeric 0 0 0 0
+ FORMAT MAX numeric 0 0 0 0
+ FORMAT DEFAULT numeric 0 0 0 0
+ FORMAT LENGTH numeric 0 0 0 0
+ FORMAT FUZZ numeric 0 0 0 0
+ FORMAT PREFIX character 0 0 0 0
+ FORMAT MULT numeric 0 0 0 0
+ FORMAT FILL character 0 0 0 0
+ FORMAT NOEDIT numeric 0 0 0 0
+ FORMAT TYPE character 0 0 0 0
+ FORMAT SEXCL character 0 0 0 0
+ FORMAT EEXCL character 0 0 0 0
+ FORMAT HLO character 0 0 0 0
+ FORMAT DECSEP character 0 0 0 0
+ FORMAT DIG3SEP character 0 0 0 0
+ FORMAT DATATYPE character 0 0 0 0
+ FORMAT LANGUAGE character 0 0 0 0
+ label nobs
+ Format name 3
+ Starting value for format 3
+ Ending value for format 3
+ Format value label 3
+ Minimum length 3
+ Maximum length 3
+ Default length 3
+ Format length 3
+ Fuzz value 3
+ Prefix characters 3
+ Multiplier 3
+ Fill character 3
+ Is picture string noedit? 3
+ Type of format 3
+ Start exclusion 3
+ End exclusion 3
+ Additional information 3
+ Decimal separator 3
+ Three-digit separator 3
+ Date/time/datetime? 3
+ Language for date strings 3
+
+Variables in data set `Z':
+ dataset name type format flength fdigits iformat iflength ifdigits label
+ Z X3 numeric 0 0 0 0
+ Z X4 numeric 0 0 0 0
+ Z X5 numeric 0 0 0 0
+ Z X6 numeric 0 0 0 0
+ Z X7 numeric 0 0 0 0
+ Z X8 numeric 0 0 0 0
+ nobs
+ 100
+ 100
+ 100
+ 100
+ 100
+ 100
+
+
+lkp.xp> # variable names within all data sets
+lkp.xp> wS$name
+ [1] RACE AGE D1 DT1 T1 FMTNAME START END
+ [9] LABEL MIN MAX DEFAULT LENGTH FUZZ PREFIX MULT
+[17] FILL NOEDIT TYPE SEXCL EEXCL HLO DECSEP DIG3SEP
+[25] DATATYPE LANGUAGE X3 X4 X5 X6 X7 X8
+32 Levels: AGE D1 DT1 RACE T1 DATATYPE DECSEP DEFAULT DIG3SEP EEXCL ... X8
+> example(makeSASNames)
+
+mkSASN> ## Simple example: no duplicates or more than 8 characters
+mkSASN> makeSASNames( c("height","weight","age","gender"))
+[1] "HEIGHT" "WEIGHT" "AGE" "GENDER"
+
+mkSASN> ## Resolve duplicates
+mkSASN> makeSASNames( c("a","a","b","b","b","c") )
+[1] "A" "A.1" "B" "B.1" "B.2" "C"
+
+mkSASN> ## Truncate long names
+mkSASN> makeSASNames( c("alphabetic", "numeric", "alphanumeric", "whitespace"))
+[1] "ALPHABET" "NUMERIC" "ALPHANUM" "WHITESPA"
+
+mkSASN> ## Truncate and make unique
+mkSASN> makeSASNames( rep( c("aaaaaaaaaaa","bbbbbbbbbb"), each=3) )
+[1] "AAAAAA" "AAAAAA.1" "AAAAAA.2" "BBBBBB" "BBBBBB.1" "BBBBBB.2"
+
+mkSASN> ## Now do it quietly!
+mkSASN> makeSASNames( rep( c("aaaaaaaaaaa","bbbbbbbbbb"), each=3), quiet=TRUE)
+[1] "AAAAAA" "AAAAAA.1" "AAAAAA.2" "BBBBBB" "BBBBBB.1" "BBBBBB.2"
+Warning messages:
+1: In makeSASNames(c("a", "a", "b", "b", "b", "c")) :
+ Made 3 duplicate names unique.
+2: In makeSASNames(c("alphabetic", "numeric", "alphanumeric", "whitespace")) :
+ Truncated 3 long names to 8 characters.
+3: In makeSASNames(rep(c("aaaaaaaaaaa", "bbbbbbbbbb"), each = 3)) :
+ Truncated 6 long names to 8 characters.
+4: In makeSASNames(rep(c("aaaaaaaaaaa", "bbbbbbbbbb"), each = 3)) :
+ Made 4 duplicate names unique.
+> example(read.xport)
+
+rd.xpr> ## -------
+rd.xpr> ## SAS code to generate test dataset:
+rd.xpr> ## -------
+rd.xpr> ## libname y SASV5XPT "test2.xpt";
+rd.xpr> ##
+rd.xpr> ## PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
+rd.xpr> ## PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
+rd.xpr> ## data test;
+rd.xpr> ## LENGTH race 3 age 4;
+rd.xpr> ## age=30; label age="Age at Beginning of Study";
+rd.xpr> ## race=2;
+rd.xpr> ## d1='3mar2002'd ;
+rd.xpr> ## dt1='3mar2002 9:31:02'dt;
+rd.xpr> ## t1='11:13:45't;
+rd.xpr> ## output;
+rd.xpr> ##
+rd.xpr> ## age=31;
+rd.xpr> ## race=4;
+rd.xpr> ## d1='3jun2002'd ;
+rd.xpr> ## dt1='3jun2002 9:42:07'dt;
+rd.xpr> ## t1='11:14:13't;
+rd.xpr> ## output;
+rd.xpr> ## format d1 mmddyy10. dt1 datetime. t1 time. race race.;
+rd.xpr> ## run;
+rd.xpr> ## data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
+rd.xpr> ## DO i=1 TO 100;
+rd.xpr> ## x3=ranuni(3);
+rd.xpr> ## x4=ranuni(5);
+rd.xpr> ## x5=ranuni(7);
+rd.xpr> ## x6=ranuni(9);
+rd.xpr> ## x7=ranuni(11);
+rd.xpr> ## x8=ranuni(13);
+rd.xpr> ## output;
+rd.xpr> ## END;
+rd.xpr> ## DROP i;
+rd.xpr> ## RUN;
+rd.xpr> ## PROC MEANS; RUN;
+rd.xpr> ## PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
+rd.xpr> ## ------
+rd.xpr>
+rd.xpr> ## Read this dataset from a local file:
+rd.xpr> testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+
+rd.xpr> w <- read.xport(testFile)
+
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$TEST
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$Z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+
+rd.xpr> ## Not run:
+rd.xpr> ##D ## Or read a copy of test2.xpt available on the web:
+rd.xpr> ##D url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
+rd.xpr> ##D w <- read.xport(url)
+rd.xpr> ## End(Not run)
+rd.xpr>
+rd.xpr> ## We can also get the dataset wrapped in a list
+rd.xpr> w <- read.xport(testFile, as.list=TRUE)
+
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$TEST
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$Z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+
+rd.xpr> ## And we can ask for the format information to be included as well.
+rd.xpr> w <- read.xport(testFile, as.list=TRUE, include.formats=TRUE)
+
+rd.xpr> class(w)
+[1] "list"
+
+rd.xpr> sapply(w, head)
+$TEST
+ RACE AGE D1 DT1 T1
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
+
+$Z
+ X3 X4 X5 X6 X7 X8
+1 0.5548096 0.9102659 0.19947292 0.7781959 0.7648077 0.90783205
+2 0.6289062 0.5950751 0.14938208 0.1996997 0.4579557 0.57161156
+3 0.5601807 0.2015537 0.87107157 0.8915819 0.8178354 0.06978889
+4 0.9301758 0.6795225 0.06470965 0.2382916 0.6756623 0.86167683
+5 0.4273071 0.5349607 0.90357235 0.7710940 0.7477446 0.13104011
+6 0.1850586 0.5198102 0.79364078 0.7873601 0.7689810 0.89166854
+
+$FORMATS
+ FMTNAME START END LABEL MIN MAX DEFAULT LENGTH FUZZ
+1 RACE 1 1 green 1 40 6 6 1e-12
+2 RACE 2 2 blue 1 40 6 6 1e-12
+3 RACE 3 3 purple 1 40 6 6 1e-12
+ PREFIX MULT FILL NOEDIT TYPE SEXCL EEXCL HLO DECSEP DIG3SEP DATATYPE LANGUAGE
+1 0 0 N N N
+2 0 0 N N N
+3 0 0 N N N
+
+
+rd.xpr> ## Don't show:
+rd.xpr> stopifnot( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+
+rd.xpr> ## End Don't show
+rd.xpr>
+rd.xpr>
+rd.xpr> #### The Hmisc library provides many useful functions for interacting with
+rd.xpr> #### data imported from SAS via read.xport()
+rd.xpr> library(Hmisc)
+
+rd.xpr> describe(w$TEST) # see labels, format names for dataset test
+w$TEST
+
+ 5 Variables 2 Observations
+--------------------------------------------------------------------------------
+RACE
+ n missing unique value
+ 1 1 1 blue
+--------------------------------------------------------------------------------
+AGE : Age at Beginning of Study
+ n missing unique Mean
+ 2 0 2 30.5
+
+30 (1, 50%), 31 (1, 50%)
+--------------------------------------------------------------------------------
+D1
+ n missing unique
+ 2 0 2
+
+2002-03-03 (1, 50%), 2002-06-03 (1, 50%)
+--------------------------------------------------------------------------------
+DT1 Format:day mon year h:m:s
+ n missing unique
+ 2 0 2
+ Mean
+(18 Apr 2002 09:36:35)
+
+(03 Jun 2002 09:42:07) (1, 50%)
+(03 Mar 2002 09:31:02) (1, 50%)
+--------------------------------------------------------------------------------
+T1 Format:h:m:s
+ n missing unique Mean
+ 2 0 2 :01:
+
+11:13:45 (1, 50%), 11:14:13 (1, 50%)
+--------------------------------------------------------------------------------
+
+rd.xpr> lapply(w, describe)# see descriptive stats in more detail for each variable
+$TEST
+X[[1]]
+
+ 5 Variables 2 Observations
+--------------------------------------------------------------------------------
+RACE
+ n missing unique value
+ 1 1 1 blue
+--------------------------------------------------------------------------------
+AGE : Age at Beginning of Study
+ n missing unique Mean
+ 2 0 2 30.5
+
+30 (1, 50%), 31 (1, 50%)
+--------------------------------------------------------------------------------
+D1
+ n missing unique
+ 2 0 2
+
+2002-03-03 (1, 50%), 2002-06-03 (1, 50%)
+--------------------------------------------------------------------------------
+DT1 Format:day mon year h:m:s
+ n missing unique
+ 2 0 2
+ Mean
+(18 Apr 2002 09:36:35)
+
+(03 Jun 2002 09:42:07) (1, 50%)
+(03 Mar 2002 09:31:02) (1, 50%)
+--------------------------------------------------------------------------------
+T1 Format:h:m:s
+ n missing unique Mean
+ 2 0 2 :01:
+
+11:13:45 (1, 50%), 11:14:13 (1, 50%)
+--------------------------------------------------------------------------------
+
+$Z
+X[[2]]
+
+ 6 Variables 100 Observations
+--------------------------------------------------------------------------------
+X3
+ n missing unique Mean .05 .10 .25 .50 .75 .90
+ 100 0 100 0.5131 0.05585 0.13304 0.26428 0.51257 0.80719 0.93059
+ .95
+0.96426
+
+lowest : 0.00576 0.01524 0.02380 0.02627 0.05351
+highest: 0.96948 0.97473 0.98010 0.98096 0.99390
+--------------------------------------------------------------------------------
+X4
+ n missing unique Mean .05 .10 .25 .50 .75 .90
+ 100 0 100 0.5119 0.06694 0.09393 0.22310 0.49638 0.82109 0.92206
+ .95
+0.94963
+
+lowest : 0.02636 0.02890 0.02926 0.03010 0.05395
+highest: 0.95790 0.96828 0.97047 0.97466 0.98267
+--------------------------------------------------------------------------------
+X5
+ n missing unique Mean .05 .10 .25 .50 .75 .90
+ 100 0 100 0.4888 0.04286 0.06765 0.19898 0.46766 0.77899 0.89237
+ .95
+0.91886
+
+lowest : 0.004134 0.007872 0.008811 0.038577 0.039260
+highest: 0.933789 0.975597 0.984074 0.996114 0.997253
+--------------------------------------------------------------------------------
+X6
+ n missing unique Mean .05 .10 .25 .50 .75 .90
+ 100 0 100 0.4987 0.09022 0.18649 0.26865 0.46423 0.72667 0.85553
+ .95
+0.93149
+
+lowest : 0.01010 0.01943 0.03064 0.05931 0.08775
+highest: 0.93330 0.96090 0.97310 0.97840 0.99511
+--------------------------------------------------------------------------------
+X7
+ n missing unique Mean .05 .10 .25 .50 .75 .90
+ 100 0 100 0.5533 0.0850 0.1474 0.3313 0.5666 0.8120 0.9176
+ .95
+ 0.9517
+
+lowest : 0.04201 0.04716 0.04986 0.05864 0.07641
+highest: 0.96377 0.97244 0.97413 0.99318 0.99791
+--------------------------------------------------------------------------------
+X8
+ n missing unique Mean .05 .10 .25 .50 .75 .90
+ 100 0 100 0.4809 0.04251 0.06831 0.27122 0.49223 0.71333 0.87322
+ .95
+0.91886
+
+lowest : 0.007269 0.010586 0.013044 0.018595 0.039906
+highest: 0.930491 0.935669 0.936941 0.958679 0.959636
+--------------------------------------------------------------------------------
+
+$FORMATS
+X[[3]]
+
+ 21 Variables 3 Observations
+--------------------------------------------------------------------------------
+FMTNAME
+ n missing unique value
+ 3 0 1 RACE
+--------------------------------------------------------------------------------
+START
+ n missing unique
+ 3 0 3
+
+ 1 (1, 33%), 2 (1, 33%)
+ 3 (1, 33%)
+--------------------------------------------------------------------------------
+END
+ n missing unique
+ 3 0 3
+
+ 1 (1, 33%), 2 (1, 33%)
+ 3 (1, 33%)
+--------------------------------------------------------------------------------
+LABEL
+ n missing unique
+ 3 0 3
+
+blue (1, 33%), green (1, 33%), purple (1, 33%)
+--------------------------------------------------------------------------------
+MIN
+ n missing unique Mean
+ 3 0 1 1
+--------------------------------------------------------------------------------
+MAX
+ n missing unique Mean
+ 3 0 1 40
+--------------------------------------------------------------------------------
+DEFAULT
+ n missing unique Mean
+ 3 0 1 6
+--------------------------------------------------------------------------------
+LENGTH
+ n missing unique Mean
+ 3 0 1 6
+--------------------------------------------------------------------------------
+FUZZ
+ n missing unique Mean
+ 3 0 1 1e-12
+--------------------------------------------------------------------------------
+MULT
+ n missing unique Mean
+ 3 0 1 0
+--------------------------------------------------------------------------------
+NOEDIT
+ n missing unique Mean
+ 3 0 1 0
+--------------------------------------------------------------------------------
+TYPE
+ n missing unique value
+ 3 0 1 N
+--------------------------------------------------------------------------------
+SEXCL
+ n missing unique value
+ 3 0 1 N
+--------------------------------------------------------------------------------
+EEXCL
+ n missing unique value
+ 3 0 1 N
+--------------------------------------------------------------------------------
+
+Variables with all observations missing:
+
+[1] PREFIX FILL HLO DECSEP DIG3SEP DATATYPE LANGUAGE
+
+
+rd.xpr> contents(w$TEST) # another way to see variable attributes
+
+Data frame:w$TEST 2 observations and 5 variables Maximum # NAs:1
+
+ Labels Levels Class Storage NAs
+RACE 3 integer 1
+AGE Age at Beginning of Study integer integer 0
+D1 Date double 0
+DT1 chron double 0
+T1 times double 0
+
++--------+-----------------+
+|Variable|Levels |
++--------+-----------------+
+| RACE |green,blue,purple|
++--------+-----------------+
+
+rd.xpr> lapply(w, contents)# show contents of individual items in more detail
+$TEST
+
+Data frame:X[[1L]] 2 observations and 5 variables Maximum # NAs:1
+
+ Labels Levels Class Storage NAs
+RACE 3 integer 1
+AGE Age at Beginning of Study integer integer 0
+D1 Date double 0
+DT1 chron double 0
+T1 times double 0
+
++--------+-----------------+
+|Variable|Levels |
++--------+-----------------+
+| RACE |green,blue,purple|
++--------+-----------------+
+
+$Z
+
+Data frame:X[[2L]] 100 observations and 6 variables Maximum # NAs:0
+
+ Storage
+X3 double
+X4 double
+X5 double
+X6 double
+X7 double
+X8 double
+
+$FORMATS
+
+Data frame:X[[3L]] 3 observations and 21 variables Maximum # NAs:0
+
+ Storage
+FMTNAME character
+START character
+END character
+LABEL character
+MIN double
+MAX double
+DEFAULT double
+LENGTH double
+FUZZ double
+PREFIX character
+MULT double
+FILL character
+NOEDIT double
+TYPE character
+SEXCL character
+EEXCL character
+HLO character
+DECSEP character
+DIG3SEP character
+DATATYPE character
+LANGUAGE character
+
+
+rd.xpr> options(digits=7) # compare the following matrix with PROC MEANS output
+
+rd.xpr> t(sapply(w$Z, function(x)
+rd.xpr+ c(Mean=mean(x),SD=sqrt(var(x)),Min=min(x),Max=max(x))))
+ Mean SD Min Max
+X3 0.5131445 0.2944341 0.005760193 0.9938965
+X4 0.5119257 0.3100749 0.026361614 0.9826741
+X5 0.4887739 0.3141976 0.004133753 0.9972528
+X6 0.4986746 0.2710817 0.010095772 0.9951080
+X7 0.5533156 0.2843679 0.042010437 0.9979081
+X8 0.4809487 0.2892945 0.007268806 0.9596358
+> example(toSAS)
+
+toSAS> ####
+toSAS> ## See how an R date/time object will be stored in a SAS xport file:
+toSAS> ####
+toSAS>
+toSAS> # Date and time
+toSAS> dateTimeObj <- ISOdate(2007,08,01,10,14,37)
+
+toSAS> class(dateTimeObj)
+[1] "POSIXct" "POSIXt"
+
+toSAS> dateTimeObj
+[1] "2007-08-01 10:14:37 GMT"
+
+toSAS> sasDateTimeObj <- toSAS(dateTimeObj)
+
+toSAS> sasDateTimeObj
+[1] 1501582477
+attr(,"tzone")
+[1] "GMT"
+attr(,"SASformat")
+[1] "DATETIME16."
+
+toSAS> # Now just the date portion
+toSAS> dateObj <- as.Date(dateTimeObj)
+
+toSAS> dateObj
+[1] "2007-08-01"
+
+toSAS> sasDateObj <- toSAS(dateObj)
+
+toSAS> sasDateObj
+[1] 17379
+attr(,"SASformat")
+[1] "DATE9."
+
+toSAS> ####
+toSAS> ## Create a new R object class based on factor to hold color names
+toSAS> ####
+toSAS> colorFactor <- function(x) # constructor
+toSAS+ {
+toSAS+ retval <- factor(x, levels=c("Red","Green","Blue") )
+toSAS+ class(retval) <- c("colorFactor","factor")
+toSAS+ retval
+toSAS+ }
+
+toSAS> ## create one and look at it
+toSAS> cf <- colorFactor( c("Red","Red","Blue",NA) )
+
+toSAS> cf
+[1] Red Red Blue <NA>
+Levels: Red Green Blue
+
+toSAS> ## See how it will be represented in a SAS xport file
+toSAS> toSAS(cf)
+[1] "Red" "Red" "Blue" NA
+
+toSAS> ## Create a new conversion function to store as a RGB hex value
+toSAS> toSAS.colorFactor <- function(x, format="")
+toSAS+ {
+toSAS+ retval <- ifelse(x=="Red", "#FF0000",
+toSAS+ ifelse(x=="Green", "#00FF00", "#0000FF") )
+toSAS+ attr(retval, "SASformat") <- format
+toSAS+ retval
+toSAS+ }
+
+toSAS> ## see it in action
+toSAS> toSAS(cf)
+[1] "#FF0000" "#FF0000" "#0000FF" NA
+attr(,"SASformat")
+[1] ""
+> example(write.xport)
+
+wrt.xp> #####
+wrt.xp> ## R version of the example given in TS-140
+wrt.xp> #####
+wrt.xp>
+wrt.xp> ## manually create a data set
+wrt.xp> abc <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
+
+wrt.xp> ## look at it
+wrt.xp> abc
+ x y
+1 1 a
+2 2 B
+3 NA <NA>
+4 NA *
+
+wrt.xp> ## add a format specifier (not used by R)
+wrt.xp> SASformat(abc$x) <- 'date7.'
+
+wrt.xp> ## add a variable label (not used by R)
+wrt.xp> label(abc$y) <- 'character variable'
+
+wrt.xp> ## add a dataset label and type
+wrt.xp> label(abc) <- 'Simple example'
+
+wrt.xp> SAStype(abc) <- 'MYTYPE'
+
+wrt.xp> ## verify the additions
+wrt.xp> str(abc)
+'data.frame': 4 obs. of 2 variables:
+ $ x: atomic 1 2 NA NA
+ ..- attr(*, "SASformat")= chr "date7."
+ $ y: Factor w/ 3 levels "*","B","a": 3 2 NA 1
+ ..- attr(*, "label")= chr "character variable"
+ - attr(*, "label")= chr "Simple example"
+ - attr(*, "SAStype")= chr "MYTYPE"
+
+wrt.xp> # create a SAS XPORT file
+wrt.xp> write.xport( abc, file="xxx.dat" )
+
+wrt.xp> # list the contents of the file
+wrt.xp> lookup.xport("xxx.dat")
+
+SAS xport file
+--------------
+Filename: `xxx.dat'
+
+Variables in data set `ABC':
+ dataset name type format flength fdigits iformat iflength ifdigits
+ ABC X numeric DATE 7 0 0 0
+ ABC Y numeric RFMTA 0 0 0 0
+ label nobs
+ 4
+ character variable 4
+
+Variables in data set `FORMATS':
+ dataset name type format flength fdigits iformat iflength ifdigits
+ FORMATS FMTNAME character 0 0 0 0
+ FORMATS START character 0 0 0 0
+ FORMATS END character 0 0 0 0
+ FORMATS LABEL character 0 0 0 0
+ FORMATS MIN numeric 0 0 0 0
+ FORMATS MAX numeric 0 0 0 0
+ FORMATS DEFAULT numeric 0 0 0 0
+ FORMATS LENGTH numeric 0 0 0 0
+ FORMATS FUZZ numeric 0 0 0 0
+ FORMATS PREFIX character 0 0 0 0
+ FORMATS MULT numeric 0 0 0 0
+ FORMATS FILL character 0 0 0 0
+ FORMATS NOEDIT numeric 0 0 0 0
+ FORMATS TYPE character 0 0 0 0
+ FORMATS SEXCL character 0 0 0 0
+ FORMATS EEXCL character 0 0 0 0
+ FORMATS HLO character 0 0 0 0
+ FORMATS DECSEP character 0 0 0 0
+ FORMATS DIG3SEP character 0 0 0 0
+ FORMATS DATATYPE character 0 0 0 0
+ FORMATS LANGUAGE character 0 0 0 0
+ label nobs
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+ 3
+
+
+wrt.xp> ## reload the data
+wrt.xp> xxx.abc <- read.xport("xxx.dat")
+
+wrt.xp> ## and look at it
+wrt.xp> xxx.abc
+ X Y
+1 1960-01-02 a
+2 1960-01-03 B
+3 <NA> <NA>
+4 <NA> *
+
+wrt.xp> ## Check the label and type
+wrt.xp> label(xxx.abc)
+ X Y
+ "" "character variable"
+
+wrt.xp> SAStype(xxx.abc)
+[1] "MYTYPE"
+
+wrt.xp> ## Note that the variable names and SAS dataset type have been converted
+wrt.xp> ## to uppercase
+wrt.xp>
+wrt.xp>
+wrt.xp>
+wrt.xp>
+>
+>
+>
+> proc.time()
+ user system elapsed
+ 0.779 0.050 0.833
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,9 +17,22 @@
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
Type `?SASxport' for usage information.
> Sys.setenv("TZ"="GMT")
@@ -38,9 +51,9 @@
There were 21 warnings (use warnings() to see them)
> manyDF.in <- read.xport(file="manyDF.xport")
> names(manyDF.in)
- [1] "iris" "iris.1" "iris.2" "iris.3" "iris.4" "iris.5" "iris.6"
- [8] "iris.7" "iris.8" "iris.9" "iris.10" "iris.11" "iris.12" "iris.13"
-[15] "iris.14" "iris.15" "iris.16" "iris.17" "iris.18" "iris.19"
+ [1] "IRIS" "IRIS.1" "IRIS.2" "IRIS.3" "IRIS.4" "IRIS.5" "IRIS.6"
+ [8] "IRIS.7" "IRIS.8" "IRIS.9" "IRIS.10" "IRIS.11" "IRIS.12" "IRIS.13"
+[15] "IRIS.14" "IRIS.15" "IRIS.16" "IRIS.17" "IRIS.18" "IRIS.19"
> head(manyDF.in[[ncopies]])
SEPAL.LE SEPAL.WI PETAL.LE PETAL.WI SPECIES
1 5.1 3.5 1.4 0.2 setosa
@@ -96,4 +109,4 @@
>
> proc.time()
user system elapsed
- 19.200 0.208 19.802
+ 4.563 0.056 4.649
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testNegative.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,9 +17,22 @@
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
Type `?SASxport' for usage information.
> Sys.setenv("TZ"="GMT")
@@ -49,4 +62,4 @@
>
> proc.time()
user system elapsed
- 1.300 0.128 1.982
+ 0.530 0.036 0.560
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,9 +17,22 @@
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required package: Formula
-Loaded SASxport version 1.3.6 (2013-10-09).
+Attaching package: 'Hmisc'
+The following objects are masked from 'package:base':
+
+ format.pval, round.POSIXt, trunc.POSIXt, units
+
+
+Loaded SASxport version 1.4.1 (2014-07-16).
+
Type `?SASxport' for usage information.
> Sys.setenv("TZ"="GMT")
@@ -88,4 +101,4 @@
>
> proc.time()
user system elapsed
- 1.636 0.104 1.856
+ 0.615 0.037 0.645
Modified: trunk/SASxport/tests/testUnnamedComponents.R
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.R 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testUnnamedComponents.R 2014-07-17 02:55:02 UTC (rev 1830)
@@ -3,6 +3,10 @@
##tests
example(read.xport)
+## Read example dataset from a local file
+testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+w <- read.xport(testFile, names.tolower=TRUE)
+
write.xport(w$test,file="a.xpt") #1.a
lookup.xport("a.xpt") #1.b
(tmp <- read.xport("a.xpt")) #1.c
@@ -52,13 +56,13 @@
(tmp <- read.xport("a.xpt")) #10.c
# Check with different list construction function *name*
-example(read.xport)
+w <- read.xport(testFile, names.tolower=TRUE)
write.xport(list=base::list(w$test,w$z),file="a.xpt") #11.a
lookup.xport("a.xpt") #11.b
(tmp <- read.xport("a.xpt")) #11.c
# remove names
-example(read.xport)
+w <- read.xport(testFile, names.tolower=TRUE)
names(w) <- NULL
w[[3]] <- NULL
write.xport(list=w,file="a.xpt") #12.a
@@ -66,7 +70,7 @@
(tmp <- read.xport("a.xpt")) #12.c
# remove variable names
-example(read.xport)
+w <- read.xport(testFile, names.tolower=TRUE)
colnames(w[[2]]) <- rep("", length=ncol(w[[2]]))
write.xport(list=w,file="a.xpt") #13.a
lookup.xport("a.xpt") #13.b
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2014-07-17 02:32:04 UTC (rev 1829)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2014-07-17 02:55:02 UTC (rev 1830)
@@ -1,7 +1,7 @@
-R version 3.0.1 (2013-05-16) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i686-pc-linux-gnu (32-bit)
+R version 3.1.0 Patched (2014-05-26 r65771) -- "Spring Dance"
+Copyright (C) 2014 The R Foundation for Statistical Computing
+Platform: x86_64-apple-darwin13.1.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,9 +17,22 @@
> library(SASxport)
Loading required package: chron
+Loading required package: Hmisc
+Loading required package: grid
+Loading required package: lattice
+Loading required package: survival
+Loading required package: splines
+Loading required ...
[truncated message content] |
|
From: <wa...@us...> - 2014-07-18 12:10:26
|
Revision: 1835
http://sourceforge.net/p/r-gregmisc/code/1835
Author: warnes
Date: 2014-07-18 12:10:22 +0000 (Fri, 18 Jul 2014)
Log Message:
-----------
Remove SASxport:::assert() and replace all uses with stopifnot()
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testEmpty.Rout.save
trunk/SASxport/tests/testExamples.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -34,7 +34,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -57,8 +57,8 @@
> a.2 <- readBin( con="Alfalfa2.xpt", what=raw(), n=3600 )
>
> ## Test that the files are identical
-> SASxport:::assert( all(a.1 == a.2) )
+> stopifnot( all(a.1 == a.2) )
>
> proc.time()
user system elapsed
- 0.478 0.037 0.508
+ 0.487 0.038 0.517
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/Theoph.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -36,7 +36,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -51,10 +51,10 @@
> ## Test equality, handling the ordered factor Subject separately because
> ## SAS xport files don't provide a mechanism for storing factor orders
>
-> SASxport:::assert( all( as.character(Theoph$Subject) == as.character(Theoph.2$Subject) ))
-> SASxport:::assert( all(Theoph[,-1] == Theoph.2[,-1]) )
+> stopifnot( all( as.character(Theoph$Subject) == as.character(Theoph.2$Subject) ))
+> stopifnot( all(Theoph[,-1] == Theoph.2[,-1]) )
>
>
> proc.time()
user system elapsed
- 0.639 0.039 0.683
+ 0.692 0.045 0.747
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/cars.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -74,8 +74,8 @@
> a.2 <- readBin( con="cars2.xpt", what=raw(), n=1e5)
>
> ## Test that the files are identical
-> SASxport:::assert( all(a.1 == a.2) )
+> stopifnot( all(a.1 == a.2) )
>
> proc.time()
user system elapsed
- 0.482 0.038 0.506
+ 0.496 0.038 0.524
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/testDates.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -76,4 +76,4 @@
>
> proc.time()
user system elapsed
- 0.509 0.037 0.541
+ 0.506 0.038 0.534
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -84,4 +84,4 @@
>
> proc.time()
user system elapsed
- 0.534 0.038 0.569
+ 0.539 0.042 0.568
Modified: trunk/SASxport/tests/testEmpty.Rout.save
===================================================================
--- trunk/SASxport/tests/testEmpty.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/testEmpty.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -84,4 +84,4 @@
>
> proc.time()
user system elapsed
- 0.555 0.040 0.589
+ 0.560 0.043 0.593
Modified: trunk/SASxport/tests/testExamples.Rout.save
===================================================================
--- trunk/SASxport/tests/testExamples.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/testExamples.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -968,4 +968,4 @@
>
> proc.time()
user system elapsed
- 0.779 0.050 0.833
+ 0.770 0.057 0.816
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -109,4 +109,4 @@
>
> proc.time()
user system elapsed
- 4.563 0.056 4.649
+ 4.964 0.063 5.039
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/testNegative.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -50,7 +50,7 @@
1 1 -1
2 -1 1
>
-> SASxport:::assert(all(df1==df2))
+> stopifnot(all(df1==df2))
>
> df3 <- data.frame(x.continuous=seq(-100,100,by=0.5), x.integer=as.integer(seq(-100,100,by=0.5)) )
> write.xport(df3, file='df3.xpt')
@@ -58,8 +58,8 @@
In makeSASNames(colnames(df)) : Truncated 2 long names to 8 characters.
> df4 <- read.xport(file='df3.xpt')
>
-> SASxport:::assert(all(df3==df4))
+> stopifnot(all(df3==df4))
>
> proc.time()
user system elapsed
- 0.530 0.036 0.560
+ 0.610 0.045 0.644
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -55,7 +55,7 @@
2: In xport.numeric(val) : IBM exponent overflow, generating NA
> df.2 <- read.xport(file='testNumeric.xpt')
>
-> SASxport:::assert( all(df == df.2, na.rm=TRUE) )
+> stopifnot( all(df == df.2, na.rm=TRUE) )
> df.2
INTS DBLS CHAR
1 NA NA <NA>
@@ -81,7 +81,7 @@
> df.2 <- read.xport(file='testNumeric.xpt')
>
>
-> SASxport:::assert(all(df==df.2,na.rm=TRUE))
+> stopifnot(all(df==df.2,na.rm=TRUE))
> df.2
INTS DBLS CHAR
1 NA NA <NA>
@@ -101,4 +101,4 @@
>
> proc.time()
user system elapsed
- 0.615 0.037 0.645
+ 0.628 0.042 0.660
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -1444,7 +1444,7 @@
> failure <- try( write.xport(5,"a.xpt") ) #10.a
Error in write.xport(5, "a.xpt") :
'5', 'a.xpt' are not data.frame objects.
-> SASxport:::assert( "try-error" %in% class(failure) ) #10.b
+> stopifnot( "try-error" %in% class(failure) ) #10.b
> (tmp <- read.xport("a.xpt")) #10.c
$DATA1
RACE AGE D1 DT1 T1
@@ -1558,7 +1558,7 @@
> failure <- try( write.xport(list(a=5,b=6),"a.xpt") ) #11.a
Error in write.xport(list(a = 5, b = 6), "a.xpt") :
'list(a = 5, b = 6)', 'a.xpt' are not data.frame objects.
-> SASxport:::assert( "try-error" %in% class(failure) ) #11.b
+> stopifnot( "try-error" %in% class(failure) ) #11.b
> (tmp <- read.xport("a.xpt")) #10.c
$DATA1
RACE AGE D1 DT1 T1
@@ -2130,4 +2130,4 @@
>
> proc.time()
user system elapsed
- 1.648 0.070 1.728
+ 1.694 0.074 1.774
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -65,7 +65,7 @@
- attr(*, "label")= chr " "
- attr(*, "SAStype")= chr " "
>
-> SASxport:::assert( class(x$STATE)=="factor" )
+> stopifnot( class(x$STATE)=="factor" )
>
> ## When as.is=TRUE, character variable "STATE" should be preserved as
> ## a character variable.
@@ -79,10 +79,10 @@
- attr(*, "label")= chr " "
- attr(*, "SAStype")= chr " "
>
-> SASxport:::assert( class(x$STATE)=="character" )
+> stopifnot( class(x$STATE)=="character" )
>
>
>
> proc.time()
user system elapsed
- 0.465 0.036 0.495
+ 0.471 0.038 0.498
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/test_fields.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -42,8 +42,8 @@
> .C("doTest",PACKAGE="SASxport")
list()
>
-> ## Successful completion means all SASxport:::assertions have been met
+> ## Successful completion means all assertions have been met
>
> proc.time()
user system elapsed
- 0.404 0.035 0.431
+ 0.445 0.044 0.510
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/xport.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -120,4 +120,4 @@
> q()
> proc.time()
user system elapsed
- 0.467 0.036 0.497
+ 0.566 0.051 0.604
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2014-07-18 12:08:03 UTC (rev 1834)
+++ trunk/SASxport/tests/xxx.Rout.save 2014-07-18 12:10:22 UTC (rev 1835)
@@ -31,7 +31,7 @@
format.pval, round.POSIXt, trunc.POSIXt, units
-Loaded SASxport version 1.4.1 (2014-07-16).
+Loaded SASxport version 1.4.2 (2014-07-17).
Type `?SASxport' for usage information.
@@ -86,11 +86,11 @@
> a.1[1089] <- as.raw("0x2e")
>
> ## Test that the files are otherwise identical
-> SASxport:::assert( all(a.1 == a.2) )
-> SASxport:::assert( all(a.1 == a.3) )
+> stopifnot( all(a.1 == a.2) )
+> stopifnot( all(a.1 == a.3) )
>
>
>
> proc.time()
user system elapsed
- 0.454 0.038 0.482
+ 0.479 0.038 0.509
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2014-07-18 15:29:16
|
Revision: 1836
http://sourceforge.net/p/r-gregmisc/code/1836
Author: warnes
Date: 2014-07-18 15:29:13 +0000 (Fri, 18 Jul 2014)
Log Message:
-----------
Write file data as hex bytes so R CMD check's diff can display up differences.
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.R
trunk/SASxport/tests/cars.R
trunk/SASxport/tests/xxx.R
Modified: trunk/SASxport/tests/Alfalfa_Test.R
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.R 2014-07-18 12:10:22 UTC (rev 1835)
+++ trunk/SASxport/tests/Alfalfa_Test.R 2014-07-18 15:29:13 UTC (rev 1836)
@@ -20,5 +20,8 @@
a.1 <- readBin( con="Alfalfa.xpt", what=raw(), n=3600 )
a.2 <- readBin( con="Alfalfa2.xpt", what=raw(), n=3600 )
+## Display for diff
+a.2
+
## Test that the files are identical
stopifnot( all(a.1 == a.2) )
Modified: trunk/SASxport/tests/cars.R
===================================================================
--- trunk/SASxport/tests/cars.R 2014-07-18 12:10:22 UTC (rev 1835)
+++ trunk/SASxport/tests/cars.R 2014-07-18 15:29:13 UTC (rev 1836)
@@ -15,7 +15,7 @@
cDate=strptime("28JUL07: 20:59:49", format="%d%b%y:%H:%M:%S"),
osType="SunOS",
sasVer="9.1",
- autogen.formats=FALSE
+ autogen.formats=FALSE
)
@@ -23,5 +23,8 @@
a.1 <- readBin( con="cars.xpt", what=raw(), n=1e5)
a.2 <- readBin( con="cars2.xpt", what=raw(), n=1e5)
+## Display for diff
+a.2
+
## Test that the files are identical
stopifnot( all(a.1 == a.2) )
Modified: trunk/SASxport/tests/xxx.R
===================================================================
--- trunk/SASxport/tests/xxx.R 2014-07-18 12:10:22 UTC (rev 1835)
+++ trunk/SASxport/tests/xxx.R 2014-07-18 15:29:13 UTC (rev 1836)
@@ -31,7 +31,7 @@
cDate=strptime("28JUL07:21:08:06 ", format="%d%b%y:%H:%M:%S"),
osType="SunOS",
sasVer="9.1",
- autogen.formats=FALSE
+ autogen.formats=FALSE
)
@@ -45,10 +45,15 @@
## R doesn't have multiple NA types, while SAS does. The original
## file contains a SAS '.A' missing value, while what we've created
## contains an ordinary '.' missing value, so mash this one byte to
-## avoid a comparison error for this known limitation.
+## avoid a comparison error for this known limitation.
a.1[1089] <- as.raw("0x2e")
+## Display the created files for diff
+a.2
+
+a.3
+
## Test that the files are otherwise identical
stopifnot( all(a.1 == a.2) )
stopifnot( all(a.1 == a.3) )
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2014-07-18 15:29:39
|
Revision: 1837
http://sourceforge.net/p/r-gregmisc/code/1837
Author: warnes
Date: 2014-07-18 15:29:30 +0000 (Fri, 18 Jul 2014)
Log Message:
-----------
Update .save files
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testEmpty.Rout.save
trunk/SASxport/tests/testExamples.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -56,9 +56,159 @@
> a.1 <- readBin( con="Alfalfa.xpt", what=raw(), n=3600 )
> a.2 <- readBin( con="Alfalfa2.xpt", what=raw(), n=3600 )
>
+> ## Display for diff
+> a.2
+ [1] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4c 49 42 52
+ [25] 41 52 59 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+ [49] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+ [73] 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 53 41 53 20 20 20 20 20
+ [97] 53 41 53 4c 49 42 20 20 37 2e 30 30 20 20 20 20 4f 53 46 31 00 00 00 00
+ [121] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [145] 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30 31 30 44 45 43 39 39 3a
+ [169] 31 35 3a 35 36 3a 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [193] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [217] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [241] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4d 45 4d 42
+ [265] 45 52 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+ [289] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 36 30 30 30 30 30
+ [313] 30 30 30 31 34 30 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+ [337] 2a 2a 2a 2a 44 53 43 52 50 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
+ [361] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+ [385] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20
+ [409] 53 50 45 43 20 20 20 20 53 41 53 44 41 54 41 20 37 2e 30 30 20 20 20 20
+ [433] 4f 53 46 31 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [457] 20 20 20 20 20 20 20 20 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30
+ [481] 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30 20 20 20 20 20 20 20 20
+ [505] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [529] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [553] 20 20 20 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+ [577] 2a 2a 2a 2a 4e 41 4d 45 53 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
+ [601] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 36 30 30 30 30 30 30
+ [625] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 00 02 00 00 00 08 00 01
+ [649] 50 4f 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [673] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [697] 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20
+ [721] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [745] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [769] 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 08 00 02 53 41 4d 50
+ [793] 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [817] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [841] 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00
+ [865] 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [889] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [913] 00 00 00 00 00 00 00 00 00 01 00 00 00 08 00 03 52 45 50 20 20 20 20 20
+ [937] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [961] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [985] 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 10
+[1009] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1033] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1057] 00 00 00 00 00 01 00 00 00 08 00 04 53 45 45 44 57 54 20 20 20 20 20 20
+[1081] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+[1105] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00
+[1129] 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 18 00 00 00 00
+[1153] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1177] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1201] 00 01 00 00 00 08 00 05 48 41 52 56 31 20 20 20 20 20 20 20 20 20 20 20
+[1225] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+[1249] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00
+[1273] 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00
+[1297] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1321] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00
+[1345] 00 08 00 06 48 41 52 56 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+[1369] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+[1393] 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20
+[1417] 20 20 20 20 00 00 00 00 00 00 00 28 00 00 00 00 00 00 00 00 00 00 00 00
+[1441] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1465] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20
+[1489] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+[1513] 20 20 20 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+[1537] 2a 2a 2a 2a 4f 42 53 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52
+[1561] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+[1585] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 6d 69 6e 20 20 20 20 20
+[1609] 00 00 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 40 00 00 00 00 00 00
+[1633] 42 ab b3 33 33 33 33 30 42 b4 4c cc cc cc cc d0 6d 69 6e 20 20 20 20 20
+[1657] 41 10 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 36 00 00 00 00 00 00
+[1681] 42 8a 33 33 33 33 33 30 42 96 b3 33 33 33 33 30 6d 69 6e 20 20 20 20 20
+[1705] 41 20 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 28 00 00 00 00 00 00
+[1729] 42 91 99 99 99 99 99 98 42 81 19 99 99 99 99 98 6d 69 6e 20 20 20 20 20
+[1753] 41 30 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 2d 00 00 00 00 00 00
+[1777] 42 aa 66 66 66 66 66 68 42 bf 33 33 33 33 33 30 6d 69 6e 20 20 20 20 20
+[1801] 41 40 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 40 00 00 00 00 00 00
+[1825] 42 7c cc cc cc cc cc cc 42 ac 99 99 99 99 99 98 4d 41 58 20 20 20 20 20
+[1849] 41 50 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 4b 00 00 00 00 00 00
+[1873] 42 b3 00 00 00 00 00 00 42 eb 4c cc cc cc cc d0 4d 41 58 20 20 20 20 20
+[1897] 41 60 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 2d 00 00 00 00 00 00
+[1921] 42 a6 4c cc cc cc cc d0 42 ad e6 66 66 66 66 68 4d 41 58 20 20 20 20 20
+[1945] 41 70 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 3f 00 00 00 00 00 00
+[1969] 42 a9 b3 33 33 33 33 30 42 9b cc cc cc cc cc d0 4d 41 58 20 20 20 20 20
+[1993] 41 80 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 41 00 00 00 00 00 00
+[2017] 42 c0 e6 66 66 66 66 68 42 b1 99 99 99 99 99 98 4d 41 58 20 20 20 20 20
+[2041] 41 90 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
+[2065] 42 b9 cc cc cc cc cc d0 42 b3 33 33 33 33 33 30 6d 69 6e 20 20 20 20 20
+[2089] 00 00 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
+[2113] 42 9e cc cc cc cc cc d0 42 8b b3 33 33 33 33 30 6d 69 6e 20 20 20 20 20
+[2137] 41 10 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 2e 00 00 00 00 00 00
+[2161] 42 a3 b3 33 33 33 33 30 42 96 00 00 00 00 00 00 6d 69 6e 20 20 20 20 20
+[2185] 41 20 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 2a 00 00 00 00 00 00
+[2209] 42 78 99 99 99 99 99 98 42 83 19 99 99 99 99 98 6d 69 6e 20 20 20 20 20
+[2233] 41 30 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 26 00 00 00 00 00 00
+[2257] 42 c1 19 99 99 99 99 98 42 c3 66 66 66 66 66 68 6d 69 6e 20 20 20 20 20
+[2281] 41 40 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 36 00 00 00 00 00 00
+[2305] 42 ab 80 00 00 00 00 00 42 a7 99 99 99 99 99 98 4d 41 58 20 20 20 20 20
+[2329] 41 50 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
+[2353] 42 b5 66 66 66 66 66 68 42 98 e6 66 66 66 66 68 4d 41 58 20 20 20 20 20
+[2377] 41 60 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3c 00 00 00 00 00 00
+[2401] 42 a5 4c cc cc cc cc d0 42 a7 80 00 00 00 00 00 4d 41 58 20 20 20 20 20
+[2425] 41 70 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3f 00 00 00 00 00 00
+[2449] 42 a3 e6 66 66 66 66 68 42 9e 00 00 00 00 00 00 4d 41 58 20 20 20 20 20
+[2473] 41 80 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 46 00 00 00 00 00 00
+[2497] 42 98 80 00 00 00 00 00 42 96 33 33 33 33 33 30 4d 41 58 20 20 20 20 20
+[2521] 41 90 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3e 00 00 00 00 00 00
+[2545] 42 ad 80 00 00 00 00 00 42 be b3 33 33 33 33 30 6d 69 6e 20 20 20 20 20
+[2569] 00 00 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3c 00 00 00 00 00 00
+[2593] 42 93 e6 66 66 66 66 68 42 a4 e6 66 66 66 66 68 6d 69 6e 20 20 20 20 20
+[2617] 41 10 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 2a 00 00 00 00 00 00
+[2641] 42 b5 4c cc cc cc cc d0 42 97 80 00 00 00 00 00 6d 69 6e 20 20 20 20 20
+[2665] 41 20 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 23 00 00 00 00 00 00
+[2689] 42 7c 4c cc cc cc cc cc 42 86 66 66 66 66 66 68 6d 69 6e 20 20 20 20 20
+[2713] 41 30 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 2f 00 00 00 00 00 00
+[2737] 42 ae cc cc cc cc cc d0 42 c8 cc cc cc cc cc d0 6d 69 6e 20 20 20 20 20
+[2761] 41 40 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
+[2785] 42 a7 cc cc cc cc cc d0 42 b2 4c cc cc cc cc d0 4d 41 58 20 20 20 20 20
+[2809] 41 50 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 39 00 00 00 00 00 00
+[2833] 42 c1 66 66 66 66 66 68 42 b7 80 00 00 00 00 00 4d 41 58 20 20 20 20 20
+[2857] 41 60 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3c 00 00 00 00 00 00
+[2881] 42 96 b3 33 33 33 33 30 42 93 19 99 99 99 99 98 4d 41 58 20 20 20 20 20
+[2905] 41 70 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
+[2929] 42 8e 80 00 00 00 00 00 42 94 b3 33 33 33 33 30 4d 41 58 20 20 20 20 20
+[2953] 41 80 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
+[2977] 42 b0 66 66 66 66 66 68 42 cc cc cc cc cc cc d0 4d 41 58 20 20 20 20 20
+[3001] 41 90 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 46 00 00 00 00 00 00
+[3025] 42 90 33 33 33 33 33 30 42 8f cc cc cc cc cc d0 6d 69 6e 20 20 20 20 20
+[3049] 00 00 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 3d 00 00 00 00 00 00
+[3073] 42 94 66 66 66 66 66 68 42 a8 cc cc cc cc cc d0 6d 69 6e 20 20 20 20 20
+[3097] 41 10 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 34 00 00 00 00 00 00
+[3121] 42 a4 e6 66 66 66 66 68 42 9e 99 99 99 99 99 98 6d 69 6e 20 20 20 20 20
+[3145] 41 20 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 2b 00 00 00 00 00 00
+[3169] 42 8d 33 33 33 33 33 30 42 9e 19 99 99 99 99 98 6d 69 6e 20 20 20 20 20
+[3193] 41 30 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 31 00 00 00 00 00 00
+[3217] 42 b0 80 00 00 00 00 00 42 d0 4c cc cc cc cc d0 6d 69 6e 20 20 20 20 20
+[3241] 41 40 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 3c 00 00 00 00 00 00
+[3265] 42 b1 80 00 00 00 00 00 42 89 19 99 99 99 99 98 4d 41 58 20 20 20 20 20
+[3289] 41 50 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
+[3313] 42 ae 19 99 99 99 99 98 42 a0 33 33 33 33 33 30 4d 41 58 20 20 20 20 20
+[3337] 41 60 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 30 00 00 00 00 00 00
+[3361] 42 9b 80 00 00 00 00 00 42 b9 cc cc cc cc cc d0 4d 41 58 20 20 20 20 20
+[3385] 41 70 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 3d 00 00 00 00 00 00
+[3409] 42 ba b3 33 33 33 33 30 42 9d b3 33 33 33 33 30 4d 41 58 20 20 20 20 20
+[3433] 41 80 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 40 00 00 00 00 00 00
+[3457] 42 a2 66 66 66 66 66 68 42 b3 66 66 66 66 66 68 4d 41 58 20 20 20 20 20
+[3481] 41 90 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 47 00 00 00 00 00 00
+[3505] 42 8d 00 00 00 00 00 00 42 a1 80 00 00 00 00 00
+>
> ## Test that the files are identical
> stopifnot( all(a.1 == a.2) )
>
> proc.time()
user system elapsed
- 0.487 0.038 0.517
+ 0.454 0.043 0.484
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/Theoph.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -57,4 +57,4 @@
>
> proc.time()
user system elapsed
- 0.692 0.045 0.747
+ 0.776 0.047 0.832
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/cars.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -65,7 +65,7 @@
+ cDate=strptime("28JUL07: 20:59:49", format="%d%b%y:%H:%M:%S"),
+ osType="SunOS",
+ sasVer="9.1",
-+ autogen.formats=FALSE
++ autogen.formats=FALSE
+ )
>
>
@@ -73,9 +73,116 @@
> a.1 <- readBin( con="cars.xpt", what=raw(), n=1e5)
> a.2 <- readBin( con="cars2.xpt", what=raw(), n=1e5)
>
+> ## Display for diff
+> a.2
+ [1] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4c 49 42 52
+ [25] 41 52 59 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+ [49] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+ [73] 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 53 41 53 20 20 20 20 20
+ [97] 53 41 53 4c 49 42 20 20 39 2e 31 20 20 20 20 20 53 75 6e 4f 53 00 00 00
+ [121] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [145] 32 38 4a 55 4c 30 37 3a 32 30 3a 35 39 3a 34 39 32 38 4a 55 4c 30 37 3a
+ [169] 32 30 3a 35 39 3a 34 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [193] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [217] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [241] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4d 45 4d 42
+ [265] 45 52 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+ [289] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 36 30 30 30 30 30
+ [313] 30 30 30 31 34 30 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+ [337] 2a 2a 2a 2a 44 53 43 52 50 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
+ [361] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+ [385] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20
+ [409] 43 41 52 53 20 20 20 20 53 41 53 44 41 54 41 20 39 2e 31 20 20 20 20 20
+ [433] 53 75 6e 4f 53 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [457] 20 20 20 20 20 20 20 20 32 38 4a 55 4c 30 37 3a 32 30 3a 35 39 3a 34 39
+ [481] 32 38 4a 55 4c 30 37 3a 32 30 3a 35 39 3a 34 39 20 20 20 20 20 20 20 20
+ [505] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [529] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [553] 20 20 20 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+ [577] 2a 2a 2a 2a 4e 41 4d 45 53 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
+ [601] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 35 30 30 30 30 30 30
+ [625] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 00 02 00 00 00 08 00 01
+ [649] 4d 41 4b 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [673] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [697] 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20
+ [721] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [745] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [769] 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 08 00 02 50 52 49 43
+ [793] 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [817] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [841] 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00
+ [865] 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [889] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [913] 00 00 00 00 00 00 00 00 00 01 00 00 00 08 00 03 4d 50 47 20 20 20 20 20
+ [937] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [961] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [985] 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 10
+[1009] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1033] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1057] 00 00 00 00 00 01 00 00 00 08 00 04 52 45 50 37 38 20 20 20 20 20 20 20
+[1081] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+[1105] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00
+[1129] 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 18 00 00 00 00
+[1153] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1177] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1201] 00 01 00 00 00 08 00 05 46 4f 52 45 49 47 4e 20 20 20 20 20 20 20 20 20
+[1225] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+[1249] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00
+[1273] 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00
+[1297] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1321] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20
+[1345] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 45 41 44 45 52 20 52
+[1369] 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4f 42 53 20 20 20 20 20 48 45 41 44
+[1393] 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30
+[1417] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20
+[1441] 41 4d 43 20 20 20 20 20 44 10 03 00 00 00 00 00 42 16 00 00 00 00 00 00
+[1465] 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 41 4d 43 20 20 20 20 20
+[1489] 44 12 8d 00 00 00 00 00 42 11 00 00 00 00 00 00 41 30 00 00 00 00 00 00
+[1513] 00 00 00 00 00 00 00 00 41 4d 43 20 20 20 20 20 43 ed 70 00 00 00 00 00
+[1537] 42 16 00 00 00 00 00 00 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1561] 41 75 64 69 20 20 20 20 44 25 da 00 00 00 00 00 42 11 00 00 00 00 00 00
+[1585] 41 50 00 00 00 00 00 00 41 10 00 00 00 00 00 00 41 75 64 69 20 20 20 20
+[1609] 44 18 97 00 00 00 00 00 42 17 00 00 00 00 00 00 41 30 00 00 00 00 00 00
+[1633] 41 10 00 00 00 00 00 00 42 4d 57 20 20 20 20 20 44 26 07 00 00 00 00 00
+[1657] 42 19 00 00 00 00 00 00 41 40 00 00 00 00 00 00 41 10 00 00 00 00 00 00
+[1681] 42 75 69 63 6b 20 20 20 44 12 d0 00 00 00 00 00 42 14 00 00 00 00 00 00
+[1705] 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 42 75 69 63 6b 20 20 20
+[1729] 44 1e 93 00 00 00 00 00 41 f0 00 00 00 00 00 00 41 40 00 00 00 00 00 00
+[1753] 00 00 00 00 00 00 00 00 42 75 69 63 6b 20 20 20 44 16 9c 00 00 00 00 00
+[1777] 42 12 00 00 00 00 00 00 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1801] 42 75 69 63 6b 20 20 20 44 11 65 00 00 00 00 00 42 1a 00 00 00 00 00 00
+[1825] 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 42 75 69 63 6b 20 20 20
+[1849] 44 14 45 00 00 00 00 00 42 14 00 00 00 00 00 00 41 30 00 00 00 00 00 00
+[1873] 00 00 00 00 00 00 00 00 42 75 69 63 6b 20 20 20 44 28 84 00 00 00 00 00
+[1897] 42 10 00 00 00 00 00 00 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[1921] 42 75 69 63 6b 20 20 20 43 ff 20 00 00 00 00 00 42 13 00 00 00 00 00 00
+[1945] 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 43 61 64 2e 20 20 20 20
+[1969] 44 2c 79 00 00 00 00 00 41 e0 00 00 00 00 00 00 41 30 00 00 00 00 00 00
+[1993] 00 00 00 00 00 00 00 00 43 61 64 2e 20 20 20 20 44 38 a4 00 00 00 00 00
+[2017] 41 e0 00 00 00 00 00 00 41 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[2041] 43 61 64 2e 20 20 20 20 44 3e 22 00 00 00 00 00 42 15 00 00 00 00 00 00
+[2065] 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 43 68 65 76 2e 20 20 20
+[2089] 43 ce 30 00 00 00 00 00 42 1d 00 00 00 00 00 00 41 30 00 00 00 00 00 00
+[2113] 00 00 00 00 00 00 00 00 43 68 65 76 2e 20 20 20 44 16 49 00 00 00 00 00
+[2137] 42 10 00 00 00 00 00 00 41 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[2161] 43 68 65 76 2e 20 20 20 44 11 98 00 00 00 00 00 42 16 00 00 00 00 00 00
+[2185] 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 43 68 65 76 2e 20 20 20
+[2209] 44 13 f0 00 00 00 00 00 42 16 00 00 00 00 00 00 41 20 00 00 00 00 00 00
+[2233] 00 00 00 00 00 00 00 00 43 68 65 76 2e 20 20 20 43 e5 30 00 00 00 00 00
+[2257] 42 18 00 00 00 00 00 00 41 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+[2281] 43 68 65 76 2e 20 20 20 43 f7 30 00 00 00 00 00 42 13 00 00 00 00 00 00
+[2305] 41 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 61 74 73 75 6e 20 20
+[2329] 44 18 55 00 00 00 00 00 42 17 00 00 00 00 00 00 41 40 00 00 00 00 00 00
+[2353] 41 10 00 00 00 00 00 00 44 61 74 73 75 6e 20 20 44 11 ed 00 00 00 00 00
+[2377] 42 23 00 00 00 00 00 00 41 50 00 00 00 00 00 00 41 10 00 00 00 00 00 00
+[2401] 44 61 74 73 75 6e 20 20 44 13 d7 00 00 00 00 00 42 18 00 00 00 00 00 00
+[2425] 41 40 00 00 00 00 00 00 41 10 00 00 00 00 00 00 44 61 74 73 75 6e 20 20
+[2449] 44 1f c1 00 00 00 00 00 42 15 00 00 00 00 00 00 41 40 00 00 00 00 00 00
+[2473] 41 10 00 00 00 00 00 00
+>
> ## Test that the files are identical
> stopifnot( all(a.1 == a.2) )
>
> proc.time()
user system elapsed
- 0.496 0.038 0.524
+ 0.485 0.042 0.518
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/testDates.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -76,4 +76,4 @@
>
> proc.time()
user system elapsed
- 0.506 0.038 0.534
+ 0.519 0.040 0.554
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -84,4 +84,4 @@
>
> proc.time()
user system elapsed
- 0.539 0.042 0.568
+ 0.499 0.039 0.526
Modified: trunk/SASxport/tests/testEmpty.Rout.save
===================================================================
--- trunk/SASxport/tests/testEmpty.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/testEmpty.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -84,4 +84,4 @@
>
> proc.time()
user system elapsed
- 0.560 0.043 0.593
+ 0.537 0.038 0.568
Modified: trunk/SASxport/tests/testExamples.Rout.save
===================================================================
--- trunk/SASxport/tests/testExamples.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/testExamples.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -968,4 +968,4 @@
>
> proc.time()
user system elapsed
- 0.770 0.057 0.816
+ 0.763 0.066 0.814
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -109,4 +109,4 @@
>
> proc.time()
user system elapsed
- 4.964 0.063 5.039
+ 4.450 0.056 4.500
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/testNegative.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -62,4 +62,4 @@
>
> proc.time()
user system elapsed
- 0.610 0.045 0.644
+ 0.517 0.039 0.543
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -101,4 +101,4 @@
>
> proc.time()
user system elapsed
- 0.628 0.042 0.660
+ 0.603 0.043 0.635
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -2130,4 +2130,4 @@
>
> proc.time()
user system elapsed
- 1.694 0.074 1.774
+ 1.593 0.080 1.671
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -85,4 +85,4 @@
>
> proc.time()
user system elapsed
- 0.471 0.038 0.498
+ 0.449 0.037 0.475
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/test_fields.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -46,4 +46,4 @@
>
> proc.time()
user system elapsed
- 0.445 0.044 0.510
+ 0.387 0.034 0.409
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/xport.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -120,4 +120,4 @@
> q()
> proc.time()
user system elapsed
- 0.566 0.051 0.604
+ 0.447 0.037 0.471
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2014-07-18 15:29:13 UTC (rev 1836)
+++ trunk/SASxport/tests/xxx.Rout.save 2014-07-18 15:29:30 UTC (rev 1837)
@@ -67,7 +67,7 @@
+ cDate=strptime("28JUL07:21:08:06 ", format="%d%b%y:%H:%M:%S"),
+ osType="SunOS",
+ sasVer="9.1",
-+ autogen.formats=FALSE
++ autogen.formats=FALSE
+ )
>
>
@@ -81,10 +81,109 @@
> ## R doesn't have multiple NA types, while SAS does. The original
> ## file contains a SAS '.A' missing value, while what we've created
> ## contains an ordinary '.' missing value, so mash this one byte to
-> ## avoid a comparison error for this known limitation.
+> ## avoid a comparison error for this known limitation.
>
> a.1[1089] <- as.raw("0x2e")
>
+> ## Display the created files for diff
+> a.2
+ [1] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4c 49 42 52
+ [25] 41 52 59 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+ [49] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+ [73] 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 53 41 53 20 20 20 20 20
+ [97] 53 41 53 4c 49 42 20 20 39 2e 31 20 20 20 20 20 53 75 6e 4f 53 00 00 00
+ [121] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [145] 32 38 4a 55 4c 30 37 3a 32 31 3a 30 38 3a 30 36 32 38 4a 55 4c 30 37 3a
+ [169] 32 31 3a 30 38 3a 30 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [193] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [217] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [241] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4d 45 4d 42
+ [265] 45 52 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+ [289] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 36 30 30 30 30 30
+ [313] 30 30 30 31 34 30 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+ [337] 2a 2a 2a 2a 44 53 43 52 50 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
+ [361] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+ [385] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20
+ [409] 41 42 43 20 20 20 20 20 53 41 53 44 41 54 41 20 39 2e 31 20 20 20 20 20
+ [433] 53 75 6e 4f 53 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [457] 20 20 20 20 20 20 20 20 32 38 4a 55 4c 30 37 3a 32 31 3a 30 38 3a 30 36
+ [481] 32 38 4a 55 4c 30 37 3a 32 31 3a 30 38 3a 30 36 20 20 20 20 20 20 20 20
+ [505] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [529] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [553] 20 20 20 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+ [577] 2a 2a 2a 2a 4e 41 4d 45 53 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
+ [601] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 32 30 30 30 30 30 30
+ [625] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 00 01 00 00 00 08 00 01
+ [649] 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [673] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [697] 44 41 54 45 20 20 20 20 00 07 00 00 00 00 00 00 20 20 20 20 20 20 20 20
+ [721] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [745] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [769] 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 08 00 02 59 20 20 20
+ [793] 20 20 20 20 63 68 61 72 61 63 74 65 72 20 76 61 72 69 61 62 6c 65 20 20
+ [817] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [841] 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00
+ [865] 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [889] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [913] 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [937] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [961] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4f 42 53 20
+ [985] 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+[1009] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+[1033] 30 30 30 30 30 30 20 20 41 10 00 00 00 00 00 00 61 20 20 20 20 20 20 20
+[1057] 41 20 00 00 00 00 00 00 42 20 20 20 20 20 20 20 2e 00 00 00 00 00 00 00
+[1081] 20 20 20 20 20 20 20 20 2e 00 00 00 00 00 00 00 2a 20 20 20 20 20 20 20
+[1105] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+>
+> a.3
+ [1] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4c 49 42 52
+ [25] 41 52 59 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+ [49] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+ [73] 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 53 41 53 20 20 20 20 20
+ [97] 53 41 53 4c 49 42 20 20 39 2e 31 20 20 20 20 20 53 75 6e 4f 53 00 00 00
+ [121] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [145] 32 38 4a 55 4c 30 37 3a 32 31 3a 30 38 3a 30 36 32 38 4a 55 4c 30 37 3a
+ [169] 32 31 3a 30 38 3a 30 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [193] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [217] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [241] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4d 45 4d 42
+ [265] 45 52 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+ [289] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 36 30 30 30 30 30
+ [313] 30 30 30 31 34 30 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+ [337] 2a 2a 2a 2a 44 53 43 52 50 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
+ [361] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+ [385] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20
+ [409] 41 42 43 20 20 20 20 20 53 41 53 44 41 54 41 20 39 2e 31 20 20 20 20 20
+ [433] 53 75 6e 4f 53 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [457] 20 20 20 20 20 20 20 20 32 38 4a 55 4c 30 37 3a 32 31 3a 30 38 3a 30 36
+ [481] 32 38 4a 55 4c 30 37 3a 32 31 3a 30 38 3a 30 36 20 20 20 20 20 20 20 20
+ [505] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [529] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [553] 20 20 20 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
+ [577] 2a 2a 2a 2a 4e 41 4d 45 53 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
+ [601] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 32 30 30 30 30 30 30
+ [625] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 00 01 00 00 00 08 00 01
+ [649] 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [673] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [697] 44 41 54 45 20 20 20 20 00 07 00 00 00 00 00 00 20 20 20 20 20 20 20 20
+ [721] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [745] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [769] 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 08 00 02 59 20 20 20
+ [793] 20 20 20 20 63 68 61 72 61 63 74 65 72 20 76 61 72 69 61 62 6c 65 20 20
+ [817] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [841] 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00
+ [865] 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [889] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ [913] 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [937] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+ [961] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4f 42 53 20
+ [985] 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
+[1009] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
+[1033] 30 30 30 30 30 30 20 20 41 10 00 00 00 00 00 00 61 20 20 20 20 20 20 20
+[1057] 41 20 00 00 00 00 00 00 42 20 20 20 20 20 20 20 2e 00 00 00 00 00 00 00
+[1081] 20 20 20 20 20 20 20 20 2e 00 00 00 00 00 00 00 2a 20 20 20 20 20 20 20
+[1105] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+>
> ## Test that the files are otherwise identical
> stopifnot( all(a.1 == a.2) )
> stopifnot( all(a.1 == a.3) )
@@ -93,4 +192,4 @@
>
> proc.time()
user system elapsed
- 0.479 0.038 0.509
+ 0.467 0.044 0.502
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <wa...@us...> - 2014-07-18 17:12:04
|
Revision: 1840
http://sourceforge.net/p/r-gregmisc/code/1840
Author: warnes
Date: 2014-07-18 17:11:52 +0000 (Fri, 18 Jul 2014)
Log Message:
-----------
Update test output
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.R
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.R
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testEmpty.Rout.save
trunk/SASxport/tests/testExamples.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.Rout.save
trunk/SASxport/tests/test_fields.Rout.save
trunk/SASxport/tests/xport.Rout.save
trunk/SASxport/tests/xxx.R
trunk/SASxport/tests/xxx.Rout.save
Modified: trunk/SASxport/tests/Alfalfa_Test.R
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.R 2014-07-18 17:04:07 UTC (rev 1839)
+++ trunk/SASxport/tests/Alfalfa_Test.R 2014-07-18 17:11:52 UTC (rev 1840)
@@ -16,12 +16,20 @@
autogen.formats=FALSE
)
+## Display for diff
+write.xport(SPEC,
+ file="", # display inline
+ cDate=strptime("10DEC99:15:56:30", format="%d%b%y:%H:%M:%S"),
+ osType="OSF1",
+ sasVer="7.00",
+ autogen.formats=FALSE,
+ verbose=TRUE
+ )
+
+
## Load both files back in as raw data
a.1 <- readBin( con="Alfalfa.xpt", what=raw(), n=3600 )
a.2 <- readBin( con="Alfalfa2.xpt", what=raw(), n=3600 )
-## Display for diff
-a.2
-
## Test that the files are identical
stopifnot( all(a.1 == a.2) )
Modified: trunk/SASxport/tests/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-07-18 17:04:07 UTC (rev 1839)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-07-18 17:11:52 UTC (rev 1840)
@@ -52,163 +52,794 @@
+ autogen.formats=FALSE
+ )
>
+> ## Display for diff
+> write.xport(SPEC,
++ file="", # display inline
++ cDate=strptime("10DEC99:15:56:30", format="%d%b%y:%H:%M:%S"),
++ osType="OSF1",
++ sasVer="7.00",
++ autogen.formats=FALSE,
++ verbose=TRUE
++ )
+### Ensure all objects to be stored are data.frames...
+ ###
+### Ensure object names are valid and unique...
+ ###
+### opening file ... ###
+### Done ###
+### Write file header ... ###
+ASCII: HEADER RECORD*******LIBRARY HEADER RECORD!!!!!!!000000000000000000000000000000 SAS SAS SASLIB 7.00 OSF1.... 10DEC99:15:56:3010DEC99:15:56:30
+HEX: 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4c 49 42 52 41 52 59 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 53 41 53 20 20 20 20 20 53 41 53 4c 49 42 20 20 37 2e 30 30 20 20 20 20 4f 53 46 31 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+### Done. ###
+### Write data frame header ... ###
+ASCII: HEADER RECORD*******MEMBER HEADER RECORD!!!!!!!000000000000000001600000000140 HEADER RECORD*******DSCRPTR HEADER RECORD!!!!!!!000000000000000000000000000000 SAS SPEC SASDATA 7.00 OSF1.... 10DEC99:15:56:3010DEC99:15:56:30
+HEX: 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4d 45 4d 42 45 52 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 36 30 30 30 30 30 30 30 30 31 34 30 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 44 53 43 52 50 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 53 50 45 43 20 20 20 20 53 41 53 44 41 54 41 20 37 2e 30 30 20 20 20 20 4f 53 46 31 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+### Done. ###
+### Write variable information block header ... ###
+ASCII: HEADER RECORD*******NAMESTR HEADER RECORD!!!!!!!000000000600000000000000000000
+HEX: 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4e 41 4d 45 53 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 36 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20
+### Done. ###
+### Write entries for variable information block ... ###
+### POP ... ###
+ASCII: ........POP ........ ............................................................
+HEX: 00 02 00 00 00 08 00 01 50 4f 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### SAMPLE ... ###
+ASCII: ........SAMPLE ........ ............................................................
+HEX: 00 01 00 00 00 08 00 02 53 41 4d 50 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### REP ... ###
+ASCII: ........REP ........ ............................................................
+HEX: 00 01 00 00 00 08 00 03 52 45 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### SEEDWT ... ###
+ASCII: ........SEEDWT ........ ............................................................
+HEX: 00 01 00 00 00 08 00 04 53 45 45 44 57 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### HARV1 ... ###
+ASCII: ........HARV1 ........ ....... ....................................................
+HEX: 00 01 00 00 00 08 00 05 48 41 52 56 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### HARV2 ... ###
+ASCII: ........HARV2 ........ .......(....................................................
+HEX: 00 01 00 00 00 08 00 06 48 41 52 56 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### Done. ###
+ASCII:
+HEX: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+### Write header for data block ... ###
+ASCII: HEADER RECORD*******OBS HEADER RECORD!!!!!!!000000000000000000000000000000
+HEX: 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4f 42 53 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20
+### Done ###
+### Write data ... ###
+### i= 1 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 1 j= 2 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 1 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 1 j= 4 value= 64 len= 8 ###
+ASCII: B@......
+HEX: 42 40 00 00 00 00 00 00
+### i= 1 j= 5 value= 171.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 ab b3 33 33 33 33 30
+### i= 1 j= 6 value= 180.3 len= 8 ###
+ASCII: B.L.....
+HEX: 42 b4 4c cc cc cc cc d0
+### i= 2 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 2 j= 2 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 2 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 2 j= 4 value= 54 len= 8 ###
+ASCII: B6......
+HEX: 42 36 00 00 00 00 00 00
+### i= 2 j= 5 value= 138.2 len= 8 ###
+ASCII: B.333330
+HEX: 42 8a 33 33 33 33 33 30
+### i= 2 j= 6 value= 150.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 96 b3 33 33 33 33 30
+### i= 3 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 3 j= 2 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 3 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 3 j= 4 value= 40 len= 8 ###
+ASCII: B(......
+HEX: 42 28 00 00 00 00 00 00
+### i= 3 j= 5 value= 145.6 len= 8 ###
+ASCII: B.......
+HEX: 42 91 99 99 99 99 99 98
+### i= 3 j= 6 value= 129.1 len= 8 ###
+ASCII: B.......
+HEX: 42 81 19 99 99 99 99 98
+### i= 4 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 4 j= 2 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 4 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 4 j= 4 value= 45 len= 8 ###
+ASCII: B-......
+HEX: 42 2d 00 00 00 00 00 00
+### i= 4 j= 5 value= 170.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 aa 66 66 66 66 66 68
+### i= 4 j= 6 value= 191.2 len= 8 ###
+ASCII: B.333330
+HEX: 42 bf 33 33 33 33 33 30
+### i= 5 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 5 j= 2 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 5 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 5 j= 4 value= 64 len= 8 ###
+ASCII: B@......
+HEX: 42 40 00 00 00 00 00 00
+### i= 5 j= 5 value= 124.8 len= 8 ###
+ASCII: B|......
+HEX: 42 7c cc cc cc cc cc cc
+### i= 5 j= 6 value= 172.6 len= 8 ###
+ASCII: B.......
+HEX: 42 ac 99 99 99 99 99 98
+### i= 6 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 6 j= 2 value= 5 len= 8 ###
+ASCII: AP......
+HEX: 41 50 00 00 00 00 00 00
+### i= 6 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 6 j= 4 value= 75 len= 8 ###
+ASCII: BK......
+HEX: 42 4b 00 00 00 00 00 00
+### i= 6 j= 5 value= 179 len= 8 ###
+ASCII: B.......
+HEX: 42 b3 00 00 00 00 00 00
+### i= 6 j= 6 value= 235.3 len= 8 ###
+ASCII: B.L.....
+HEX: 42 eb 4c cc cc cc cc d0
+### i= 7 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 7 j= 2 value= 6 len= 8 ###
+ASCII: A`......
+HEX: 41 60 00 00 00 00 00 00
+### i= 7 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 7 j= 4 value= 45 len= 8 ###
+ASCII: B-......
+HEX: 42 2d 00 00 00 00 00 00
+### i= 7 j= 5 value= 166.3 len= 8 ###
+ASCII: B.L.....
+HEX: 42 a6 4c cc cc cc cc d0
+### i= 7 j= 6 value= 173.9 len= 8 ###
+ASCII: B..ffffh
+HEX: 42 ad e6 66 66 66 66 68
+### i= 8 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 8 j= 2 value= 7 len= 8 ###
+ASCII: Ap......
+HEX: 41 70 00 00 00 00 00 00
+### i= 8 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 8 j= 4 value= 63 len= 8 ###
+ASCII: B?......
+HEX: 42 3f 00 00 00 00 00 00
+### i= 8 j= 5 value= 169.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 a9 b3 33 33 33 33 30
+### i= 8 j= 6 value= 155.8 len= 8 ###
+ASCII: B.......
+HEX: 42 9b cc cc cc cc cc d0
+### i= 9 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 9 j= 2 value= 8 len= 8 ###
+ASCII: A.......
+HEX: 41 80 00 00 00 00 00 00
+### i= 9 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 9 j= 4 value= 65 len= 8 ###
+ASCII: BA......
+HEX: 42 41 00 00 00 00 00 00
+### i= 9 j= 5 value= 192.9 len= 8 ###
+ASCII: B..ffffh
+HEX: 42 c0 e6 66 66 66 66 68
+### i= 9 j= 6 value= 177.6 len= 8 ###
+ASCII: B.......
+HEX: 42 b1 99 99 99 99 99 98
+### i= 10 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 10 j= 2 value= 9 len= 8 ###
+ASCII: A.......
+HEX: 41 90 00 00 00 00 00 00
+### i= 10 j= 3 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 10 j= 4 value= 59 len= 8 ###
+ASCII: B;......
+HEX: 42 3b 00 00 00 00 00 00
+### i= 10 j= 5 value= 185.8 len= 8 ###
+ASCII: B.......
+HEX: 42 b9 cc cc cc cc cc d0
+### i= 10 j= 6 value= 179.2 len= 8 ###
+ASCII: B.333330
+HEX: 42 b3 33 33 33 33 33 30
+### i= 11 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 11 j= 2 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 11 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 11 j= 4 value= 59 len= 8 ###
+ASCII: B;......
+HEX: 42 3b 00 00 00 00 00 00
+### i= 11 j= 5 value= 158.8 len= 8 ###
+ASCII: B.......
+HEX: 42 9e cc cc cc cc cc d0
+### i= 11 j= 6 value= 139.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 8b b3 33 33 33 33 30
+### i= 12 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 12 j= 2 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 12 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 12 j= 4 value= 46 len= 8 ###
+ASCII: B.......
+HEX: 42 2e 00 00 00 00 00 00
+### i= 12 j= 5 value= 163.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 a3 b3 33 33 33 33 30
+### i= 12 j= 6 value= 150 len= 8 ###
+ASCII: B.......
+HEX: 42 96 00 00 00 00 00 00
+### i= 13 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 13 j= 2 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 13 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 13 j= 4 value= 42 len= 8 ###
+ASCII: B*......
+HEX: 42 2a 00 00 00 00 00 00
+### i= 13 j= 5 value= 120.6 len= 8 ###
+ASCII: Bx......
+HEX: 42 78 99 99 99 99 99 98
+### i= 13 j= 6 value= 131.1 len= 8 ###
+ASCII: B.......
+HEX: 42 83 19 99 99 99 99 98
+### i= 14 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 14 j= 2 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 14 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 14 j= 4 value= 38 len= 8 ###
+ASCII: B&......
+HEX: 42 26 00 00 00 00 00 00
+### i= 14 j= 5 value= 193.1 len= 8 ###
+ASCII: B.......
+HEX: 42 c1 19 99 99 99 99 98
+### i= 14 j= 6 value= 195.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 c3 66 66 66 66 66 68
+### i= 15 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 15 j= 2 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 15 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 15 j= 4 value= 54 len= 8 ###
+ASCII: B6......
+HEX: 42 36 00 00 00 00 00 00
+### i= 15 j= 5 value= 171.5 len= 8 ###
+ASCII: B.......
+HEX: 42 ab 80 00 00 00 00 00
+### i= 15 j= 6 value= 167.6 len= 8 ###
+ASCII: B.......
+HEX: 42 a7 99 99 99 99 99 98
+### i= 16 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 16 j= 2 value= 5 len= 8 ###
+ASCII: AP......
+HEX: 41 50 00 00 00 00 00 00
+### i= 16 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 16 j= 4 value= 59 len= 8 ###
+ASCII: B;......
+HEX: 42 3b 00 00 00 00 00 00
+### i= 16 j= 5 value= 181.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 b5 66 66 66 66 66 68
+### i= 16 j= 6 value= 152.9 len= 8 ###
+ASCII: B..ffffh
+HEX: 42 98 e6 66 66 66 66 68
+### i= 17 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 17 j= 2 value= 6 len= 8 ###
+ASCII: A`......
+HEX: 41 60 00 00 00 00 00 00
+### i= 17 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 17 j= 4 value= 60 len= 8 ###
+ASCII: B<......
+HEX: 42 3c 00 00 00 00 00 00
+### i= 17 j= 5 value= 165.3 len= 8 ###
+ASCII: B.L.....
+HEX: 42 a5 4c cc cc cc cc d0
+### i= 17 j= 6 value= 167.5 len= 8 ###
+ASCII: B.......
+HEX: 42 a7 80 00 00 00 00 00
+### i= 18 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 18 j= 2 value= 7 len= 8 ###
+ASCII: Ap......
+HEX: 41 70 00 00 00 00 00 00
+### i= 18 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 18 j= 4 value= 63 len= 8 ###
+ASCII: B?......
+HEX: 42 3f 00 00 00 00 00 00
+### i= 18 j= 5 value= 163.9 len= 8 ###
+ASCII: B..ffffh
+HEX: 42 a3 e6 66 66 66 66 68
+### i= 18 j= 6 value= 158 len= 8 ###
+ASCII: B.......
+HEX: 42 9e 00 00 00 00 00 00
+### i= 19 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 19 j= 2 value= 8 len= 8 ###
+ASCII: A.......
+HEX: 41 80 00 00 00 00 00 00
+### i= 19 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 19 j= 4 value= 70 len= 8 ###
+ASCII: BF......
+HEX: 42 46 00 00 00 00 00 00
+### i= 19 j= 5 value= 152.5 len= 8 ###
+ASCII: B.......
+HEX: 42 98 80 00 00 00 00 00
+### i= 19 j= 6 value= 150.2 len= 8 ###
+ASCII: B.333330
+HEX: 42 96 33 33 33 33 33 30
+### i= 20 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 20 j= 2 value= 9 len= 8 ###
+ASCII: A.......
+HEX: 41 90 00 00 00 00 00 00
+### i= 20 j= 3 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 20 j= 4 value= 62 len= 8 ###
+ASCII: B>......
+HEX: 42 3e 00 00 00 00 00 00
+### i= 20 j= 5 value= 173.5 len= 8 ###
+ASCII: B.......
+HEX: 42 ad 80 00 00 00 00 00
+### i= 20 j= 6 value= 190.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 be b3 33 33 33 33 30
+### i= 21 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 21 j= 2 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 21 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 21 j= 4 value= 60 len= 8 ###
+ASCII: B<......
+HEX: 42 3c 00 00 00 00 00 00
+### i= 21 j= 5 value= 147.9 len= 8 ###
+ASCII: B..ffffh
+HEX: 42 93 e6 66 66 66 66 68
+### i= 21 j= 6 value= 164.9 len= 8 ###
+ASCII: B..ffffh
+HEX: 42 a4 e6 66 66 66 66 68
+### i= 22 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 22 j= 2 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 22 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 22 j= 4 value= 42 len= 8 ###
+ASCII: B*......
+HEX: 42 2a 00 00 00 00 00 00
+### i= 22 j= 5 value= 181.3 len= 8 ###
+ASCII: B.L.....
+HEX: 42 b5 4c cc cc cc cc d0
+### i= 22 j= 6 value= 151.5 len= 8 ###
+ASCII: B.......
+HEX: 42 97 80 00 00 00 00 00
+### i= 23 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 23 j= 2 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 23 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 23 j= 4 value= 35 len= 8 ###
+ASCII: B#......
+HEX: 42 23 00 00 00 00 00 00
+### i= 23 j= 5 value= 124.3 len= 8 ###
+ASCII: B|L.....
+HEX: 42 7c 4c cc cc cc cc cc
+### i= 23 j= 6 value= 134.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 86 66 66 66 66 66 68
+### i= 24 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 24 j= 2 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 24 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 24 j= 4 value= 47 len= 8 ###
+ASCII: B/......
+HEX: 42 2f 00 00 00 00 00 00
+### i= 24 j= 5 value= 174.8 len= 8 ###
+ASCII: B.......
+HEX: 42 ae cc cc cc cc cc d0
+### i= 24 j= 6 value= 200.8 len= 8 ###
+ASCII: B.......
+HEX: 42 c8 cc cc cc cc cc d0
+### i= 25 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 25 j= 2 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 25 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 25 j= 4 value= 59 len= 8 ###
+ASCII: B;......
+HEX: 42 3b 00 00 00 00 00 00
+### i= 25 j= 5 value= 167.8 len= 8 ###
+ASCII: B.......
+HEX: 42 a7 cc cc cc cc cc d0
+### i= 25 j= 6 value= 178.3 len= 8 ###
+ASCII: B.L.....
+HEX: 42 b2 4c cc cc cc cc d0
+### i= 26 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 26 j= 2 value= 5 len= 8 ###
+ASCII: AP......
+HEX: 41 50 00 00 00 00 00 00
+### i= 26 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 26 j= 4 value= 57 len= 8 ###
+ASCII: B9......
+HEX: 42 39 00 00 00 00 00 00
+### i= 26 j= 5 value= 193.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 c1 66 66 66 66 66 68
+### i= 26 j= 6 value= 183.5 len= 8 ###
+ASCII: B.......
+HEX: 42 b7 80 00 00 00 00 00
+### i= 27 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 27 j= 2 value= 6 len= 8 ###
+ASCII: A`......
+HEX: 41 60 00 00 00 00 00 00
+### i= 27 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 27 j= 4 value= 60 len= 8 ###
+ASCII: B<......
+HEX: 42 3c 00 00 00 00 00 00
+### i= 27 j= 5 value= 150.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 96 b3 33 33 33 33 30
+### i= 27 j= 6 value= 147.1 len= 8 ###
+ASCII: B.......
+HEX: 42 93 19 99 99 99 99 98
+### i= 28 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 28 j= 2 value= 7 len= 8 ###
+ASCII: Ap......
+HEX: 41 70 00 00 00 00 00 00
+### i= 28 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 28 j= 4 value= 59 len= 8 ###
+ASCII: B;......
+HEX: 42 3b 00 00 00 00 00 00
+### i= 28 j= 5 value= 142.5 len= 8 ###
+ASCII: B.......
+HEX: 42 8e 80 00 00 00 00 00
+### i= 28 j= 6 value= 148.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 94 b3 33 33 33 33 30
+### i= 29 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 29 j= 2 value= 8 len= 8 ###
+ASCII: A.......
+HEX: 41 80 00 00 00 00 00 00
+### i= 29 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 29 j= 4 value= 59 len= 8 ###
+ASCII: B;......
+HEX: 42 3b 00 00 00 00 00 00
+### i= 29 j= 5 value= 176.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 b0 66 66 66 66 66 68
+### i= 29 j= 6 value= 204.8 len= 8 ###
+ASCII: B.......
+HEX: 42 cc cc cc cc cc cc d0
+### i= 30 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 30 j= 2 value= 9 len= 8 ###
+ASCII: A.......
+HEX: 41 90 00 00 00 00 00 00
+### i= 30 j= 3 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 30 j= 4 value= 70 len= 8 ###
+ASCII: BF......
+HEX: 42 46 00 00 00 00 00 00
+### i= 30 j= 5 value= 144.2 len= 8 ###
+ASCII: B.333330
+HEX: 42 90 33 33 33 33 33 30
+### i= 30 j= 6 value= 143.8 len= 8 ###
+ASCII: B.......
+HEX: 42 8f cc cc cc cc cc d0
+### i= 31 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 31 j= 2 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 31 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 31 j= 4 value= 61 len= 8 ###
+ASCII: B=......
+HEX: 42 3d 00 00 00 00 00 00
+### i= 31 j= 5 value= 148.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 94 66 66 66 66 66 68
+### i= 31 j= 6 value= 168.8 len= 8 ###
+ASCII: B.......
+HEX: 42 a8 cc cc cc cc cc d0
+### i= 32 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 32 j= 2 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 32 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 32 j= 4 value= 52 len= 8 ###
+ASCII: B4......
+HEX: 42 34 00 00 00 00 00 00
+### i= 32 j= 5 value= 164.9 len= 8 ###
+ASCII: B..ffffh
+HEX: 42 a4 e6 66 66 66 66 68
+### i= 32 j= 6 value= 158.6 len= 8 ###
+ASCII: B.......
+HEX: 42 9e 99 99 99 99 99 98
+### i= 33 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 33 j= 2 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 33 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 33 j= 4 value= 43 len= 8 ###
+ASCII: B+......
+HEX: 42 2b 00 00 00 00 00 00
+### i= 33 j= 5 value= 141.2 len= 8 ###
+ASCII: B.333330
+HEX: 42 8d 33 33 33 33 33 30
+### i= 33 j= 6 value= 158.1 len= 8 ###
+ASCII: B.......
+HEX: 42 9e 19 99 99 99 99 98
+### i= 34 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 34 j= 2 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 34 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 34 j= 4 value= 49 len= 8 ###
+ASCII: B1......
+HEX: 42 31 00 00 00 00 00 00
+### i= 34 j= 5 value= 176.5 len= 8 ###
+ASCII: B.......
+HEX: 42 b0 80 00 00 00 00 00
+### i= 34 j= 6 value= 208.3 len= 8 ###
+ASCII: B.L.....
+HEX: 42 d0 4c cc cc cc cc d0
+### i= 35 j= 1 value= min len= 8 ###
+ASCII: min
+HEX: 6d 69 6e 20 20 20 20 20
+### i= 35 j= 2 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 35 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 35 j= 4 value= 60 len= 8 ###
+ASCII: B<......
+HEX: 42 3c 00 00 00 00 00 00
+### i= 35 j= 5 value= 177.5 len= 8 ###
+ASCII: B.......
+HEX: 42 b1 80 00 00 00 00 00
+### i= 35 j= 6 value= 137.1 len= 8 ###
+ASCII: B.......
+HEX: 42 89 19 99 99 99 99 98
+### i= 36 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 36 j= 2 value= 5 len= 8 ###
+ASCII: AP......
+HEX: 41 50 00 00 00 00 00 00
+### i= 36 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 36 j= 4 value= 59 len= 8 ###
+ASCII: B;......
+HEX: 42 3b 00 00 00 00 00 00
+### i= 36 j= 5 value= 174.1 len= 8 ###
+ASCII: B.......
+HEX: 42 ae 19 99 99 99 99 98
+### i= 36 j= 6 value= 160.2 len= 8 ###
+ASCII: B.333330
+HEX: 42 a0 33 33 33 33 33 30
+### i= 37 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 37 j= 2 value= 6 len= 8 ###
+ASCII: A`......
+HEX: 41 60 00 00 00 00 00 00
+### i= 37 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 37 j= 4 value= 48 len= 8 ###
+ASCII: B0......
+HEX: 42 30 00 00 00 00 00 00
+### i= 37 j= 5 value= 155.5 len= 8 ###
+ASCII: B.......
+HEX: 42 9b 80 00 00 00 00 00
+### i= 37 j= 6 value= 185.8 len= 8 ###
+ASCII: B.......
+HEX: 42 b9 cc cc cc cc cc d0
+### i= 38 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 38 j= 2 value= 7 len= 8 ###
+ASCII: Ap......
+HEX: 41 70 00 00 00 00 00 00
+### i= 38 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 38 j= 4 value= 61 len= 8 ###
+ASCII: B=......
+HEX: 42 3d 00 00 00 00 00 00
+### i= 38 j= 5 value= 186.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 ba b3 33 33 33 33 30
+### i= 38 j= 6 value= 157.7 len= 8 ###
+ASCII: B..33330
+HEX: 42 9d b3 33 33 33 33 30
+### i= 39 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 39 j= 2 value= 8 len= 8 ###
+ASCII: A.......
+HEX: 41 80 00 00 00 00 00 00
+### i= 39 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 39 j= 4 value= 64 len= 8 ###
+ASCII: B@......
+HEX: 42 40 00 00 00 00 00 00
+### i= 39 j= 5 value= 162.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 a2 66 66 66 66 66 68
+### i= 39 j= 6 value= 179.4 len= 8 ###
+ASCII: B.fffffh
+HEX: 42 b3 66 66 66 66 66 68
+### i= 40 j= 1 value= MAX len= 8 ###
+ASCII: MAX
+HEX: 4d 41 58 20 20 20 20 20
+### i= 40 j= 2 value= 9 len= 8 ###
+ASCII: A.......
+HEX: 41 90 00 00 00 00 00 00
+### i= 40 j= 3 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 40 j= 4 value= 71 len= 8 ###
+ASCII: BG......
+HEX: 42 47 00 00 00 00 00 00
+### i= 40 j= 5 value= 141 len= 8 ###
+ASCII: B.......
+HEX: 42 8d 00 00 00 00 00 00
+### i= 40 j= 6 value= 161.5 len= 8 ###
+ASCII: B.......
+HEX: 42 a1 80 00 00 00 00 00
+ASCII:
+HEX:
+### Done. ###
+### Closing file ... ###
+### Done ###
+>
+>
> ## Load both files back in as raw data
> a.1 <- readBin( con="Alfalfa.xpt", what=raw(), n=3600 )
> a.2 <- readBin( con="Alfalfa2.xpt", what=raw(), n=3600 )
>
-> ## Display for diff
-> a.2
- [1] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4c 49 42 52
- [25] 41 52 59 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
- [49] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
- [73] 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 53 41 53 20 20 20 20 20
- [97] 53 41 53 4c 49 42 20 20 37 2e 30 30 20 20 20 20 4f 53 46 31 00 00 00 00
- [121] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [145] 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30 31 30 44 45 43 39 39 3a
- [169] 31 35 3a 35 36 3a 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [193] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [217] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [241] 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4d 45 4d 42
- [265] 45 52 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21
- [289] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 36 30 30 30 30 30
- [313] 30 30 30 31 34 30 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
- [337] 2a 2a 2a 2a 44 53 43 52 50 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
- [361] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
- [385] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20
- [409] 53 50 45 43 20 20 20 20 53 41 53 44 41 54 41 20 37 2e 30 30 20 20 20 20
- [433] 4f 53 46 31 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [457] 20 20 20 20 20 20 20 20 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30
- [481] 31 30 44 45 43 39 39 3a 31 35 3a 35 36 3a 33 30 20 20 20 20 20 20 20 20
- [505] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [529] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [553] 20 20 20 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
- [577] 2a 2a 2a 2a 4e 41 4d 45 53 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52
- [601] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 36 30 30 30 30 30 30
- [625] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 00 02 00 00 00 08 00 01
- [649] 50 4f 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [673] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [697] 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20
- [721] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
- [745] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
- [769] 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 08 00 02 53 41 4d 50
- [793] 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [817] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [841] 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00
- [865] 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
- [889] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
- [913] 00 00 00 00 00 00 00 00 00 01 00 00 00 08 00 03 52 45 50 20 20 20 20 20
- [937] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [961] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
- [985] 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 10
-[1009] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
-[1033] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
-[1057] 00 00 00 00 00 01 00 00 00 08 00 04 53 45 45 44 57 54 20 20 20 20 20 20
-[1081] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
-[1105] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00
-[1129] 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 18 00 00 00 00
-[1153] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
-[1177] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
-[1201] 00 01 00 00 00 08 00 05 48 41 52 56 31 20 20 20 20 20 20 20 20 20 20 20
-[1225] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
-[1249] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00
-[1273] 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00
-[1297] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
-[1321] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00
-[1345] 00 08 00 06 48 41 52 56 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
-[1369] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
-[1393] 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20
-[1417] 20 20 20 20 00 00 00 00 00 00 00 28 00 00 00 00 00 00 00 00 00 00 00 00
-[1441] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
-[1465] 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20
-[1489] 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
-[1513] 20 20 20 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a
-[1537] 2a 2a 2a 2a 4f 42 53 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52
-[1561] 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30
-[1585] 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 6d 69 6e 20 20 20 20 20
-[1609] 00 00 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 40 00 00 00 00 00 00
-[1633] 42 ab b3 33 33 33 33 30 42 b4 4c cc cc cc cc d0 6d 69 6e 20 20 20 20 20
-[1657] 41 10 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 36 00 00 00 00 00 00
-[1681] 42 8a 33 33 33 33 33 30 42 96 b3 33 33 33 33 30 6d 69 6e 20 20 20 20 20
-[1705] 41 20 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 28 00 00 00 00 00 00
-[1729] 42 91 99 99 99 99 99 98 42 81 19 99 99 99 99 98 6d 69 6e 20 20 20 20 20
-[1753] 41 30 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 2d 00 00 00 00 00 00
-[1777] 42 aa 66 66 66 66 66 68 42 bf 33 33 33 33 33 30 6d 69 6e 20 20 20 20 20
-[1801] 41 40 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 40 00 00 00 00 00 00
-[1825] 42 7c cc cc cc cc cc cc 42 ac 99 99 99 99 99 98 4d 41 58 20 20 20 20 20
-[1849] 41 50 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 4b 00 00 00 00 00 00
-[1873] 42 b3 00 00 00 00 00 00 42 eb 4c cc cc cc cc d0 4d 41 58 20 20 20 20 20
-[1897] 41 60 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 2d 00 00 00 00 00 00
-[1921] 42 a6 4c cc cc cc cc d0 42 ad e6 66 66 66 66 68 4d 41 58 20 20 20 20 20
-[1945] 41 70 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 3f 00 00 00 00 00 00
-[1969] 42 a9 b3 33 33 33 33 30 42 9b cc cc cc cc cc d0 4d 41 58 20 20 20 20 20
-[1993] 41 80 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 41 00 00 00 00 00 00
-[2017] 42 c0 e6 66 66 66 66 68 42 b1 99 99 99 99 99 98 4d 41 58 20 20 20 20 20
-[2041] 41 90 00 00 00 00 00 00 41 10 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
-[2065] 42 b9 cc cc cc cc cc d0 42 b3 33 33 33 33 33 30 6d 69 6e 20 20 20 20 20
-[2089] 00 00 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
-[2113] 42 9e cc cc cc cc cc d0 42 8b b3 33 33 33 33 30 6d 69 6e 20 20 20 20 20
-[2137] 41 10 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 2e 00 00 00 00 00 00
-[2161] 42 a3 b3 33 33 33 33 30 42 96 00 00 00 00 00 00 6d 69 6e 20 20 20 20 20
-[2185] 41 20 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 2a 00 00 00 00 00 00
-[2209] 42 78 99 99 99 99 99 98 42 83 19 99 99 99 99 98 6d 69 6e 20 20 20 20 20
-[2233] 41 30 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 26 00 00 00 00 00 00
-[2257] 42 c1 19 99 99 99 99 98 42 c3 66 66 66 66 66 68 6d 69 6e 20 20 20 20 20
-[2281] 41 40 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 36 00 00 00 00 00 00
-[2305] 42 ab 80 00 00 00 00 00 42 a7 99 99 99 99 99 98 4d 41 58 20 20 20 20 20
-[2329] 41 50 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
-[2353] 42 b5 66 66 66 66 66 68 42 98 e6 66 66 66 66 68 4d 41 58 20 20 20 20 20
-[2377] 41 60 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3c 00 00 00 00 00 00
-[2401] 42 a5 4c cc cc cc cc d0 42 a7 80 00 00 00 00 00 4d 41 58 20 20 20 20 20
-[2425] 41 70 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3f 00 00 00 00 00 00
-[2449] 42 a3 e6 66 66 66 66 68 42 9e 00 00 00 00 00 00 4d 41 58 20 20 20 20 20
-[2473] 41 80 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 46 00 00 00 00 00 00
-[2497] 42 98 80 00 00 00 00 00 42 96 33 33 33 33 33 30 4d 41 58 20 20 20 20 20
-[2521] 41 90 00 00 00 00 00 00 41 20 00 00 00 00 00 00 42 3e 00 00 00 00 00 00
-[2545] 42 ad 80 00 00 00 00 00 42 be b3 33 33 33 33 30 6d 69 6e 20 20 20 20 20
-[2569] 00 00 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3c 00 00 00 00 00 00
-[2593] 42 93 e6 66 66 66 66 68 42 a4 e6 66 66 66 66 68 6d 69 6e 20 20 20 20 20
-[2617] 41 10 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 2a 00 00 00 00 00 00
-[2641] 42 b5 4c cc cc cc cc d0 42 97 80 00 00 00 00 00 6d 69 6e 20 20 20 20 20
-[2665] 41 20 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 23 00 00 00 00 00 00
-[2689] 42 7c 4c cc cc cc cc cc 42 86 66 66 66 66 66 68 6d 69 6e 20 20 20 20 20
-[2713] 41 30 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 2f 00 00 00 00 00 00
-[2737] 42 ae cc cc cc cc cc d0 42 c8 cc cc cc cc cc d0 6d 69 6e 20 20 20 20 20
-[2761] 41 40 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
-[2785] 42 a7 cc cc cc cc cc d0 42 b2 4c cc cc cc cc d0 4d 41 58 20 20 20 20 20
-[2809] 41 50 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 39 00 00 00 00 00 00
-[2833] 42 c1 66 66 66 66 66 68 42 b7 80 00 00 00 00 00 4d 41 58 20 20 20 20 20
-[2857] 41 60 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3c 00 00 00 00 00 00
-[2881] 42 96 b3 33 33 33 33 30 42 93 19 99 99 99 99 98 4d 41 58 20 20 20 20 20
-[2905] 41 70 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
-[2929] 42 8e 80 00 00 00 00 00 42 94 b3 33 33 33 33 30 4d 41 58 20 20 20 20 20
-[2953] 41 80 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
-[2977] 42 b0 66 66 66 66 66 68 42 cc cc cc cc cc cc d0 4d 41 58 20 20 20 20 20
-[3001] 41 90 00 00 00 00 00 00 41 30 00 00 00 00 00 00 42 46 00 00 00 00 00 00
-[3025] 42 90 33 33 33 33 33 30 42 8f cc cc cc cc cc d0 6d 69 6e 20 20 20 20 20
-[3049] 00 00 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 3d 00 00 00 00 00 00
-[3073] 42 94 66 66 66 66 66 68 42 a8 cc cc cc cc cc d0 6d 69 6e 20 20 20 20 20
-[3097] 41 10 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 34 00 00 00 00 00 00
-[3121] 42 a4 e6 66 66 66 66 68 42 9e 99 99 99 99 99 98 6d 69 6e 20 20 20 20 20
-[3145] 41 20 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 2b 00 00 00 00 00 00
-[3169] 42 8d 33 33 33 33 33 30 42 9e 19 99 99 99 99 98 6d 69 6e 20 20 20 20 20
-[3193] 41 30 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 31 00 00 00 00 00 00
-[3217] 42 b0 80 00 00 00 00 00 42 d0 4c cc cc cc cc d0 6d 69 6e 20 20 20 20 20
-[3241] 41 40 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 3c 00 00 00 00 00 00
-[3265] 42 b1 80 00 00 00 00 00 42 89 19 99 99 99 99 98 4d 41 58 20 20 20 20 20
-[3289] 41 50 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 3b 00 00 00 00 00 00
-[3313] 42 ae 19 99 99 99 99 98 42 a0 33 33 33 33 33 30 4d 41 58 20 20 20 20 20
-[3337] 41 60 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 30 00 00 00 00 00 00
-[3361] 42 9b 80 00 00 00 00 00 42 b9 cc cc cc cc cc d0 4d 41 58 20 20 20 20 20
-[3385] 41 70 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 3d 00 00 00 00 00 00
-[3409] 42 ba b3 33 33 33 33 30 42 9d b3 33 33 33 33 30 4d 41 58 20 20 20 20 20
-[3433] 41 80 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 40 00 00 00 00 00 00
-[3457] 42 a2 66 66 66 66 66 68 42 b3 66 66 66 66 66 68 4d 41 58 20 20 20 20 20
-[3481] 41 90 00 00 00 00 00 00 41 40 00 00 00 00 00 00 42 47 00 00 00 00 00 00
-[3505] 42 8d 00 00 00 00 00 00 42 a1 80 00 00 00 00 00
->
> ## Test that the files are identical
> stopifnot( all(a.1 == a.2) )
>
> proc.time()
user system elapsed
- 0.454 0.043 0.484
+ 0.506 0.054 0.550
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2014-07-18 17:04:07 UTC (rev 1839)
+++ trunk/SASxport/tests/Theoph.Rout.save 2014-07-18 17:11:52 UTC (rev 1840)
@@ -57,4 +57,4 @@
>
> proc.time()
user system elapsed
- 0.776 0.047 0.832
+ 0.599 0.038 0.627
Modified: trunk/SASxport/tests/cars.R
===================================================================
--- trunk/SASxport/tests/cars.R 2014-07-18 17:04:07 UTC (rev 1839)
+++ trunk/SASxport/tests/cars.R 2014-07-18 17:11:52 UTC (rev 1840)
@@ -10,21 +10,28 @@
summary(cars)
+## Write to file
write.xport(cars,
file="cars2.xpt",
cDate=strptime("28JUL07: 20:59:49", format="%d%b%y:%H:%M:%S"),
osType="SunOS",
sasVer="9.1",
autogen.formats=FALSE
-)
+ )
+## Display for diff
+write.xport(cars,
+ file="",
+ cDate=strptime("28JUL07: 20:59:49", format="%d%b%y:%H:%M:%S"),
+ osType="SunOS",
+ sasVer="9.1",
+ autogen.formats=FALSE,
+ verbose=TRUE
+ )
## Load both files back in as raw data
a.1 <- readBin( con="cars.xpt", what=raw(), n=1e5)
a.2 <- readBin( con="cars2.xpt", what=raw(), n=1e5)
-## Display for diff
-a.2
-
## Test that the files are identical
stopifnot( all(a.1 == a.2) )
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2014-07-18 17:04:07 UTC (rev 1839)
+++ trunk/SASxport/tests/cars.Rout.save 2014-07-18 17:11:52 UTC (rev 1840)
@@ -60,129 +60,469 @@
Chev. :6 Max. :15906 Max. :35.00 Max. :5.000 Max. :1.0000
Datsun:4
>
+> ## Write to file
> write.xport(cars,
+ file="cars2.xpt",
+ cDate=strptime("28JUL07: 20:59:49", format="%d%b%y:%H:%M:%S"),
+ osType="SunOS",
+ sasVer="9.1",
+ autogen.formats=FALSE
-+ )
++ )
>
+> ## Display for diff
+> write.xport(cars,
++ file="",
++ cDate=strptime("28JUL07: 20:59:49", format="%d%b%y:%H:%M:%S"),
++ osType="SunOS",
++ sasVer="9.1",
++ autogen.formats=FALSE,
++ verbose=TRUE
++ )
+### Ensure all objects to be stored are data.frames...
+ ###
+### Ensure object names are valid and unique...
+ ###
+### opening file ... ###
+### Done ###
+### Write file header ... ###
+ASCII: HEADER RECORD*******LIBRARY HEADER RECORD!!!!!!!000000000000000000000000000000 SAS SAS SASLIB 9.1 SunOS... 28JUL07:20:59:4928JUL07:20:59:49
+HEX: 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4c 49 42 52 41 52 59 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 53 41 53 20 20 20 20 20 53 41 53 4c 49 42 20 20 39 2e 31 20 20 20 20 20 53 75 6e 4f 53 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 38 4a 55 4c 30 37 3a 32 30 3a 35 39 3a 34 39 32 38 4a 55 4c 30 37 3a 32 30 3a 35 39 3a 34 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+### Done. ###
+### Write data frame header ... ###
+ASCII: HEADER RECORD*******MEMBER HEADER RECORD!!!!!!!000000000000000001600000000140 HEADER RECORD*******DSCRPTR HEADER RECORD!!!!!!!000000000000000000000000000000 SAS CARS SASDATA 9.1 SunOS... 28JUL07:20:59:4928JUL07:20:59:49
+HEX: 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4d 45 4d 42 45 52 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 36 30 30 30 30 30 30 30 30 31 34 30 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 44 53 43 52 50 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 53 41 53 20 20 20 20 20 43 41 52 53 20 20 20 20 53 41 53 44 41 54 41 20 39 2e 31 20 20 20 20 20 53 75 6e 4f 53 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 38 4a 55 4c 30 37 3a 32 30 3a 35 39 3a 34 39 32 38 4a 55 4c 30 37 3a 32 30 3a 35 39 3a 34 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+### Done. ###
+### Write variable information block header ... ###
+ASCII: HEADER RECORD*******NAMESTR HEADER RECORD!!!!!!!000000000500000000000000000000
+HEX: 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4e 41 4d 45 53 54 52 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 35 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20
+### Done. ###
+### Write entries for variable information block ... ###
+### MAKE ... ###
+ASCII: ........MAKE ........ ............................................................
+HEX: 00 02 00 00 00 08 00 01 4d 41 4b 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### PRICE ... ###
+ASCII: ........PRICE ........ ............................................................
+HEX: 00 01 00 00 00 08 00 02 50 52 49 43 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### MPG ... ###
+ASCII: ........MPG ........ ............................................................
+HEX: 00 01 00 00 00 08 00 03 4d 50 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### REP78 ... ###
+ASCII: ........REP78 ........ ............................................................
+HEX: 00 01 00 00 00 08 00 04 52 45 50 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### FOREIGN ... ###
+ASCII: ........FOREIGN ........ ....... ....................................................
+HEX: 00 01 00 00 00 08 00 05 46 4f 52 45 49 47 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+### Done. ###
+ASCII:
+HEX: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
+### Write header for data block ... ###
+ASCII: HEADER RECORD*******OBS HEADER RECORD!!!!!!!000000000000000000000000000000
+HEX: 48 45 41 44 45 52 20 52 45 43 4f 52 44 2a 2a 2a 2a 2a 2a 2a 4f 42 53 20 20 20 20 20 48 45 41 44 45 52 20 52 45 43 4f 52 44 21 21 21 21 21 21 21 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20
+### Done ###
+### Write data ... ###
+### i= 1 j= 1 value= AMC len= 8 ###
+ASCII: AMC
+HEX: 41 4d 43 20 20 20 20 20
+### i= 1 j= 2 value= 4099 len= 8 ###
+ASCII: D.......
+HEX: 44 10 03 00 00 00 00 00
+### i= 1 j= 3 value= 22 len= 8 ###
+ASCII: B.......
+HEX: 42 16 00 00 00 00 00 00
+### i= 1 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 1 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 2 j= 1 value= AMC len= 8 ###
+ASCII: AMC
+HEX: 41 4d 43 20 20 20 20 20
+### i= 2 j= 2 value= 4749 len= 8 ###
+ASCII: D.......
+HEX: 44 12 8d 00 00 00 00 00
+### i= 2 j= 3 value= 17 len= 8 ###
+ASCII: B.......
+HEX: 42 11 00 00 00 00 00 00
+### i= 2 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 2 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 3 j= 1 value= AMC len= 8 ###
+ASCII: AMC
+HEX: 41 4d 43 20 20 20 20 20
+### i= 3 j= 2 value= 3799 len= 8 ###
+ASCII: C.p.....
+HEX: 43 ed 70 00 00 00 00 00
+### i= 3 j= 3 value= 22 len= 8 ###
+ASCII: B.......
+HEX: 42 16 00 00 00 00 00 00
+### i= 3 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 3 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 4 j= 1 value= Audi len= 8 ###
+ASCII: Audi
+HEX: 41 75 64 69 20 20 20 20
+### i= 4 j= 2 value= 9690 len= 8 ###
+ASCII: D%......
+HEX: 44 25 da 00 00 00 00 00
+### i= 4 j= 3 value= 17 len= 8 ###
+ASCII: B.......
+HEX: 42 11 00 00 00 00 00 00
+### i= 4 j= 4 value= 5 len= 8 ###
+ASCII: AP......
+HEX: 41 50 00 00 00 00 00 00
+### i= 4 j= 5 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 5 j= 1 value= Audi len= 8 ###
+ASCII: Audi
+HEX: 41 75 64 69 20 20 20 20
+### i= 5 j= 2 value= 6295 len= 8 ###
+ASCII: D.......
+HEX: 44 18 97 00 00 00 00 00
+### i= 5 j= 3 value= 23 len= 8 ###
+ASCII: B.......
+HEX: 42 17 00 00 00 00 00 00
+### i= 5 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 5 j= 5 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 6 j= 1 value= BMW len= 8 ###
+ASCII: BMW
+HEX: 42 4d 57 20 20 20 20 20
+### i= 6 j= 2 value= 9735 len= 8 ###
+ASCII: D&......
+HEX: 44 26 07 00 00 00 00 00
+### i= 6 j= 3 value= 25 len= 8 ###
+ASCII: B.......
+HEX: 42 19 00 00 00 00 00 00
+### i= 6 j= 4 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 6 j= 5 value= 1 len= 8 ###
+ASCII: A.......
+HEX: 41 10 00 00 00 00 00 00
+### i= 7 j= 1 value= Buick len= 8 ###
+ASCII: Buick
+HEX: 42 75 69 63 6b 20 20 20
+### i= 7 j= 2 value= 4816 len= 8 ###
+ASCII: D.......
+HEX: 44 12 d0 00 00 00 00 00
+### i= 7 j= 3 value= 20 len= 8 ###
+ASCII: B.......
+HEX: 42 14 00 00 00 00 00 00
+### i= 7 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 7 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 8 j= 1 value= Buick len= 8 ###
+ASCII: Buick
+HEX: 42 75 69 63 6b 20 20 20
+### i= 8 j= 2 value= 7827 len= 8 ###
+ASCII: D.......
+HEX: 44 1e 93 00 00 00 00 00
+### i= 8 j= 3 value= 15 len= 8 ###
+ASCII: A.......
+HEX: 41 f0 00 00 00 00 00 00
+### i= 8 j= 4 value= 4 len= 8 ###
+ASCII: A@......
+HEX: 41 40 00 00 00 00 00 00
+### i= 8 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 9 j= 1 value= Buick len= 8 ###
+ASCII: Buick
+HEX: 42 75 69 63 6b 20 20 20
+### i= 9 j= 2 value= 5788 len= 8 ###
+ASCII: D.......
+HEX: 44 16 9c 00 00 00 00 00
+### i= 9 j= 3 value= 18 len= 8 ###
+ASCII: B.......
+HEX: 42 12 00 00 00 00 00 00
+### i= 9 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 9 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 10 j= 1 value= Buick len= 8 ###
+ASCII: Buick
+HEX: 42 75 69 63 6b 20 20 20
+### i= 10 j= 2 value= 4453 len= 8 ###
+ASCII: D.e.....
+HEX: 44 11 65 00 00 00 00 00
+### i= 10 j= 3 value= 26 len= 8 ###
+ASCII: B.......
+HEX: 42 1a 00 00 00 00 00 00
+### i= 10 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 10 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 11 j= 1 value= Buick len= 8 ###
+ASCII: Buick
+HEX: 42 75 69 63 6b 20 20 20
+### i= 11 j= 2 value= 5189 len= 8 ###
+ASCII: D.E.....
+HEX: 44 14 45 00 00 00 00 00
+### i= 11 j= 3 value= 20 len= 8 ###
+ASCII: B.......
+HEX: 42 14 00 00 00 00 00 00
+### i= 11 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 11 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 12 j= 1 value= Buick len= 8 ###
+ASCII: Buick
+HEX: 42 75 69 63 6b 20 20 20
+### i= 12 j= 2 value= 10372 len= 8 ###
+ASCII: D(......
+HEX: 44 28 84 00 00 00 00 00
+### i= 12 j= 3 value= 16 len= 8 ###
+ASCII: B.......
+HEX: 42 10 00 00 00 00 00 00
+### i= 12 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 12 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 13 j= 1 value= Buick len= 8 ###
+ASCII: Buick
+HEX: 42 75 69 63 6b 20 20 20
+### i= 13 j= 2 value= 4082 len= 8 ###
+ASCII: C. .....
+HEX: 43 ff 20 00 00 00 00 00
+### i= 13 j= 3 value= 19 len= 8 ###
+ASCII: B.......
+HEX: 42 13 00 00 00 00 00 00
+### i= 13 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 13 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 14 j= 1 value= Cad. len= 8 ###
+ASCII: Cad.
+HEX: 43 61 64 2e 20 20 20 20
+### i= 14 j= 2 value= 11385 len= 8 ###
+ASCII: D,y.....
+HEX: 44 2c 79 00 00 00 00 00
+### i= 14 j= 3 value= 14 len= 8 ###
+ASCII: A.......
+HEX: 41 e0 00 00 00 00 00 00
+### i= 14 j= 4 value= 3 len= 8 ###
+ASCII: A0......
+HEX: 41 30 00 00 00 00 00 00
+### i= 14 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00
+### i= 15 j= 1 value= Cad. len= 8 ###
+ASCII: Cad.
+HEX: 43 61 64 2e 20 20 20 20
+### i= 15 j= 2 value= 14500 len= 8 ###
+ASCII: D8......
+HEX: 44 38 a4 00 00 00 00 00
+### i= 15 j= 3 value= 14 len= 8 ###
+ASCII: A.......
+HEX: 41 e0 00 00 00 00 00 00
+### i= 15 j= 4 value= 2 len= 8 ###
+ASCII: A ......
+HEX: 41 20 00 00 00 00 00 00
+### i= 15 j= 5 value= 0 len= 8 ###
+ASCII: ........
+HEX: 00 00 00 00 00 00 00 00...
[truncated message content] |
|
From: <wa...@us...> - 2014-09-13 01:17:39
|
Revision: 1886
http://sourceforge.net/p/r-gregmisc/code/1886
Author: warnes
Date: 2014-09-13 01:17:27 +0000 (Sat, 13 Sep 2014)
Log Message:
-----------
Update for changes in latest version of Hmisc (3.14-5).
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testEmpty.Rout.save
trunk/SASxport/tests/testExamples.Rout.save
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.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/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -859,6 +859,7 @@
> ## Test that the files are identical
> stopifnot( all(a.1 == a.2) )
>
+>
> proc.time()
user system elapsed
- 0.518 0.053 0.561
+ 0.531 0.054 0.576
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/Theoph.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -57,4 +57,4 @@
>
> proc.time()
user system elapsed
- 0.584 0.038 0.610
+ 0.652 0.037 0.680
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/cars.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -525,4 +525,4 @@
>
> proc.time()
user system elapsed
- 0.483 0.048 0.533
+ 0.507 0.047 0.544
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/testDates.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -76,4 +76,4 @@
>
> proc.time()
user system elapsed
- 0.472 0.034 0.496
+ 0.507 0.035 0.532
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -84,4 +84,4 @@
>
> proc.time()
user system elapsed
- 0.493 0.036 0.518
+ 0.515 0.037 0.542
Modified: trunk/SASxport/tests/testEmpty.Rout.save
===================================================================
--- trunk/SASxport/tests/testEmpty.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/testEmpty.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -84,4 +84,4 @@
>
> proc.time()
user system elapsed
- 0.515 0.038 0.541
+ 0.552 0.036 0.579
Modified: trunk/SASxport/tests/testExamples.Rout.save
===================================================================
--- trunk/SASxport/tests/testExamples.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/testExamples.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -477,8 +477,8 @@
1 1 1 blue
--------------------------------------------------------------------------------
AGE : Age at Beginning of Study
- n missing unique Mean
- 2 0 2 30.5
+ n missing unique Info Mean
+ 2 0 2 1 30.5
30 (1, 50%), 31 (1, 50%)
--------------------------------------------------------------------------------
@@ -491,15 +491,15 @@
DT1 Format:day mon year h:m:s
n missing unique
2 0 2
- Mean
-(18 Apr 2002 09:36:35)
+ Info Mean
+ 1 (18 Apr 2002 09:36:35)
(03 Jun 2002 09:42:07) (1, 50%)
(03 Mar 2002 09:31:02) (1, 50%)
--------------------------------------------------------------------------------
T1 Format:h:m:s
- n missing unique Mean
- 2 0 2 :01:
+ n missing unique Info Mean
+ 2 0 2 1 :01:
11:13:45 (1, 50%), 11:14:13 (1, 50%)
--------------------------------------------------------------------------------
@@ -515,8 +515,8 @@
1 1 1 blue
--------------------------------------------------------------------------------
AGE : Age at Beginning of Study
- n missing unique Mean
- 2 0 2 30.5
+ n missing unique Info Mean
+ 2 0 2 1 30.5
30 (1, 50%), 31 (1, 50%)
--------------------------------------------------------------------------------
@@ -529,15 +529,15 @@
DT1 Format:day mon year h:m:s
n missing unique
2 0 2
- Mean
-(18 Apr 2002 09:36:35)
+ Info Mean
+ 1 (18 Apr 2002 09:36:35)
(03 Jun 2002 09:42:07) (1, 50%)
(03 Mar 2002 09:31:02) (1, 50%)
--------------------------------------------------------------------------------
T1 Format:h:m:s
- n missing unique Mean
- 2 0 2 :01:
+ n missing unique Info Mean
+ 2 0 2 1 :01:
11:13:45 (1, 50%), 11:14:13 (1, 50%)
--------------------------------------------------------------------------------
@@ -548,55 +548,55 @@
6 Variables 100 Observations
--------------------------------------------------------------------------------
X3
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.5131 0.05585 0.13304 0.26428 0.51257 0.80719 0.93059
- .95
-0.96426
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.5131 0.05585 0.13304 0.26428 0.51257 0.80719
+ .90 .95
+0.93059 0.96426
lowest : 0.00576 0.01524 0.02380 0.02627 0.05351
highest: 0.96948 0.97473 0.98010 0.98096 0.99390
--------------------------------------------------------------------------------
X4
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.5119 0.06694 0.09393 0.22310 0.49638 0.82109 0.92206
- .95
-0.94963
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.5119 0.06694 0.09393 0.22310 0.49638 0.82109
+ .90 .95
+0.92206 0.94963
lowest : 0.02636 0.02890 0.02926 0.03010 0.05395
highest: 0.95790 0.96828 0.97047 0.97466 0.98267
--------------------------------------------------------------------------------
X5
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.4888 0.04286 0.06765 0.19898 0.46766 0.77899 0.89237
- .95
-0.91886
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.4888 0.04286 0.06765 0.19898 0.46766 0.77899
+ .90 .95
+0.89237 0.91886
lowest : 0.004134 0.007872 0.008811 0.038577 0.039260
highest: 0.933789 0.975597 0.984074 0.996114 0.997253
--------------------------------------------------------------------------------
X6
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.4987 0.09022 0.18649 0.26865 0.46423 0.72667 0.85553
- .95
-0.93149
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.4987 0.09022 0.18649 0.26865 0.46423 0.72667
+ .90 .95
+0.85553 0.93149
lowest : 0.01010 0.01943 0.03064 0.05931 0.08775
highest: 0.93330 0.96090 0.97310 0.97840 0.99511
--------------------------------------------------------------------------------
X7
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.5533 0.0850 0.1474 0.3313 0.5666 0.8120 0.9176
- .95
- 0.9517
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.5533 0.0850 0.1474 0.3313 0.5666 0.8120
+ .90 .95
+ 0.9176 0.9517
lowest : 0.04201 0.04716 0.04986 0.05864 0.07641
highest: 0.96377 0.97244 0.97413 0.99318 0.99791
--------------------------------------------------------------------------------
X8
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.4809 0.04251 0.06831 0.27122 0.49223 0.71333 0.87322
- .95
-0.91886
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.4809 0.04251 0.06831 0.27122 0.49223 0.71333
+ .90 .95
+0.87322 0.91886
lowest : 0.007269 0.010586 0.013044 0.018595 0.039906
highest: 0.930491 0.935669 0.936941 0.958679 0.959636
@@ -632,32 +632,32 @@
blue (1, 33%), green (1, 33%), purple (1, 33%)
--------------------------------------------------------------------------------
MIN
- n missing unique Mean
- 3 0 1 1
+ n missing unique Info Mean
+ 3 0 1 0 1
--------------------------------------------------------------------------------
MAX
- n missing unique Mean
- 3 0 1 40
+ n missing unique Info Mean
+ 3 0 1 0 40
--------------------------------------------------------------------------------
DEFAULT
- n missing unique Mean
- 3 0 1 6
+ n missing unique Info Mean
+ 3 0 1 0 6
--------------------------------------------------------------------------------
LENGTH
- n missing unique Mean
- 3 0 1 6
+ n missing unique Info Mean
+ 3 0 1 0 6
--------------------------------------------------------------------------------
FUZZ
- n missing unique Mean
- 3 0 1 1e-12
+ n missing unique Info Mean
+ 3 0 1 0 1e-12
--------------------------------------------------------------------------------
MULT
- n missing unique Mean
- 3 0 1 0
+ n missing unique Info Mean
+ 3 0 1 0 0
--------------------------------------------------------------------------------
NOEDIT
- n missing unique Mean
- 3 0 1 0
+ n missing unique Info Mean
+ 3 0 1 0 0
--------------------------------------------------------------------------------
TYPE
n missing unique value
@@ -968,4 +968,4 @@
>
> proc.time()
user system elapsed
- 0.709 0.045 0.744
+ 0.753 0.047 0.791
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -109,4 +109,4 @@
>
> proc.time()
user system elapsed
- 4.290 0.056 4.341
+ 4.509 0.056 4.571
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/testNegative.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -62,4 +62,4 @@
>
> proc.time()
user system elapsed
- 0.513 0.036 0.538
+ 0.534 0.037 0.561
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -101,4 +101,4 @@
>
> proc.time()
user system elapsed
- 0.560 0.034 0.584
+ 0.603 0.035 0.631
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -184,8 +184,8 @@
1 1 1 blue
--------------------------------------------------------------------------------
AGE : Age at Beginning of Study
- n missing unique Mean
- 2 0 2 30.5
+ n missing unique Info Mean
+ 2 0 2 1 30.5
30 (1, 50%), 31 (1, 50%)
--------------------------------------------------------------------------------
@@ -198,15 +198,15 @@
DT1 Format:day mon year h:m:s
n missing unique
2 0 2
- Mean
-(18 Apr 2002 09:36:35)
+ Info Mean
+ 1 (18 Apr 2002 09:36:35)
(03 Jun 2002 09:42:07) (1, 50%)
(03 Mar 2002 09:31:02) (1, 50%)
--------------------------------------------------------------------------------
T1 Format:h:m:s
- n missing unique Mean
- 2 0 2 :01:
+ n missing unique Info Mean
+ 2 0 2 1 :01:
11:13:45 (1, 50%), 11:14:13 (1, 50%)
--------------------------------------------------------------------------------
@@ -222,8 +222,8 @@
1 1 1 blue
--------------------------------------------------------------------------------
AGE : Age at Beginning of Study
- n missing unique Mean
- 2 0 2 30.5
+ n missing unique Info Mean
+ 2 0 2 1 30.5
30 (1, 50%), 31 (1, 50%)
--------------------------------------------------------------------------------
@@ -236,15 +236,15 @@
DT1 Format:day mon year h:m:s
n missing unique
2 0 2
- Mean
-(18 Apr 2002 09:36:35)
+ Info Mean
+ 1 (18 Apr 2002 09:36:35)
(03 Jun 2002 09:42:07) (1, 50%)
(03 Mar 2002 09:31:02) (1, 50%)
--------------------------------------------------------------------------------
T1 Format:h:m:s
- n missing unique Mean
- 2 0 2 :01:
+ n missing unique Info Mean
+ 2 0 2 1 :01:
11:13:45 (1, 50%), 11:14:13 (1, 50%)
--------------------------------------------------------------------------------
@@ -255,55 +255,55 @@
6 Variables 100 Observations
--------------------------------------------------------------------------------
X3
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.5131 0.05585 0.13304 0.26428 0.51257 0.80719 0.93059
- .95
-0.96426
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.5131 0.05585 0.13304 0.26428 0.51257 0.80719
+ .90 .95
+0.93059 0.96426
lowest : 0.00576 0.01524 0.02380 0.02627 0.05351
highest: 0.96948 0.97473 0.98010 0.98096 0.99390
--------------------------------------------------------------------------------
X4
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.5119 0.06694 0.09393 0.22310 0.49638 0.82109 0.92206
- .95
-0.94963
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.5119 0.06694 0.09393 0.22310 0.49638 0.82109
+ .90 .95
+0.92206 0.94963
lowest : 0.02636 0.02890 0.02926 0.03010 0.05395
highest: 0.95790 0.96828 0.97047 0.97466 0.98267
--------------------------------------------------------------------------------
X5
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.4888 0.04286 0.06765 0.19898 0.46766 0.77899 0.89237
- .95
-0.91886
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.4888 0.04286 0.06765 0.19898 0.46766 0.77899
+ .90 .95
+0.89237 0.91886
lowest : 0.004134 0.007872 0.008811 0.038577 0.039260
highest: 0.933789 0.975597 0.984074 0.996114 0.997253
--------------------------------------------------------------------------------
X6
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.4987 0.09022 0.18649 0.26865 0.46423 0.72667 0.85553
- .95
-0.93149
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.4987 0.09022 0.18649 0.26865 0.46423 0.72667
+ .90 .95
+0.85553 0.93149
lowest : 0.01010 0.01943 0.03064 0.05931 0.08775
highest: 0.93330 0.96090 0.97310 0.97840 0.99511
--------------------------------------------------------------------------------
X7
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.5533 0.0850 0.1474 0.3313 0.5666 0.8120 0.9176
- .95
- 0.9517
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.5533 0.0850 0.1474 0.3313 0.5666 0.8120
+ .90 .95
+ 0.9176 0.9517
lowest : 0.04201 0.04716 0.04986 0.05864 0.07641
highest: 0.96377 0.97244 0.97413 0.99318 0.99791
--------------------------------------------------------------------------------
X8
- n missing unique Mean .05 .10 .25 .50 .75 .90
- 100 0 100 0.4809 0.04251 0.06831 0.27122 0.49223 0.71333 0.87322
- .95
-0.91886
+ n missing unique Info Mean .05 .10 .25 .50 .75
+ 100 0 100 1 0.4809 0.04251 0.06831 0.27122 0.49223 0.71333
+ .90 .95
+0.87322 0.91886
lowest : 0.007269 0.010586 0.013044 0.018595 0.039906
highest: 0.930491 0.935669 0.936941 0.958679 0.959636
@@ -339,32 +339,32 @@
blue (1, 33%), green (1, 33%), purple (1, 33%)
--------------------------------------------------------------------------------
MIN
- n missing unique Mean
- 3 0 1 1
+ n missing unique Info Mean
+ 3 0 1 0 1
--------------------------------------------------------------------------------
MAX
- n missing unique Mean
- 3 0 1 40
+ n missing unique Info Mean
+ 3 0 1 0 40
--------------------------------------------------------------------------------
DEFAULT
- n missing unique Mean
- 3 0 1 6
+ n missing unique Info Mean
+ 3 0 1 0 6
--------------------------------------------------------------------------------
LENGTH
- n missing unique Mean
- 3 0 1 6
+ n missing unique Info Mean
+ 3 0 1 0 6
--------------------------------------------------------------------------------
FUZZ
- n missing unique Mean
- 3 0 1 1e-12
+ n missing unique Info Mean
+ 3 0 1 0 1e-12
--------------------------------------------------------------------------------
MULT
- n missing unique Mean
- 3 0 1 0
+ n missing unique Info Mean
+ 3 0 1 0 0
--------------------------------------------------------------------------------
NOEDIT
- n missing unique Mean
- 3 0 1 0
+ n missing unique Info Mean
+ 3 0 1 0 0
--------------------------------------------------------------------------------
TYPE
n missing unique value
@@ -2130,4 +2130,4 @@
>
> proc.time()
user system elapsed
- 1.561 0.059 1.615
+ 1.590 0.063 1.648
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -85,4 +85,4 @@
>
> proc.time()
user system elapsed
- 0.424 0.033 0.445
+ 0.451 0.033 0.474
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/test_fields.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -46,4 +46,4 @@
>
> proc.time()
user system elapsed
- 0.378 0.035 0.406
+ 0.450 0.033 0.472
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/xport.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -120,4 +120,4 @@
> q()
> proc.time()
user system elapsed
- 0.427 0.033 0.448
+ 0.592 0.041 1.087
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2014-09-07 23:19:44 UTC (rev 1885)
+++ trunk/SASxport/tests/xxx.Rout.save 2014-09-13 01:17:27 UTC (rev 1886)
@@ -237,4 +237,4 @@
>
> proc.time()
user system elapsed
- 0.434 0.041 0.464
+ 0.470 0.043 0.501
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X