search for: pp_funcall

There is a problem with `rpois'. It does seem to take care about the order of the arguments. This is an example: > rpois(n=1,lambda=2) [1] 3 > rpois(lambda=2,n=1) [1] 2 0 It obviously uses the first argument as the number of samples to be drawn, which is wrong. I used Version 0.49 Beta (April 23, 1997). Fredrik

There is a problem with `rpois'. It does seem to take care about the order of the arguments. This is an example: > rpois(n=1,lambda=2) [1] 3 > rpois(lambda=2,n=1) [1] 2 0 It obviously uses the first argument as the number of samples to be drawn, which is wrong. I used Version 0.49 Beta (April 23, 1997). Fredrik

1. lbeta and beta do not work properly: lbeta returns its first argument and beta gives the lbeta result. In names.c lines 245-6, the codes for these should be 2 and 3 instead of 1 and 2 2. crtl-C does not work (except the first time) on Red Hat elf Linux (which has many many other problems as well) nor on the previous version of Linux for Amiga. It worked on Slackware aout Linux and now works

1. lbeta and beta do not work properly: lbeta returns its first argument and beta gives the lbeta result. In names.c lines 245-6, the codes for these should be 2 and 3 instead of 1 and 2 2. crtl-C does not work (except the first time) on Red Hat elf Linux (which has many many other problems as well) nor on the previous version of Linux for Amiga. It worked on Slackware aout Linux and now works

