[R-gregmisc-users] SF.net SVN: r-gregmisc: [1195] trunk/SASxport
Brought to you by:
warnes
Menu
▾
▴
[R-gregmisc-users] SF.net SVN: r-gregmisc: [1195] trunk/SASxport
|
From: <wa...@us...> - 2007-10-02 22:34:16
|
Revision: 1195
http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1195&view=rev
Author: warnes
Date: 2007-10-02 15:34:06 -0700 (Tue, 02 Oct 2007)
Log Message:
-----------
Add information on how to get help to the startup message
Modified Paths:
--------------
trunk/SASxport/inst/ChangeLog
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/TestUnnamedComponents.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
Modified: trunk/SASxport/inst/ChangeLog
===================================================================
--- trunk/SASxport/inst/ChangeLog 2007-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/inst/ChangeLog 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,367 +0,0 @@
-2007-09-25 19:54 warnes
-
- * man/SASxport-package.Rd, man/write.xport.Rd: Indicate that Metrum
- partially funded development
-
-2007-09-25 19:53 warnes
-
- * R/zzz.R: Display version and support information on package load
-
-2007-09-18 17:42 warnes
-
- * DESCRIPTION: Spent more time than Metrum paid for
-
-2007-09-15 06:17 warnes
-
- * man/SASxport-package.Rd, man/lookup.xport.Rd, man/read.xport.Rd,
- man/toSAS.Rd, tests/TestUnnamedComponents.Rout.save: Improve
- formatting for pdf output
-
-2007-09-15 05:06 warnes
-
- * inst/ChangeLog: Update changelog
-
-2007-09-15 04:55 warnes
-
- * tests/TestUnnamedComponents.R: Changes so test
- TestUnnamedCompontents.R runs under R 2.4.1 on Win32
-
-2007-09-15 04:01 warnes
-
- * DESCRIPTION, R/make.formats.R, R/toSAS.R, R/write.xport.R,
- R/xport.character.R, man/Alfalfa.Rd, man/lookup.xport.Rd,
- man/toSAS.Rd, man/write.xport.Rd, tests/Alfalfa_Test.R,
- tests/Alfalfa_Test.Rout.save,
- tests/TestUnnamedComponents.Rout.save, tests/Theoph.Rout.save,
- tests/cars.R, tests/cars.Rout.save, tests/test.xpt,
- tests/testDates.Rout.save, tests/test_fields.Rout.save,
- tests/xport.Rout.save, tests/xxx.R, tests/xxx.Rout.save: Add
- support for auto-generating SAS formats for factor objects.
- Refactor argument name handling to improve code clarity.
-
-2007-09-14 15:35 warnes
-
- * R/process.formats.R, R/read.xport.R, data, data/Alfalfa.R,
- data/Alfalfa.xpt, inst/ChangeLog, man/Alfalfa.Rd,
- man/lookup.xport.Rd, man/read.xport.Rd,
- tests/TestUnnamedComponents.Rout.save: Add option to read.xport()
- that permits inclusion of PROC CONTENTS format information in the
- returned list
-
-2007-09-13 17:36 warnes
-
- * R/read.xport.R: Ensure 'names.tolower' applies to dataset names
-
-2007-09-13 01:55 warnes
-
- * tests/TestUnnamedComponents.Rout.save: Update test output to
- match recent changes.
-
-2007-09-13 01:19 warnes
-
- * R/write.xport.R: Add checking and handling for unnamed data
- frames or variables
-
-2007-09-13 01:14 warnes
-
- * tests/Alfalfa_Test.Rout.save, tests/TestUnnamedComponents.R,
- tests/TestUnnamedComponents.Rout.save, tests/Theoph.Rout.save,
- tests/cars.Rout.save, tests/testDates.Rout.save,
- tests/test_fields.Rout.save, tests/xport.Rout.save,
- tests/xxx.Rout.save: Update tests now that 'units' and 'units<-'
- functions no longer are included
-
-2007-09-12 22:27 warnes
-
- * NAMESPACE: Remove units() and units<-() functions since they
- arene't ever used.
-
-2007-09-12 22:25 warnes
-
- * R/units.R, man/label.Rd, man/units.Rd: Remove units() and
- units<-() functions since they arene't ever used.
-
-2007-09-12 22:24 warnes
-
- * man/units.Rd: Remove units from manual page
-
-2007-09-11 23:08 warnes
-
- * man/read.xport.Rd: Add assertion to test that read.xport(..,
- as.list=TRUE) works properly
-
-2007-09-11 23:05 warnes
-
- * R/write.xport.R: Forgot to save buffer before svn commit.
-
-2007-09-11 21:22 warnes
-
- * R/read.xport.R, man/read.xport.Rd: Correct error in handling
- 'verbose' argument, error when more than one dataset has the same
- name, and add 'as.list' argument to ensure return value is a
- list, even if there is only one dataset in the file
-
-2007-09-11 21:21 warnes
-
- * R/write.xport.R, man/write.xport.Rd: Improve handling of list
- argument. Also check that names are proper and unique.
-
-2007-09-07 16:47 warnes
-
- * tests/Theoph.R, tests/Theoph.Rout.save: Add round-trip test for
- Theoph data set
-
-2007-09-07 16:32 warnes
-
- * tests/Alfalfa_Test.Rout.save, tests/cars.Rout.save,
- tests/testDates.Rout.save, tests/xxx.Rout.save: Change argument
- name in write.xport from 'filename' to 'file' to match read.xport
-
-2007-09-07 16:25 warnes
-
- * man/write.xport.Rd: Change argument name in write.xport from
- 'filename' to 'file' to match read.xport
-
-2007-09-07 16:23 warnes
-
- * R/write.xport.R, man/read.xport.Rd, man/write.xport.Rd,
- tests/Alfalfa_Test.R, tests/cars.R, tests/testDates.R,
- tests/xxx.R: Change argument name in write.xport from 'filename'
- to 'file' to match read.xport
-
-2007-09-07 16:21 warnes
-
- * DESCRIPTION: Fix typo
-
-2007-08-29 02:24 warnes
-
- * DESCRIPTION: Update Version to 1.0, depend on current version of
- foreign
-
-2007-08-22 19:21 warnes
-
- * ChangeLog, NEWS, inst/ChangeLog, inst/NEWS: Update ChangeLog and
- NEWS files
-
-2007-08-22 18:11 warnes
-
- * R/read.xport.R, man/read.xport.Rd, tests/xport.Rout.save: Modify
- read.xport to preserve case of SAS names by default, as well as
- updating the example code.
-
-2007-08-22 01:19 warnes
-
- * src/reverse.c: sprintf() was being used where printf() was
- intended.
-
-2007-08-21 18:16 warnes
-
- * DESCRIPTION: Slight improvement to credits for BRL-CAD
-
-2007-08-21 18:13 warnes
-
- * TODO, man/lookup.xport.Rd, man/read.xport.Rd: Commit previous
- updates
-
-2007-08-21 18:12 warnes
-
- * src/htond.c, src/ibm2ieee.c, src/ieee2ibm.c, src/init.c,
- src/reverse.c, src/test_fields.c: Commit previous updates
-
-2007-08-15 07:02 warnes
-
- * DESCRIPTION, man/SASxport-package.Rd, src/cnxptiee.c,
- src/cnxptiee.h, src/htond.c, src/init.c, src/reverse.c,
- src/test_fields.c, src/writeSAS.c, src/writeSAS.h: Remove
- dependency on SAS code
-
-2007-08-15 06:06 warnes
-
- * src/reverse.c: Fix reverse.c because we need to swap everything
- to match Big-Endian, rather than Little-Endian. Also, dont' call
- the macro.
-
-2007-08-15 06:04 warnes
-
- * src/reverse.c: Restore reverse.c
-
-2007-08-15 03:17 warnes
-
- * DESCRIPTION: Minor reformatting
-
-2007-08-15 03:14 warnes
-
- * DESCRIPTION, inst/doc/SAS_TS140.txt, inst/doc/index.html,
- inst/doc/r2xpt.doc, man/SASxport-package.Rd, man/lookup.xport.Rd,
- man/read.xport.Rd, man/toSAS.Rd, man/units.Rd,
- man/write.xport.Rd: Make corrections for typos noted by Metrum
- folks
-
-2007-08-12 03:22 warnes
-
- * DESCRIPTION, man/lookup.xport.Rd, src/cnxptiee.h,
- src/test_fields.c, src/writeSAS.h: More updates
-
-2007-08-12 03:13 warnes
-
- * src/B8.h, src/IEEEtoIBM.c, src/MASKS.h, src/main.c,
- src/reverse.c: Remove new stuff... use SAS's code instead
-
-2007-08-12 03:12 warnes
-
- * src/B8.h, src/IEEEtoIBM.c, src/MASKS.h, src/cnxptiee.h,
- src/main.c, src/reverse.c, src/test_fields.c, src/writeSAS.h: 1st
- attempt at rewriting cnxptiee.[ch]
-
-2007-08-11 23:48 warnes
-
- * R/read.xport.R: Explicitly check file header
-
-2007-08-11 00:03 warnes
-
- * DESCRIPTION, man/SASxport-package.Rd: Improve package description
-
-2007-08-09 23:29 warnes
-
- * DESCRIPTION, NAMESPACE, TODO, man/lookup.xport.Rd,
- man/read.xport.Rd, man/units.Rd: More changes, esp to
- lookup.xport() and friends
-
-2007-08-09 23:28 warnes
-
- * tests/Alfalfa_Test.Rout.save, tests/cars.Rout.save,
- tests/xport.Rout.save: More changes, esp to lookup.xport() and
- friends
-
-2007-08-09 23:28 warnes
-
- * R/AFirst.lib.s, R/all.is.numeric.R, R/in.opererator.R,
- R/lookup.xport.R, R/read.xport.R, R/write.xport.R: More changes,
- esp to lookup.xport() and friends
-
-2007-08-09 19:02 warnes
-
- * src/swap_bytes.h: Remove unused swap_bytes.h
-
-2007-08-09 19:02 warnes
-
- * man/SASxport-package.Rd: Add package description page
-
-2007-08-09 16:54 warnes
-
- * R/importConvertDateTime.R, R/makeNames.R, R/read.xport.R,
- R/testDateTime.R: Add comment header indicating the source of
- code from Hmisc
-
-2007-08-09 16:53 warnes
-
- * tests/testDates.Rout.save, tests/test_fields.Rout.save,
- tests/xport.Rout.save, tests/xxx.Rout.save: Update saved output
- of test scripts
-
-2007-08-08 18:54 warnes
-
- * DESCRIPTION, NAMESPACE: Updates
-
-2007-08-08 18:54 warnes
-
- * tests/Alfalfa_Test.R, tests/Alfalfa_Test.Rout.save, tests/cars.R,
- tests/cars.Rout.save, tests/datetime.xpt, tests/testDates.R,
- tests/test_fields.R, tests/test_fields.Rout.save, tests/xport.R,
- tests/xxx.R, tests/xxx.Rout.save: Updates
-
-2007-08-08 18:54 warnes
-
- * src/SASxport.c, src/SASxport.h, src/foreign.h, src/init.c:
- Updates
-
-2007-08-08 18:53 warnes
-
- * R/AFirst.lib.s, R/formats.R, R/iformat.R,
- R/importConvertDateTime.R, R/label.R, R/lookup.xport.R,
- R/makeNames.R, R/read.xport.R, R/testDateTime.R, R/units.R,
- R/xport.R: Updates
-
-2007-08-08 18:53 warnes
-
- * man/assert.Rd, man/read.xport.Rd, man/units.Rd: Updates.
-
-2007-08-03 04:44 warnes
-
- * DESCRIPTION, NAMESPACE, R/scat.R, R/xport.R, R/zzz.R,
- man/lookup.xport.Rd, man/read.xport.Rd, src/SASxport.c,
- src/SASxport.h, src/cnxptiee.c, src/cnxptiee.h, src/foreign.h,
- src/init.c, src/swap_bytes.h, src/test_fields.c, src/writeSAS.c,
- src/writeSAS.h, tests/Alfalfa_Test.Rout.save,
- tests/cars.Rout.save, tests/datetime.xpt, tests/test.xpt,
- tests/testDates.Rout.save, tests/test_fields.Rout.save,
- tests/xport.R, tests/xport.Rout.save, tests/xxx.Rout.save: Add
- code from package foreign and gtools to make SASxport stand alone
-
-2007-08-03 01:46 warnes
-
- * R/.Rhistory: Remove stray .Rhistory file
-
-2007-08-03 01:45 warnes
-
- * DESCRIPTION: Acknowledge MetrumI support
-
-2007-08-03 01:45 warnes
-
- * NAMESPACE: Add "assert" function
-
-2007-08-03 01:44 warnes
-
- * R/assert.R, man/assert.Rd: Add "assert" function to avoid
- dependenct on gtools.
-
-2007-08-03 01:29 warnes
-
- * man/toSAS.Rd, src/cnxptiee.c, src/writeSAS.c: Correct some typos.
-
-2007-08-03 00:40 warnes
-
- * DESCRIPTION: Drop version number to 0.99 until testing
- integration and is complete
-
-2007-08-03 00:39 warnes
-
- * tests/test_fields.R: Add R test file to run c-level tests
-
-2007-08-03 00:36 warnes
-
- * src/SASxport.so: Remove .so from svn
-
-2007-08-03 00:35 warnes
-
- * NAMESPACE, R/fromSASDate.R, R/parseFormat.R, R/toSAS.R,
- R/write.xport.R, R/xport.character.R, R/xport.file.header.R,
- R/xport.member.header.R, R/xport.namestr.R, man/toSAS.Rd,
- src/SASxport.so, src/writeSAS.c: More modifications. Should now
- work for most R data types
-
-2007-08-03 00:35 warnes
-
- * tests/cars.R, tests/datetime.xpt, tests/testDates.R, tests/xxx.R:
- Add more tests
-
-2007-07-29 01:15 warnes
-
- * tests/Alfalfa2.xpt, tests/cars.sas, tests/cars.xpt,
- tests/xxx.sas, tests/xxx.xpt: Add SAS code to create xport data
- files for testing
-
-2007-07-28 08:47 warnes
-
- * ., DESCRIPTION, NAMESPACE, R, R/.Rhistory, R/blanks.R,
- R/rawToDisplay.R, R/write.xport.R, R/xport.NA.R,
- R/xport.character.R, R/xport.dateFMT.R, R/xport.file.header.R,
- R/xport.fill.R, R/xport.member.header.R, R/xport.namestr.R,
- R/xport.namestr.header.R, R/xport.numeric.R,
- R/xport.obs.header.R, R/zzz.R, inst, inst/doc,
- inst/doc/SAS_TS140.txt, inst/doc/index.html, inst/doc/r2xpt.doc,
- man, man/write.xport.Rd, src, src/SASxport.so, src/cnxptiee.c,
- src/cnxptiee.h, src/test_fields.c, src/writeSAS.c,
- src/writeSAS.h, tests, tests/Alfalfa.xpt, tests/Alfalfa2.xpt,
- tests/Alfalfa_Test.R: Add SVNxport package
-
Modified: trunk/SASxport/tests/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2007-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,6 +1,6 @@
-R version 2.6.0 beta (2007-09-24 r42966)
-Copyright (C) 2007 The R Foundation for Statistical Computing
+R version 2.4.1 (2006-12-18)
+Copyright (C) 2006 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -25,6 +25,8 @@
Updates and technical support available from Random Technologies, LLC
<http://random-technologies-llc.com/contact>
+ Type `?SASxport' for usage information.
+
>
> # existing data file
> SPEC <- read.xport("Alfalfa.xpt")
Modified: trunk/SASxport/tests/TestUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/TestUnnamedComponents.Rout.save 2007-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/tests/TestUnnamedComponents.Rout.save 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,6 +1,6 @@
-R version 2.6.0 beta (2007-09-24 r42966)
-Copyright (C) 2007 The R Foundation for Statistical Computing
+R version 2.4.1 (2006-12-18)
+Copyright (C) 2006 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -22,77 +22,30 @@
Updates and technical support available from Random Technologies, LLC
<http://random-technologies-llc.com/contact>
+ 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> host <- "http://biostat.mc.vanderbilt.edu"
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> path <- "/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt"
-rd.xpr> url <- paste(host,path,sep="")
+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> 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> 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> SASxport:::assert(is.data.frame(w) == FALSE && is.list(w) ==
+ TRUE)
> write.xport(w$test,file="a.xpt")
Warning message:
-In write.xport(w$test, file = "a.xpt") :
- Data frame names modified to obey SAS rules
+Data frame names modified to obey SAS rules in: write.xport(w$test, file = "a.xpt")
> lookup.xport("a.xpt")
SAS xport file
@@ -168,8 +121,7 @@
>
> write.xport(w$test,w$z,file="a.xpt")
Warning message:
-In write.xport(w$test, w$z, file = "a.xpt") :
- Data frame names modified to obey SAS rules
+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
@@ -271,8 +223,7 @@
> names(w) <- NULL
> write.xport(w[[1]],w[[2]],file="a.xpt")
Warning message:
-In write.xport(w[[1]], w[[2]], file = "a.xpt") :
- Data frame names modified to obey SAS rules
+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
@@ -300,8 +251,7 @@
> names(w) <- NULL
> write.xport(list=w,file="a.xpt")
Warning message:
-In write.xport(list = w, file = "a.xpt") :
- Replacing missing or invalid dataset names
+Replacing missing or invalid dataset names in: write.xport(list = w, file = "a.xpt")
> lookup.xport("a.xpt")
SAS xport file
@@ -376,85 +326,35 @@
>
> ### 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.
+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.
+ '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> host <- 'http://biostat.mc.vanderbilt.edu'
+rd.xpr> host <- "http://biostat.mc.vanderbilt.edu"
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> path <- "/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt"
-rd.xpr> url <- paste(host,path,sep="")
+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> 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> 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> 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:
-In write.xport(list = base::list(w$test, w$z), file = "a.xpt") :
- Replacing missing or invalid dataset names
+Replacing missing or invalid dataset names in: write.xport(list = base::list(w$test, w$z), file = "a.xpt")
> lookup.xport("a.xpt")
SAS xport file
@@ -482,73 +382,24 @@
> # 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> host <- 'http://biostat.mc.vanderbilt.edu'
+rd.xpr> host <- "http://biostat.mc.vanderbilt.edu"
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> path <- "/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt"
-rd.xpr> url <- paste(host,path,sep="")
+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> 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> 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> SASxport:::assert(is.data.frame(w) == FALSE && is.list(w) ==
+ TRUE)
> names(w) <- NULL
> write.xport(list=w,file="a.xpt")
Warning message:
-In write.xport(list = w, file = "a.xpt") :
- Replacing missing or invalid dataset names
+Replacing missing or invalid dataset names in: write.xport(list = w, file = "a.xpt")
> lookup.xport("a.xpt")
SAS xport file
@@ -624,73 +475,24 @@
> # 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> host <- 'http://biostat.mc.vanderbilt.edu'
+rd.xpr> host <- "http://biostat.mc.vanderbilt.edu"
-rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> path <- "/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt"
-rd.xpr> url <- paste(host,path,sep="")
+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> 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> 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> SASxport:::assert(is.data.frame(w) == FALSE && is.list(w) ==
+ TRUE)
> colnames(w[[2]]) <- rep("", length=ncol(w[[2]]))
> write.xport(list=w,file="a.xpt")
Warning message:
-In write.xport(list = w, file = "a.xpt") :
- Unnamed variables detected, using default names
+Unnamed variables detected, using default names in: write.xport(list = w, file = "a.xpt")
> lookup.xport("a.xpt")
SAS xport file
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2007-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/tests/Theoph.Rout.save 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,6 +1,6 @@
-R version 2.6.0 beta (2007-09-24 r42966)
-Copyright (C) 2007 The R Foundation for Statistical Computing
+R version 2.4.1 (2006-12-18)
+Copyright (C) 2006 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -27,6 +27,8 @@
Updates and technical support available from Random Technologies, LLC
<http://random-technologies-llc.com/contact>
+ Type `?SASxport' for usage information.
+
>
> 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-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/tests/cars.Rout.save 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,6 +1,6 @@
-R version 2.6.0 beta (2007-09-24 r42966)
-Copyright (C) 2007 The R Foundation for Statistical Computing
+R version 2.4.1 (2006-12-18)
+Copyright (C) 2006 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -22,6 +22,8 @@
Updates and technical support available from Random Technologies, LLC
<http://random-technologies-llc.com/contact>
+ Type `?SASxport' for usage information.
+
>
>
> cars <- read.table(file="cars.sas", skip=3, nrows=26,
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2007-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/tests/testDates.Rout.save 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,6 +1,6 @@
-R version 2.6.0 beta (2007-09-24 r42966)
-Copyright (C) 2007 The R Foundation for Statistical Computing
+R version 2.4.1 (2006-12-18)
+Copyright (C) 2006 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -22,6 +22,8 @@
Updates and technical support available from Random Technologies, LLC
<http://random-technologies-llc.com/contact>
+ Type `?SASxport' for usage information.
+
>
> ## Create a small data set containing dates, times, and date-times
>
@@ -45,8 +47,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
+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-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/tests/test_fields.Rout.save 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,6 +1,6 @@
-R version 2.6.0 beta (2007-09-24 r42966)
-Copyright (C) 2007 The R Foundation for Statistical Computing
+R version 2.4.1 (2006-12-18)
+Copyright (C) 2006 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -22,6 +22,8 @@
Updates and technical support available from Random Technologies, LLC
<http://random-technologies-llc.com/contact>
+ Type `?SASxport' for usage information.
+
>
> ## Call C-level test routines
>
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2007-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/tests/xport.Rout.save 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,6 +1,6 @@
-R version 2.6.0 beta (2007-09-24 r42966)
-Copyright (C) 2007 The R Foundation for Statistical Computing
+R version 2.4.1 (2006-12-18)
+Copyright (C) 2006 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -22,6 +22,8 @@
Updates and technical support available from Random Technologies, LLC
<http://random-technologies-llc.com/contact>
+ Type `?SASxport' for usage information.
+
>
> lookup.xport("Alfalfa.xpt")
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2007-10-02 22:30:31 UTC (rev 1194)
+++ trunk/SASxport/tests/xxx.Rout.save 2007-10-02 22:34:06 UTC (rev 1195)
@@ -1,6 +1,6 @@
-R version 2.6.0 beta (2007-09-24 r42966)
-Copyright (C) 2007 The R Foundation for Statistical Computing
+R version 2.4.1 (2006-12-18)
+Copyright (C) 2006 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -22,6 +22,8 @@
Updates and technical support available from Random Technologies, LLC
<http://random-technologies-llc.com/contact>
+ Type `?SASxport' for usage information.
+
>
> ## 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.
|
