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

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

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

Log Message:
-----------
Add comment header indicating the source of code from Hmisc

Modified Paths:
--------------
    trunk/SASxport/R/importConvertDateTime.R
    trunk/SASxport/R/makeNames.R
    trunk/SASxport/R/read.xport.R
    trunk/SASxport/R/testDateTime.R

Modified: trunk/SASxport/R/importConvertDateTime.R
===================================================================
--- trunk/SASxport/R/importConvertDateTime.R	2007-08-09 16:53:14 UTC (rev 1127)
+++ trunk/SASxport/R/importConvertDateTime.R	2007-08-09 16:54:16 UTC (rev 1128)
@@ -1,3 +1,9 @@
+##
+## Code originally from Frank Harrell's 'Hmisc' library: 
+##   http://biostat.mc.vanderbilt.edu/twiki/bin/view/Main/Hmisc
+## Copied with permission on 2007-08-04
+##
+
 importConvertDateTime <- 
   function(x, type=c('date','time','datetime'),
            input=c('sas','spss','dataload'), form)

Modified: trunk/SASxport/R/makeNames.R
===================================================================
--- trunk/SASxport/R/makeNames.R	2007-08-09 16:53:14 UTC (rev 1127)
+++ trunk/SASxport/R/makeNames.R	2007-08-09 16:54:16 UTC (rev 1128)
@@ -1,3 +1,9 @@
+##
+## Code originally from Frank Harrell's 'Hmisc' library: 
+##   http://biostat.mc.vanderbilt.edu/twiki/bin/view/Main/Hmisc
+## Copied with permission on 2007-08-04
+##
+
 makeNames <- function(names, unique=FALSE, allow=NULL)
 {
   ## Runs make.names with exceptions in vector allow

Modified: trunk/SASxport/R/read.xport.R
===================================================================
--- trunk/SASxport/R/read.xport.R	2007-08-09 16:53:14 UTC (rev 1127)
+++ trunk/SASxport/R/read.xport.R	2007-08-09 16:54:16 UTC (rev 1128)
@@ -1,3 +1,9 @@
+##
+## Code originally from Frank Harrell's 'Hmisc' library: 
+##   http://biostat.mc.vanderbilt.edu/twiki/bin/view/Main/Hmisc
+## Copied with permission on 2007-08-04
+##
+
 read.xport <- function(file,
                        force.integer=TRUE,
                        formats=NULL,

Modified: trunk/SASxport/R/testDateTime.R
===================================================================
--- trunk/SASxport/R/testDateTime.R	2007-08-09 16:53:14 UTC (rev 1127)
+++ trunk/SASxport/R/testDateTime.R	2007-08-09 16:54:16 UTC (rev 1128)
@@ -1,3 +1,8 @@
+##
+## Code originally from Frank Harrell's 'Hmisc' library: 
+##   http://biostat.mc.vanderbilt.edu/twiki/bin/view/Main/Hmisc
+## Copied with permission on 2007-08-04
+##
 
 ## Determine if variable is a date, time, or date/time variable in R
 ## or S-Plus.  The following 2 functions are used by describe.vector


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