...to figure out what UNPROTECT(2) was and why it should be changed to UNPROTECT(3) ... hope this is useful. Ben Bolker *** src/main/names.c.orig Mon Jan 17 11:23:26 2000 --- src/main/names.c Mon Jan 17 11:50:54 2000 *************** *** 644,650 **** {"identify", do_identify, 0, 11, 6, PP_FUNCALL}, {"strheight", do_strheight, 0, 11, 3, PP_FUNCALL}, {"strwidth", do_strwidth, 0, 11, 3, PP_FUNCALL}, ! {"contour", do_contour, 0, 11, 6, PP_FUNCALL}, {"image", do_image, 0, 11, 5, PP_FUNCALL}, {"dend", do_dend, 0, 111, 6, PP_FUNCALL}, {&q...

...ences{ Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988) Index: src/main/names.c =================================================================== --- src/main/names.c (revision 54862) +++ src/main/names.c (working copy) @@ -786,7 +786,7 @@ {"file.info", do_fileinfo, 0, 11, 1, {PP_FUNCALL, PREC_FN, 0}}, {"file.access", do_fileaccess, 0, 11, 2, {PP_FUNCALL, PREC_FN, 0}}, {"dir.create", do_dircreate, 0, 11, 4, {PP_FUNCALL, PREC_FN, 0}}, -{"tempfile", do_tempfile, 0, 11, 2, {PP_FUNCALL, PREC_FN, 0}}, +{"tempfile", do_tempfile, 0, 11, 3, {PP_FUN...

Dear R developers, I have found the following bug with readline() in R 0.63.3: if you execute the menu-function and then the readline() function, then readline() prompts "Selection:" > a <- readline() hello > a [1] "hallo" > a <- menu(c("a", "b"), title="bitte:") bitte: 1:a 2:b Selection: 2 > a <- readline() Selection:

...ta",globalenv()) } \keyword{file} diff -r --unified R-0.63.2.orig/src/main/names.c R-0.63.2/src/main/names.c --- R-0.63.2.orig/src/main/names.c Wed Nov 25 09:51:49 1998 +++ R-0.63.2/src/main/names.c Tue Jan 26 16:15:07 1999 @@ -472,7 +472,7 @@ #endif {"parse", do_parse, 0, 11, 4, PP_FUNCALL}, {"save", do_save, 0, 111, 3, PP_FUNCALL}, -{"load", do_load, 0, 111, 1, PP_FUNCALL}, +{"load", do_load, 0, 111, 2, PP_FUNCALL}, {"hdf5save", do_hdf5save, 0, 0, -1, PP_FUNCALL}, {"hdf5load", do_hdf5load, 0, 11, 2, PP_FUNCALL}, {"deparse&q...

...======================================== RCS file: /home/rcvs/src/R/src/main/names.c,v retrieving revision 1.119 diff -c -r1.119 names.c *** src/main/names.c 2000/01/27 05:41:22 1.119 --- src/main/names.c 2000/01/29 00:23:18 *************** *** 515,522 **** {"parse", do_parse, 0, 11, 4, PP_FUNCALL}, {"save", do_save, 0, 111, 4, PP_FUNCALL}, {"load", do_load, 0, 111, 2, PP_FUNCALL}, - {"hdf5save", do_hdf5save, 0, 0, -1, PP_FUNCALL}, - {"hdf5load", do_hdf5load, 0, 11, 2, PP_FUNCALL}, {"deparse", do_deparse, 0, 11, 2, PP_FUNCALL}, {&quo...

...ING_ELT(class, 1, mkChar("connection")); classgets(ans, class); UNPROTECT(2); --- src/main/names.c.orig 2005-05-20 05:51:46.000000000 -0700 +++ src/main/names.c 2005-08-22 15:59:47.968828400 -0700 @@ -866,7 +866,7 @@ {"pushBack", do_pushback, 0, 11, 3, {PP_FUNCALL, PREC_FN, 0}}, {"clearPushBackLength",do_clearpushback,0, 11, 1, {PP_FUNCALL, PREC_FN, 0}}, {"pushBackLength",do_pushbacklength,0, 11, 1, {PP_FUNCALL, PREC_FN, 0}}, -{"textConnection",do_textconnection,0, 11, 4, {PP_FUNCALL, PREC_FN, 0}},...

I have dowloaded the Source Code of R,and I want to know the process of chi-sqared test,but how can I found it? [[alternative HTML version deleted]]

..."Rprofmem.out", threshold=1000) example(glm) Rprofmem(NULL) Index: src/main/names.c =================================================================== --- src/main/names.c (revision 35) +++ src/main/names.c (working copy) @@ -749,7 +749,7 @@ {"rowSums", do_colsum, 2, 11, 4, {PP_FUNCALL, PREC_FN, 0}}, {"rowMeans", do_colsum, 3, 11, 4, {PP_FUNCALL, PREC_FN, 0}}, {"Rprof", do_Rprof, 0, 11, 4, {PP_FUNCALL, PREC_FN, 0}}, -{"Rprofmem", do_Rprofmem, 0, 11, 3, {PP_FUNCALL, PREC_FN, 0}}, +{"Rprofmem", do_Rprofmem, 0, 11, 7, {PP_FUNCALL, PREC_FN, 0...

...ames.c R-patched-grw/src/main/names.c=0A= --- R-patched/src/main/names.c 2003-03-22 21:13:18.000000000 -0500=0A= +++ R-patched-grw/src/main/names.c 2003-07-07 11:48:45.000000000 = -0400=0A= @@ -716,7 +716,7 @@=0A= =0A= /* Graphics */=0A= =0A= -{"dev.control", do_devcontrol, 0, 111, 0, {PP_FUNCALL, PREC_FN, = 0}},=0A= +{"dev.control", do_devcontrol, 0, 111, 1, {PP_FUNCALL, PREC_FN, = 0}},=0A= {"dev.copy", do_devcopy, 0, 111, 1, {PP_FUNCALL, PREC_FN, 0}},=0A= {"dev.cur", do_devcur, 0, 111, 0, {PP_FUNCALL, PREC_FN, 0}},=0A= /*=0A= diff -ur R-patched/src/main/pl...

...ot;internet routines cannot be loaded")); return (Rconnection)0; diff --git a/src/main/names.c b/src/main/names.c index ed21798a85..e03fdd4588 100644 --- a/src/main/names.c +++ b/src/main/names.c @@ -861,7 +861,7 @@ FUNTAB R_FunTab[] = {"close", do_close, 0, 111, 2, {PP_FUNCALL, PREC_FN, 0}}, {"flush", do_flush, 0, 111, 1, {PP_FUNCALL, PREC_FN, 0}}, {"file", do_url, 1, 11, 6, {PP_FUNCALL, PREC_FN, 0}}, -{"url", do_url, 0, 11, 5, {PP_FUNCALL, PREC_FN, 0}}, +{"url", do_url, 0, 11, 6...

...(class, 1, mkChar("connection")); classgets(ans, class); UNPROTECT(2); --- ./src/main/names.c.orig 2005-08-29 17:47:35.000000000 -0700 +++ ./src/main/names.c 2005-09-18 00:29:48.089651300 -0700 @@ -870,6 +870,7 @@ {"clearPushBack",do_clearpushback,0, 11, 1, {PP_FUNCALL, PREC_FN, 0}}, {"pushBackLength",do_pushbacklength,0, 11, 1, {PP_FUNCALL, PREC_FN, 0}}, {"textConnection",do_textconnection,0, 11, 4, {PP_FUNCALL, PREC_FN, 0}}, +{"grabOutput",do_graboutput,0, 11, 1, {PP_FUNCALL, PREC_FN, 0}}, {"sock...

im using plclust and want the labels to be different colors. i took a look at getS3method("plot","hclust") and saw a call to .Internal. i looked at the help on .Internal and dont know where to go next. any help appreciated! thanks, rafael

...XP args, SEXP rho) { SEXP ans; Rboolean success = TRUE; winconsolefocus(); PROTECT(ans = allocVector(LGLSXP, 1)); LOGICAL(ans)[0] = success; UNPROTECT(1); return ans; } src/main/names.c ---------------- {"winConsoleFocus",do_winconsolefocus,0,11, 0, {PP_FUNCALL, PREC_FN, 0}}, src/include/Internal.h ---------------------- SEXP do_winconsolefocus(SEXP, SEXP, SEXP, SEXP); src/library/base/R/windows/winDialog.R --------------------------------------- winConsoleFocus <- function() invisible(.Internal(winConsoleFocus()))

...rguments to pass to "do_subset_dflt" Here is the prototype: SEXP do_subset_dflt(SEXP call, SEXP op, SEXP args, SEXP rho); The R_FunTab from "names.c" gives some additional information on the arguments that the function expects. {".subset", do_subset_dflt, 1, 1, -1, {PP_FUNCALL, PREC_FN, 0}}, However, this is a little intimidating for someone like me who doesn't do much C programming. I understand that args is simply the argument list: x, rowsubset, colsubset, drop, but the other variables are a mystery to me. I've read the Appendix A R (internal) programming...

...rguments to pass to "do_subset_dflt" Here is the prototype: SEXP do_subset_dflt(SEXP call, SEXP op, SEXP args, SEXP rho); The R_FunTab from "names.c" gives some additional information on the arguments that the function expects. {".subset", do_subset_dflt, 1, 1, -1, {PP_FUNCALL, PREC_FN, 0}}, However, this is a little intimidating for someone like me who doesn't do much C programming. I understand that args is simply the argument list: x, rowsubset, colsubset, drop, but the other variables are a mystery to me. I've read the Appendix A R (internal) programming...

Hello! I need the Code of the functions runif and rexp. Where can I get them? Can You help me? I thank you for an answer! bye Ilka --