search for: carg

...unction (n, mean = rep(0, nrow(sigma)), sigma = diag(length(mean)), lower = rep(-Inf, length = length(mean)), upper = rep(Inf, length = length(mean)), algorithm = c("rejection", "gibbs", "gibbsR"), ...) { algorithm <- match.arg(algorithm) cargs <- checkTmvArgs(mean, sigma, lower, upper) mean <- cargs$mean sigma <- cargs$sigma lower <- cargs$lower upper <- cargs$upper if (n < 1 || !is.numeric(n) || n != as.integer(n) || length(n) > 1) { stop("n must be a integer scalar > 0&q...

...) to R. GDB gave the following (gdb prompts removed): do_dotCode (call=0x873aff4, op=0x8a5f620, args=0x8a5d010, env=0x86fd0a4) at dotcode.c:1413 1413 break; 1845 PROTECT(ans = allocVector(VECSXP, nargs)); 1846 havenames = 0; 1847 if (dup) { 1849 info.cargs = cargs; 1850 info.allArgs = args; 1851 info.nargs = nargs; 1852 info.functionName = buf; 1853 nargs = 0; 1854 for (pargs = args ; pargs != R_NilValue ; pargs = CDR(pargs)) { 1855 if(argConverters[nargs]) { 1864...

...) to R. GDB gave the following (gdb prompts removed): do_dotCode (call=0x873aff4, op=0x8a5f620, args=0x8a5d010, env=0x86fd0a4) at dotcode.c:1413 1413 break; 1845 PROTECT(ans = allocVector(VECSXP, nargs)); 1846 havenames = 0; 1847 if (dup) { 1849 info.cargs = cargs; 1850 info.allArgs = args; 1851 info.nargs = nargs; 1852 info.functionName = buf; 1853 nargs = 0; 1854 for (pargs = args ; pargs != R_NilValue ; pargs = CDR(pargs)) { 1855 if(argConverters[nargs]) { 1864...

Hi Community, I have a question about how to pass command line parameters to R script running in the batch mode. The problem is: there is a banch of data files which are to be processed by R script called from a web-server, i.e. in the batch mode. The web server generates data files and passes their names calling 'R CMD BATCH' one by one for every file. Now the question is how to

Hi I have the feeling, that the argument stringsAsFactors has no impact in the function expand.grid: a <- c("PR", "NC", "A2", "BS") b <- c(1, 0.5, 0.25, 0.125, 0.0625, 0.03125) class(expand.grid(css, fscs, stringsAsFactors=FALSE)[[1]]) [1] "factor" class(expand.grid(css, fscs, stringsAsFactors=TRUE)[[1]]) [1] "factor" Also, when

...dmit that I don't quite understand what I'm doing here (not that you couldn't tell) > RT2.aov <- aov(terms(RT~Subj*Cond, WMU3C)) > Cond.lmat <- c(0,1,-1) > Tukey <- glht.mmc(RT2.aov, focus = "Cond", focus.lmat = Cond.lmat) yielding Error in mvt(lower = carg$lower, upper = carg$upper, df = df, corr = carg$corr, : NA/NaN/Inf in foreign function call (arg 6) In addition: Warning message: In cov2cor(covm) : diagonal has non-finite entries > Tukey height Thank you very much for your help! Ullrich Dr Ullrich Ecker Postdoctoral Researc...

...emoved): > > do_dotCode (call=0x873aff4, op=0x8a5f620, args=0x8a5d010, > env=0x86fd0a4) > at dotcode.c:1413 > 1413 break; > 1845 PROTECT(ans = allocVector(VECSXP, nargs)); > 1846 havenames = 0; > 1847 if (dup) { > 1849 info.cargs = cargs; > 1850 info.allArgs = args; > 1851 info.nargs = nargs; > 1852 info.functionName = buf; > 1853 nargs = 0; > 1854 for (pargs = args ; pargs != R_NilValue ; pargs = > CDR(pargs)) { > 1855 if(argConvert...

...} + if (len > 0) { + len--; + if (el_insertstr(el, "\\ ") == -1) + fatal("el_insertstr failed."); + } + } + } + + xfree(tmp); + } + + return (g.gl_matchc); +} + +unsigned char +complete(EditLine *el, int ch) +{ + char **argv, *line; + u_int x, argc, carg, len, ret = CC_ERROR; + const LineInfo *lf; + + lf = el_line(el); + + /* Figure out which argument we are on */ + len = lf->cursor - lf->buffer + 1; + line = (char *)xmalloc(len); + strlcpy(line, lf->buffer, len); + argv = makeargv(line, &carg); + xfree(line); + + /* now get the real a...

...function(fit, ..., newdata, group, ymin, ymax, ?????????????????????????????? timewt=c("n", "S", "S/G", "n/G", "n/G2"), ?????????????????????????????? influence=0, ranks=FALSE, timefix=TRUE) { ??? Call <- match.call() ??? . ??? . ??? . ??? cargs <- c("ymin", "ymax","influence", "ranks", "timewt", "timefix") ??? cfun <- Call[c(1, match(cargs, names(Call), nomatch=0))] ??? cfun[[1]] <- quote(cord.work) ??? cfun$reverse <- TRUE ??? rval <- eval(cfun, parent.frame(...

...ype as arguments for these two functions, I thought I could create a BitCastInst, in order to cast a pointer from any type to void*, and then back, and insert it before calling write, or after calling read. And so I did like the example below // Let Func be an llvm::Function* that represents read, CArgs contain an integer constant, and // typeInFrontOfTheStream be an llvm::Type* that represents the type of the variable // available as the next read from the stream llvm::CallInst *consume = llvm::CallInst::Create(Func, CArgs); llvm::BitCastInst *cbi = new llvm::BitCastInst(consume, typeInFrontOf...

...ave a main development system which is P4 based (without EM64T) and a dozen diskless Athlon 64's. I'd like to be able to compile kernel's, etc for the Athlons in x86_64 bit mode. Any idea how to arrange this? I've recompiled the src.rpm for binutils (added a single line "CARGS=--enable-targets=x86_64-linux" to the specfile) and "as --64" doesn't bork anymore, so I'm assuming I've got that right... I'm assuming I next have to do something to gcc? Haven't figured this out yet... Anything else needed? Holiday cheers, MaZe.

I am running R 2.8.1 on SUSE Linux. I would like to be able to set R_PROFILE to two different possibilities. One when R is called by R CMD BATCH and another any other time. Is this possible? Mark Lyman, Statistician Engineering Systems & Integration, ATK

...method = c("decreasing", "increasing")) { ## x should either be a list or a set of vectors or factors nargs <- length(args <- list(...)) @@ -26,7 +27,9 @@ if(nargs == 0L) return(as.data.frame(list())) ## avoid classed args such as data frames: cargs <- args cargs <- vector("list", nargs) - iArgs <- seq_len(nargs) + seqArgs <- seq_len(nargs) + method <- match.arg(method) + iArgs <- if(method=="decreasing") seqArgs else rev(seqArgs) nmc <- paste0("Var", iArgs) nm <...

...max, > ?????????????????????????????? timewt=c("n", "S", "S/G", "n/G", "n/G2"), > ?????????????????????????????? influence=0, ranks=FALSE, timefix=TRUE) { > ??? Call <- match.call() > ??? . > ??? . > ??? . > ??? cargs <- c("ymin", "ymax","influence", "ranks", "timewt", "timefix") > ??? cfun <- Call[c(1, match(cargs, names(Call), nomatch=0))] > ??? cfun[[1]] <- quote(cord.work) > ??? cfun$reverse <- TRUE > ??? rval <-...

...t;# endif\n"; + print OUT "#endif\n\n"; + + print OUT "#if defined(DO_THIS_SOCKETCALL) && defined(SYS_\U${name}\E)\n\n"; print OUT "extern long __socketcall(int, const unsigned long *);\n\n"; - print OUT "$type $name (", join(', ', @cargs), ")\n"; + print OUT "$type ${name}(", join(', ', @cargs), ")\n"; print OUT "{\n"; print OUT " unsigned long args[$nargs];\n"; for ( $i = 0 ; $i < $nargs ; $i++ ) {

...#if _KLIBC_SYS_SOCKETCALL || !defined(__NR_${name})\n\n"; - print OUT "extern long __socketcall(int, const unsigned long *);\n\n"; + print OUT "extern long __socketcall(int, const unsigned long *);\n\n"; - print OUT "$type $name (", join(', ', @cargs), ")\n"; - print OUT "{\n"; - print OUT " unsigned long args[$nargs];\n"; - for ( $i = 0 ; $i < $nargs ; $i++ ) { - print OUT " args[$i] = (unsigned long)a$i;\n"; - } - print OUT " return ($type) __socketcall(SYS_\U${nam...

...(call=0x873aff4, op=0x8a5f620, args=0x8a5d010, > env=0x86fd0a4) > > at dotcode.c:1413 > > 1413 break; > > 1845 PROTECT(ans = allocVector(VECSXP, nargs)); > > 1846 havenames = 0; > > 1847 if (dup) { > > 1849 info.cargs = cargs; > > 1850 info.allArgs = args; > > 1851 info.nargs = nargs; > > 1852 info.functionName = buf; > > 1853 nargs = 0; > > 1854 for (pargs = args ; pargs != R_NilValue ; pargs = > > CDR(pargs)) { > &gt...

Dear all, I think I found a bug in utils::format.person when using style = "R" with a vector of comments. The comment section is not parsed properly. Please find below the mwe and the session info. Best regards, Thierry maintainer <- person( given = "Thierry", family = "Onkelinx", role = c("aut", "cre"), email = "thierry.onkelinx at

Hi all, Reading the wikipedia page on R, I stumbled across the following: http://fluff.info/blog/arch/00000172.htm It does seem interesting that the C execution is that much slower from R than from a native C program. Could any of the more technically knowledgeable people explain why this is so? The author also have some thought-provoking opinions on R being no-good and that you should write

...,-rpath -Wl,/usr/local/lib -lreadline -lm -liconv complex.o(.text+0x106): In function `mycpow': /usr/local/R-alpha/src/main/complex.c:170: undefined reference to `cpow' complex.o(.text+0x6f9): In function `do_cmathfuns': /usr/local/R-alpha/src/main/complex.c:323: undefined reference to `carg' complex.o(.text+0xb4b): In function `z_log': /usr/local/R-alpha/src/main/complex.c:423: undefined reference to `clog' complex.o(.text+0xb86): In function `z_logbase': /usr/local/R-alpha/src/main/complex.c:429: undefined reference to `clog' complex.o(.text+0xb98):/usr/local/R-al...