[R-gregmisc-users] SF.net SVN: r-gregmisc: [1177] trunk/SASxport/tests
Brought to you by:
warnes
Menu
▾
▴
[R-gregmisc-users] SF.net SVN: r-gregmisc: [1177] trunk/SASxport/tests
|
From: <wa...@us...> - 2007-09-13 01:14:58
|
Revision: 1177
http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1177&view=rev
Author: warnes
Date: 2007-09-12 18:14:55 -0700 (Wed, 12 Sep 2007)
Log Message:
-----------
Update tests now that 'units' and 'units<-' functions no longer are included
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/test_fields.Rout.save
trunk/SASxport/tests/xport.Rout.save
trunk/SASxport/tests/xxx.Rout.save
Added Paths:
-----------
trunk/SASxport/tests/TestUnnamedComponents.R
trunk/SASxport/tests/TestUnnamedComponents.Rout.save
Modified: trunk/SASxport/tests/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2007-09-12 22:27:54 UTC (rev 1176)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2007-09-13 01:14:55 UTC (rev 1177)
@@ -1,5 +1,5 @@
-R version 2.5.1 (2007-06-27)
+R version 2.5.0 Under development (unstable) (2007-01-25 r40572)
Copyright (C) 2007 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
@@ -19,15 +19,6 @@
> ## existing SAS xport file "Alfalfa.xpt"
>
> library(SASxport)
-
-Attaching package: 'SASxport'
-
-
- The following object(s) are masked from package:base :
-
- units,
- units<-
-
>
> # existing data file
> SPEC <- read.xport("Alfalfa.xpt")
Added: trunk/SASxport/tests/TestUnnamedComponents.R
===================================================================
--- trunk/SASxport/tests/TestUnnamedComponents.R (rev 0)
+++ trunk/SASxport/tests/TestUnnamedComponents.R 2007-09-13 01:14:55 UTC (rev 1177)
@@ -0,0 +1,59 @@
+library(SASxport)
+
+
+##tests
+example(read.xport)
+write.xport(w$test,file="a.xpt")
+lookup.xport("a.xpt")
+
+b <- w$test
+write.xport(b,file="a.xpt")
+lookup.xport("a.xpt")
+
+write.xport(test=w$test,file="a.xpt")
+lookup.xport("a.xpt")
+
+write.xport(test=w$test,z=w$z,file="a.xpt")
+lookup.xport("a.xpt")
+
+write.xport(w$test,w$z,file="a.xpt")
+lookup.xport("a.xpt")
+
+write.xport(w$test,z=w$z,file="a.xpt")
+lookup.xport("a.xpt")
+
+write.xport(list=w,file="a.xpt")
+lookup.xport("a.xpt")
+
+names(w) <- NULL
+write.xport(w[[1]],w[[2]],file="a.xpt")
+lookup.xport("a.xpt")
+
+names(w) <- NULL
+write.xport(list=w,file="a.xpt")
+lookup.xport("a.xpt")
+
+### Check that we catch invalid parameters
+failure <- try( write.xport(5,"a.xpt") )
+SASxport:::assert( "try-error" %in% class(failure) )
+
+failure <- try( write.xport(list(a=5,b=6),"a.xpt") )
+SASxport:::assert( "try-error" %in% class(failure) )
+
+
+# Check with different list construction function *name*
+example(read.xport)
+write.xport(list=base::list(w$test,w$z),file="a.xpt")
+lookup.xport("a.xpt")
+
+# remove names
+example(read.xport)
+names(w) <- NULL
+write.xport(list=w,file="a.xpt")
+lookup.xport("a.xpt")
+
+# remove variable names
+example(read.xport)
+colnames(w[[2]]) <- c()
+write.xport(list=w,file="a.xpt")
+lookup.xport("a.xpt")
Added: trunk/SASxport/tests/TestUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/TestUnnamedComponents.Rout.save (rev 0)
+++ trunk/SASxport/tests/TestUnnamedComponents.Rout.save 2007-09-13 01:14:55 UTC (rev 1177)
@@ -0,0 +1,556 @@
+
+R version 2.5.0 Under development (unstable) (2007-01-25 r40572)
+Copyright (C) 2007 The R Foundation for Statistical Computing
+ISBN 3-900051-07-0
+
+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)
+>
+>
+> ##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> url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+
+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> ## Don't show:
+rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+> write.xport(w$test,file="a.xpt")
+Warning message:
+Data frame names modified to obey SAS rules in: write.xport(w$test, file = "a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `W.TEST':
+ dataset name type format width label nobs
+W.TEST.RACE W.TEST RACE character RACE 8 2
+W.TEST.AGE W.TEST AGE numeric 8 Age at Beginning of Study 2
+W.TEST.D1 W.TEST D1 numeric 8 2
+W.TEST.DT1 W.TEST DT1 numeric 8 2
+W.TEST.T1 W.TEST T1 numeric 8 2
+
+>
+> b <- w$test
+> write.xport(b,file="a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `B':
+ dataset name type format width label nobs
+B.RACE B RACE character RACE 8 2
+B.AGE B AGE numeric 8 Age at Beginning of Study 2
+B.D1 B D1 numeric 8 2
+B.DT1 B DT1 numeric 8 2
+B.T1 B T1 numeric 8 2
+
+>
+> write.xport(test=w$test,file="a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `TEST':
+ dataset name type format width label nobs
+TEST.RACE TEST RACE character RACE 8 2
+TEST.AGE TEST AGE numeric 8 Age at Beginning of Study 2
+TEST.D1 TEST D1 numeric 8 2
+TEST.DT1 TEST DT1 numeric 8 2
+TEST.T1 TEST T1 numeric 8 2
+
+>
+> write.xport(test=w$test,z=w$z,file="a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `TEST':
+ dataset name type format width label nobs
+TEST.RACE TEST RACE character RACE 8 2
+TEST.AGE TEST AGE numeric 8 Age at Beginning of Study 2
+TEST.D1 TEST D1 numeric 8 2
+TEST.DT1 TEST DT1 numeric 8 2
+TEST.T1 TEST T1 numeric 8 2
+
+Variables in data set `Z':
+ dataset name type format width label nobs
+Z.X3 Z X3 numeric 8 100
+Z.X4 Z X4 numeric 8 100
+Z.X5 Z X5 numeric 8 100
+Z.X6 Z X6 numeric 8 100
+Z.X7 Z X7 numeric 8 100
+Z.X8 Z X8 numeric 8 100
+
+>
+> write.xport(w$test,w$z,file="a.xpt")
+Warning message:
+Data frame names modified to obey SAS rules in: write.xport(w$test, w$z, file = "a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `W.TEST':
+ dataset name type format width label nobs
+W.TEST.RACE W.TEST RACE character RACE 8 2
+W.TEST.AGE W.TEST AGE numeric 8 Age at Beginning of Study 2
+W.TEST.D1 W.TEST D1 numeric 8 2
+W.TEST.DT1 W.TEST DT1 numeric 8 2
+W.TEST.T1 W.TEST T1 numeric 8 2
+
+Variables in data set `W.Z':
+ dataset name type format width label nobs
+W.Z.X3 W.Z X3 numeric 8 100
+W.Z.X4 W.Z X4 numeric 8 100
+W.Z.X5 W.Z X5 numeric 8 100
+W.Z.X6 W.Z X6 numeric 8 100
+W.Z.X7 W.Z X7 numeric 8 100
+W.Z.X8 W.Z X8 numeric 8 100
+
+>
+> write.xport(w$test,z=w$z,file="a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `W.TEST':
+ dataset name type format width label nobs
+W.TEST.RACE W.TEST RACE character RACE 8 2
+W.TEST.AGE W.TEST AGE numeric 8 Age at Beginning of Study 2
+W.TEST.D1 W.TEST D1 numeric 8 2
+W.TEST.DT1 W.TEST DT1 numeric 8 2
+W.TEST.T1 W.TEST T1 numeric 8 2
+
+Variables in data set `Z':
+ dataset name type format width label nobs
+Z.X3 Z X3 numeric 8 100
+Z.X4 Z X4 numeric 8 100
+Z.X5 Z X5 numeric 8 100
+Z.X6 Z X6 numeric 8 100
+Z.X7 Z X7 numeric 8 100
+Z.X8 Z X8 numeric 8 100
+
+>
+> write.xport(list=w,file="a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `TEST':
+ dataset name type format width label nobs
+TEST.RACE TEST RACE character RACE 8 2
+TEST.AGE TEST AGE numeric 8 Age at Beginning of Study 2
+TEST.D1 TEST D1 numeric 8 2
+TEST.DT1 TEST DT1 numeric 8 2
+TEST.T1 TEST T1 numeric 8 2
+
+Variables in data set `Z':
+ dataset name type format width label nobs
+Z.X3 Z X3 numeric 8 100
+Z.X4 Z X4 numeric 8 100
+Z.X5 Z X5 numeric 8 100
+Z.X6 Z X6 numeric 8 100
+Z.X7 Z X7 numeric 8 100
+Z.X8 Z X8 numeric 8 100
+
+>
+> names(w) <- NULL
+> write.xport(w[[1]],w[[2]],file="a.xpt")
+Warning message:
+Data frame names modified to obey SAS rules in: write.xport(w[[1]], w[[2]], file = "a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `W..1..':
+ dataset name type format width label nobs
+W..1...RACE W..1.. RACE character RACE 8 2
+W..1...AGE W..1.. AGE numeric 8 Age at Beginning of Study 2
+W..1...D1 W..1.. D1 numeric 8 2
+W..1...DT1 W..1.. DT1 numeric 8 2
+W..1...T1 W..1.. T1 numeric 8 2
+
+Variables in data set `W..2..':
+ dataset name type format width label nobs
+W..2...X3 W..2.. X3 numeric 8 100
+W..2...X4 W..2.. X4 numeric 8 100
+W..2...X5 W..2.. X5 numeric 8 100
+W..2...X6 W..2.. X6 numeric 8 100
+W..2...X7 W..2.. X7 numeric 8 100
+W..2...X8 W..2.. X8 numeric 8 100
+
+>
+> names(w) <- NULL
+> write.xport(list=w,file="a.xpt")
+Warning message:
+Fewer names than datasets. Creating default names in: write.xport(list = w, file = "a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `NONAME':
+ dataset name type format width label nobs
+NONAME.RACE NONAME RACE character RACE 8 2
+NONAME.AGE NONAME AGE numeric 8 Age at Beginning of Study 2
+NONAME.D1 NONAME D1 numeric 8 2
+NONAME.DT1 NONAME DT1 numeric 8 2
+NONAME.T1 NONAME T1 numeric 8 2
+
+Variables in data set `NONAME.1':
+ dataset name type format width label nobs
+NONAME.1.X3 NONAME.1 X3 numeric 8 100
+NONAME.1.X4 NONAME.1 X4 numeric 8 100
+NONAME.1.X5 NONAME.1 X5 numeric 8 100
+NONAME.1.X6 NONAME.1 X6 numeric 8 100
+NONAME.1.X7 NONAME.1 X7 numeric 8 100
+NONAME.1.X8 NONAME.1 X8 numeric 8 100
+
+>
+> ### Check that we catch invalid parameters
+> failure <- try( write.xport(5,"a.xpt") )
+Error in write.xport(5, "a.xpt") : '5', 'a.xpt' are not data.frame objects.
+> SASxport:::assert( "try-error" %in% class(failure) )
+>
+> failure <- try( write.xport(list(a=5,b=6),"a.xpt") )
+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) )
+>
+>
+> # 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> # 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> url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+
+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> ## Don't show:
+rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+> write.xport(list=base::list(w$test,w$z),file="a.xpt")
+Warning message:
+Fewer names than datasets. Creating default names in: write.xport(list = base::list(w$test, w$z), file = "a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `NONAME':
+ dataset name type format width label nobs
+NONAME.RACE NONAME RACE character RACE 8 2
+NONAME.AGE NONAME AGE numeric 8 Age at Beginning of Study 2
+NONAME.D1 NONAME D1 numeric 8 2
+NONAME.DT1 NONAME DT1 numeric 8 2
+NONAME.T1 NONAME T1 numeric 8 2
+
+Variables in data set `NONAME.1':
+ dataset name type format width label nobs
+NONAME.1.X3 NONAME.1 X3 numeric 8 100
+NONAME.1.X4 NONAME.1 X4 numeric 8 100
+NONAME.1.X5 NONAME.1 X5 numeric 8 100
+NONAME.1.X6 NONAME.1 X6 numeric 8 100
+NONAME.1.X7 NONAME.1 X7 numeric 8 100
+NONAME.1.X8 NONAME.1 X8 numeric 8 100
+
+>
+> # 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> # 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> url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+
+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> ## Don't show:
+rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+> names(w) <- NULL
+> write.xport(list=w,file="a.xpt")
+Warning message:
+Fewer names than datasets. Creating default names in: write.xport(list = w, file = "a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `NONAME':
+ dataset name type format width label nobs
+NONAME.RACE NONAME RACE character RACE 8 2
+NONAME.AGE NONAME AGE numeric 8 Age at Beginning of Study 2
+NONAME.D1 NONAME D1 numeric 8 2
+NONAME.DT1 NONAME DT1 numeric 8 2
+NONAME.T1 NONAME T1 numeric 8 2
+
+Variables in data set `NONAME.1':
+ dataset name type format width label nobs
+NONAME.1.X3 NONAME.1 X3 numeric 8 100
+NONAME.1.X4 NONAME.1 X4 numeric 8 100
+NONAME.1.X5 NONAME.1 X5 numeric 8 100
+NONAME.1.X6 NONAME.1 X6 numeric 8 100
+NONAME.1.X7 NONAME.1 X7 numeric 8 100
+NONAME.1.X8 NONAME.1 X8 numeric 8 100
+
+>
+> # 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> # 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> url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+
+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> ## Don't show:
+rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+> colnames(w[[2]]) <- c()
+> write.xport(list=w,file="a.xpt")
+Warning messages:
+1: Unnamed variables detected. Creating default variable names in: write.xport(list = w, file = "a.xpt")
+2: Variable names modified to obey SAS rules in: write.xport(list = w, file = "a.xpt")
+> lookup.xport("a.xpt")
+
+SAS xport file
+--------------
+Filename: `a.xpt'
+
+Variables in data set `TEST':
+ dataset name type format width label nobs
+TEST.RACE TEST RACE character RACE 8 2
+TEST.AGE TEST AGE numeric 8 Age at Beginning of Study 2
+TEST.D1 TEST D1 numeric 8 2
+TEST.DT1 TEST DT1 numeric 8 2
+TEST.T1 TEST T1 numeric 8 2
+
+Variables in data set `Z':
+ dataset name type format width label nobs
+Z.X6 Z X6 numeric 8 100
+Z.NONAME Z NONAME numeric 8 100
+Z.NONAME_1 Z NONAME_1 numeric 8 100
+Z.NONAME_2 Z NONAME_2 numeric 8 100
+Z.NONAME_3 Z NONAME_3 numeric 8 100
+Z.NONAME_4 Z NONAME_4 numeric 8 100
+
+>
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2007-09-12 22:27:54 UTC (rev 1176)
+++ trunk/SASxport/tests/Theoph.Rout.save 2007-09-13 01:14:55 UTC (rev 1177)
@@ -1,5 +1,5 @@
-R version 2.5.1 (2007-06-27)
+R version 2.5.0 Under development (unstable) (2007-01-25 r40572)
Copyright (C) 2007 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
@@ -21,15 +21,6 @@
> ####
>
> library(SASxport)
-
-Attaching package: 'SASxport'
-
-
- The following object(s) are masked from package:base :
-
- units,
- units<-
-
>
> write.xport(Theoph,file="theoph.xpt")
> Theoph.2 <- read.xport("theoph.xpt")
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2007-09-12 22:27:54 UTC (rev 1176)
+++ trunk/SASxport/tests/cars.Rout.save 2007-09-13 01:14:55 UTC (rev 1177)
@@ -1,5 +1,5 @@
-R version 2.5.1 (2007-06-27)
+R version 2.5.0 Under development (unstable) (2007-01-25 r40572)
Copyright (C) 2007 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
@@ -16,15 +16,6 @@
Type 'q()' to quit R.
> library(SASxport)
-
-Attaching package: 'SASxport'
-
-
- The following object(s) are masked from package:base :
-
- units,
- units<-
-
>
>
> cars <- read.table(file="cars.sas", skip=3, nrows=26,
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2007-09-12 22:27:54 UTC (rev 1176)
+++ trunk/SASxport/tests/testDates.Rout.save 2007-09-13 01:14:55 UTC (rev 1177)
@@ -1,5 +1,5 @@
-R version 2.5.1 (2007-06-27)
+R version 2.5.0 Under development (unstable) (2007-01-25 r40572)
Copyright (C) 2007 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
@@ -16,15 +16,6 @@
Type 'q()' to quit R.
> library(SASxport)
-
-Attaching package: 'SASxport'
-
-
- The following object(s) are masked from package:base :
-
- units,
- units<-
-
>
> ## Create a small data set containing dates, times, and date-times
>
@@ -47,6 +38,8 @@
5 5 e 1992-02-01 1992-02-01 16:56:26
>
> write.xport( DATETIME=temp, file="datetime.xpt")
+Warning message:
+Variable names modified to obey SAS rules in: write.xport(DATETIME = temp, file = "datetime.xpt")
> temp2 <- read.xport(file="datetime.xpt", names.tolower=FALSE)
>
> print(temp2)
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2007-09-12 22:27:54 UTC (rev 1176)
+++ trunk/SASxport/tests/test_fields.Rout.save 2007-09-13 01:14:55 UTC (rev 1177)
@@ -1,5 +1,5 @@
-R version 2.6.0 Under development (unstable) (2007-08-04 r42421)
+R version 2.5.0 Under development (unstable) (2007-01-25 r40572)
Copyright (C) 2007 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
@@ -16,15 +16,6 @@
Type 'q()' to quit R.
> library(SASxport)
-
-Attaching package: 'SASxport'
-
-
- The following object(s) are masked from package:base :
-
- units,
- units<-
-
>
> ## Call C-level test routines
>
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2007-09-12 22:27:54 UTC (rev 1176)
+++ trunk/SASxport/tests/xport.Rout.save 2007-09-13 01:14:55 UTC (rev 1177)
@@ -1,5 +1,5 @@
-R version 2.5.1 (2007-06-27)
+R version 2.5.0 Under development (unstable) (2007-01-25 r40572)
Copyright (C) 2007 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
@@ -16,15 +16,6 @@
Type 'q()' to quit R.
> library(SASxport)
-
-Attaching package: 'SASxport'
-
-
- The following object(s) are masked from package:base :
-
- units,
- units<-
-
>
> lookup.xport("Alfalfa.xpt")
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2007-09-12 22:27:54 UTC (rev 1176)
+++ trunk/SASxport/tests/xxx.Rout.save 2007-09-13 01:14:55 UTC (rev 1177)
@@ -1,5 +1,5 @@
-R version 2.5.1 (2007-06-27)
+R version 2.5.0 Under development (unstable) (2007-01-25 r40572)
Copyright (C) 2007 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
@@ -16,15 +16,6 @@
Type 'q()' to quit R.
> library(SASxport)
-
-Attaching package: 'SASxport'
-
-
- The following object(s) are masked from package:base :
-
- units,
- units<-
-
>
> ## manually create a data set
> abc <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
