From Martin Maechler <maechler@stat.math.ethz.ch>  Wed Jun 25 10:30:03 1997
From: Martin Maechler <maechler@stat.math.ethz.ch> (Martin Maechler)
Date: Wed, 25 Jun 1997 11:30:03 +0200
Subject: R-alpha: lbeta, .. etc
In-Reply-To: <9706250920.AA11845@alpha.luc.ac.be> (message from Jim Lindsey on
 Wed, 25 Jun 1997 11:20:50 +0200 (MET DST))
Message-ID: <199706250930.LAA05653@sophie.ethz.ch>

>>>>> "Jim" == Jim Lindsey <jlindsey@luc.ac.be> writes:

    Jim> 1. lbeta and beta do not work properly: lbeta returns its first
    Jim> argument and beta gives the lbeta result.  In names.c lines 245-6,
    Jim> the codes for these should be 2 and 3 instead of 1 and 2

    Jim> 2. crtl-C does not work (except the first time) on Red Hat elf
    Jim> Linux (which has many many other problems as well) nor on the
    Jim> previous version of Linux for Amiga. It worked on Slackware aout
    Jim> Linux and now works on the most recent version of Linux for the
    Jim> Amiga. It also works correctly on a Sun.

Both of these problems have been reported before, here.
However, Jim hasn't been subscribed, ``back then''.

Ross has found (about 6 weeks ago...) that problem '1.'
is simply a  "cut & paste" typo in  RHOME/main/names.c
(old code has been doubled by accident).

Here is the patch which just deletes about a dozen lines in  names.c

--- /usr/local/R-0.49-RR/src/main/names.c	Fri May 16 15:00:56 1997
+++ names.c	Wed May 14 09:23:14 1997
@@ -240,34 +240,6 @@
 
 #endif
 
-/* Mathematical Functions of Two Variables */
-
-{"lbeta",	do_math2,	1,	1,	2,	PP_FUNCALL,	0},
-{"beta",	do_math2,	2,	1,	2,	PP_FUNCALL,	0},
-{"lchoose",	do_math2,	4,	1,	2,	PP_FUNCALL,	0},
-{"choose",	do_math2,	5,	1,	2,	PP_FUNCALL,	0},
-
-{"dchisq",	do_math2,	6,	1,	2,	PP_FUNCALL,	0},
-{"pchisq",	do_math2,	7,	1,	2,	PP_FUNCALL,	0},
-{"qchisq",	do_math2,	8,	1,	2,	PP_FUNCALL,	0},
-
-{"dexp",	do_math2,	9,	11,	2,	PP_FUNCALL,	0},
-{"pexp",	do_math2,	10,	11,	2,	PP_FUNCALL,	0},
-{"qexp",	do_math2,	11,	11,	2,	PP_FUNCALL,	0},
-
-{"dgeom",	do_math2,	12,	1,	2,	PP_FUNCALL,	0},
-{"pgeom",	do_math2,	13,	1,	2,	PP_FUNCALL,	0},
-{"qgeom",	do_math2,	14,	1,	2,	PP_FUNCALL,	0},
-
-{"dpois",	do_math2,	15,	1,	2,	PP_FUNCALL,	0},
-{"ppois",	do_math2,	16,	1,	2,	PP_FUNCALL,	0},
-{"qpois",	do_math2,	17,	1,	2,	PP_FUNCALL,	0},
-
-{"dt",		do_math2,	18,	1,	2,	PP_FUNCALL,	0},
-{"pt",		do_math2,	19,	1,	2,	PP_FUNCALL,	0},
-{"qt",		do_math2,	20,	1,	2,	PP_FUNCALL,	0},
-
-
 /* Mathematical Functions of Three Variables */
 
 {"dbeta",	do_math3,	1,	1,	3,	PP_FUNCALL,	0},
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-devel 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-devel-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


R-alpha: lbeta, .. etc
Martin Maechler