search for: prec_fn

...cker, 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_FUNCALL, PRE...

...s, 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]]

...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, {P...

...em.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}}, {&qu...

...ched-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/plot.c R-pa...

...kChar("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}}, {"socketConnect...

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

...P 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()))

...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 miscella...

...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 miscella...

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

In the optim() function there is a syntax : res <- .Internal(optim(par, fn1, gr1, method, con, lower, Here how can I see the inside-codes of ".Internal" function ? Regards, -- View this message in context: http://www.nabble.com/How-to-look-within-.Internal---tp20581897p20581897.html Sent from the R help mailing list archive at Nabble.com.

I am trying to get documentation about the random number generator used in "sample". The help for sample does not mention it. Can anyone point me in the right direction. Thanks [[alternative HTML version deleted]]

Hello, I'm working with the function optim() from stats package, and inside this function is called the function .Internal(optim(....)) and I want to get the code of this function which would help me to understand why the Nelder-Mead algorithm doesn't converge with my data. I'm working under Windows XP. Could you reply to this adress because I don't belong to the mailing list

Hi all. I began examining the R source code in the last few days, for a better understanding of its structure. I read the manuals and digged deeply (maybe not enough?) into the source code, but I couldn't totally understand how .Primitive() works. Its effects, if I understand well, are quite clear to me (calling the C compiled counterpart of a "primitive" function), but where is its

> hi all, > I am using optim. I am getting the following error message: > > Error in optim(par = start.vals[, h], fn = post.func.pois, gr = post.grad. > pois, : > L-BFGS-B needs finite values of fn > > If I look at optim typing '> optim' it seems that the error comes from > inside .Internal(optim), so I wonder how can I see the code for .Internal(

I know I should probably RTFM for this question, but could someone tell me if R supports the idea of "viewing source" on any particular function you want to use? If I want to "view source" on the rpois() function, for example, can I do somethink like: source(rpois) To see how the function is implemented? Regards, Paul Meagher Datavore Productions 50 Wood Grove Drive

I have stumbled across some behaviour in R that I really can't place, and that makes coding a bit tricky. I know that I can work around it when explicitly checking for missing arguments, but still... I have two functions. I have a first function based on paste ? ? fun1 <- function(x,y){ ? ? ? print(missing(y)) ? ? ? paste(x,'X',sep=y) ? ? } If I try this function without