R-beta: acepack patch

Thomas Lumley (thomas@biostat.washington.edu)
Wed, 25 Jun 1997 08:56:44 -0700 (PDT)


Date: Wed, 25 Jun 1997 08:56:44 -0700 (PDT)
From: Thomas Lumley <thomas@biostat.washington.edu>
To: r-help@stat.math.ethz.ch
Subject: R-beta: acepack patch
In-Reply-To: <199706250930.LAA05653@sophie.ethz.ch>


At the end of this message is a patch for acepack.R.  The modified version
is now at http://www.biostat.washington.edu/~thomas/R.html and soon at
CRAN. The current version of ace() doesn't allocate enough working
storage.

Thomas Lumley
------------------------------------------------------+------
Biostatistics		: "Never attribute to malice what  :
Uni of Washington	:  can be adequately explained by  :
Box 357232		:  incompetence" - Hanlon's Razor  :
Seattle WA 98195-7232	:				   :
------------------------------------------------------------

*** acepack.R.orig	Wed Jun 25 08:51:56 1997
--- acepack.R	Wed Jun 25 08:44:52 1997
***************
*** 102,108 ****
  	}
  	tx <- x
  	ty <- y
! 	m <- matrix(0, nrow = nrow(x), ncol =  1)
  	z <- matrix(0, nrow = nrow(x), ncol = 12)
  	z <- as.matrix(z)
  	ns<-1
--- 102,108 ----
  	}
  	tx <- x
  	ty <- y
! 	m <- matrix(0, nrow = nrow(x), ncol =  iy+1)
  	z <- matrix(0, nrow = nrow(x), ncol = 12)
  	z <- as.matrix(z)
  	ns<-1

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=