R-alpha: lbeta, .. etc

Martin Maechler Martin Maechler <maechler@stat.math.ethz.ch>
Wed, 25 Jun 1997 11:30:03 +0200


>>>>> "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
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-