search for: nitems

thanks to all of the great work that has been done to listview, my app is finally readable. cudos on the latest patch that fixed up text (that was getting truncated), it's correct this time around. anyways, the one thing missing to get my app working is column sorting (done by clicking a header). i have below the output from a "trace+listview,trace+header" run of the app, clipped

Hello, I have created a .dll file using G77 and MinGW on my PC (Windows 2000). After using dyn.load to bring it into R2.0.1, I then call the .dll through the function ccprox shown below. It returns the correct values. If I run it a second time though it returns different values, so it seems something is being placed oddly in memory. If I unload and reload the .dll it works again the first

Dear All, I have written the following programs to find a non-singular (10*10) covariance matrix. Here is the program: nitems <- 10 x <- array(rnorm(5*nitems,3,3), c(5,nitems)) sigma <- t(x)%*%x inverse <- try(solve(sigma), TRUE) while(inherits(inverse, "try-error")) { x <- array(rnorm(5*nitems,3,3), c(5,nitems)) sigma <- t(x)%*%x inverse <- try(solve(sigma), TRUE) } The loo...

Hello, Does anyone knows how to deal with zero subscript in R. I have this code: for (i in 1:nitems){ + for (j in 1:ncat-1) { + draw<-matrix(rnorm(nitems*(ncat-1),seed1,seed2),nitems,(ncat-1)) + d<-( sigma_d*draw ) + mu_d + draw<-matrix(rtnorm((nitems*(ncat-1)),mean = seed1, sd = seed2, lower = .1, upper = 1.5),nitems,(ncat-1)) + d<-(si...

...(old)) 62: unserialize(node$con) 63: } --- R-2.5.0.orig/src/modules/internet/sockconn.c 2006-09-04 23:20:59.000000000 +0900 +++ R-2.5.0/src/modules/internet/sockconn.c 2007-06-25 00:51:38.000000000 +0900 @@ -155,14 +155,19 @@ static size_t sock_read(void *ptr, size_t size, size_t nitems, Rconnection con) { + int timeout = asInteger(GetOption(install("timeout"), R_BaseEnv)); + + R_SockTimeout(timeout); return sock_read_helper(con, ptr, size * nitems)/size; } static size_t sock_write(const void *ptr, size_t size, size_t nitems,...

...of a given radius. (Again, I apologize this looks so much like C.) ## Returns a list of all U-diametric clusters of a given radius ## Give an R distance matrix ## Clusters may overlap. Clusters may be identical (redundant) getUDClusters <-function(distmat,radius){ mem <- list() nItems <- dim(distmat)[1] for ( i in 1:nItems ){ mem[[i]] <- c(i) } for ( m in 1:nItems ){ for ( n in 1:nItems ){ if (m != n & (distmat[m,n] <= radius)){ ##item is within radius, so add to collection m mem[[m]] <- sort(c( mem[[m]],n)) } }...

...vant for text connection")); + if(where >= 0) error(_("seek is not relevant for loop connection")); return 0; /* if just asking, always at the beginning */ } -static Rconnection newtext(char *description, SEXP text) +static size_t raw_read(void *ptr, size_t size, size_t nitems, + Rconnection con) +{ + Rloopconn this = (Rloopconn)con->private; + if (this->cur + size*nitems > this->nchars) { + nitems = (this->nchars - this->cur)/size; + memcpy(ptr, this->data+this->cur, size*nitems); + this->cur = this->nchars; + } else { + me...

...vant for text connection")); + if(where >= 0) error(_("seek is not relevant for this connection")); return 0; /* if just asking, always at the beginning */ } -static Rconnection newtext(char *description, SEXP text) +static size_t raw_read(void *ptr, size_t size, size_t nitems, + Rconnection con) +{ + Rtextconn this = (Rtextconn)con->private; + if (this->cur + size*nitems > this->nchars) + nitems = (this->nchars - this->cur)/size; + memcpy(ptr, this->data+this->cur, size*nitems); + this->cur += size*nitems; + return nitem...

...the following error: Error in writeBin(raw(12501), con) : too large a block specified In investigating R's source, the difference seems to be in src/main/connections.c, in the function fifo_write() (around line 932). In R 3.0.3, fifo_write() has these lines: if ((double) size * (double) nitems > SSIZE_MAX) error(_("too large a block specified")); R 3.1.0 has these lines changed to this: if ((size * sizeof(wchar_t) * nitems) > 50000) { error(_("too large a block specified")); } The change effectively places a limit of 12500 bytes on writes (sinc...

Dear R users, I wish to utilise processed and saved objects as arguments of a function. Specifically, I have created objects using *"assign"* & *"paste"* functions with an incremental index i, the names of the objects are: fund1, fund2, fund3,....., fund80,..... (where the numerical value increments according to the index i & class of these objects are

...d:RegisterHotKey (0x20062,33010,0x00000000,8): stub trace:clipboard:GetClipboardOwner hWndOwner((nil)) trace:clipboard:X11DRV_IsClipboardFormatAvailable (0001) trace:clipboard:X11DRV_EmptyClipboard 0 entries remaining in cache. trace:clipboard:X11DRV_CLIPBOARD_QueryAvailableData Type 1f,Format 8,nItems 20, Remain 0 trace:clipboard:X11DRV_CLIPBOARD_SynthesizeData 13 trace:clipboard:X11DRV_CLIPBOARD_SynthesizeData 1 trace:clipboard:X11DRV_CLIPBOARD_SynthesizeData 7 trace:clipboard:X11DRV_CLIPBOARD_SynthesizeData 14 trace:clipboard:X11DRV_CLIPBOARD_SynthesizeData 3 trace:clipboard:X11DRV_CLIPBO...

...ee shortly. Start with some data x <- read.table("myex.dat",header=T) x v1 v2 v3 v4 v5 id 1 1 0 1 2 4 1 2 1 1 1 1 1 2 3 1 2 3 1 4 3 4 1 3 4 2 4 4 5 2 2 2 2 2 5 Here's my function ---- begin R code ---- elimnovar <- function(x,first.item=NULL,nitems=NULL,responses=NULL){ # Data prep - store as matrix, strip off id's, get variable names dat <- as.matrix(x) item.dat <- dat[,first.item:(first.item + nitems - 1)] inames <- dimnames(item.dat)[[2]] # Eliminate zero variance items and persons...

...quot;cx"> </span><span class="cx"> </span><del>- - - </del><span class="cx"> h3(#ListBox_insertitems). ListBox#insert_items </span><span class="cx"> </span><del>- *insert_items*(%(arg-type)Integer% nItems, %(arg-type)String% items, %(arg-type)Integer% pos) </del><ins>+ *insert_items*(%(arg-type)Array% items, %(arg-type)Integer% pos) </ins><span class="cx"> </span><del>- *insert_items*(%(arg-type)ArrayString% nItems, %(arg-type)Integer% pos) </del&g...

Hi, Earlier this year I "upgraded" from wine 20010510 to 20011226 in order to see if some kind of resource leak was fixed which caused screen redraws to get progressively slower and slower and slower and slower, .... That was fixed but there seemed to be a significant number of graphics and UI regressions. I've just upgraded to 20020228 to see if things were any better and within

Hi, I'm trying to cross-compile R to javascript so that it can run in a web-browser. Take as long as you need to stop laughing. So, as I was saying - I want to try and get a build of R running in the browser. [If you're not familiar with it already, you might enjoy looking at emscripten.org. It's a remarkably capable tool for translating LLVM bitcode to javascript. Check out some of

...class="lines">@@ -141,9 +141,9 @@ </span><span class="cx"> </span><span class="cx"> h3(#ListBox_insertitems). ListBox#insert_items </span><span class="cx"> </span><del>- *insert_items*(%(arg-type)Integer% nItems, %(arg-type)String% items, %(arg-type)Integer% pos) </del><ins>+ *insert_items*(%(arg-type)Integer% nItems, %(arg-type)String% items, %(arg-type)Integer% pos) </ins><span class="cx"> </span><del>- *insert_items*(%(arg-type)ArrayString% nItems, %(a...

...;lines">@@ -40,8 +40,6 @@ </span><span class="cx"> $1 = (TYPE($input) == T_ARRAY); </span><span class="cx"> } </span><span class="cx"> </span><del>-%apply (int n, wxDash dash []) { (int n, wxDash *dashes),(int nItems, wxDash *dash) } - </del><span class="cx"> %ignore wxPen::SetStipple; </span><span class="cx"> %ignore GetStipple; </span><span class="cx"> </span></span></pre> </div> </div> </body> </html&gt...

...95 ASSIGN 210 TO IGO ^ Comment 12 at (1603:blas.f) : This statement is obsolescent in Fortran 90 and deleted in Fortran 95 ------------------ connections.c(841): warning #191: type qualifier is meaningless on cast type return gzwrite(fp, (const voidp)ptr, size*nitems)/size; ^ connections.c(1027): warning #191: type qualifier is meaningless on cast type BZ2_bzWrite(&bzerror, bfp, (const voidp)ptr, size*nitems); ------------------ dotcode.c(251): warning #175: subscript out of range buf[256] = '\0'; ^ ---...

I have a product listing of 9 per-page. The products on the far right and bottom row should NOT have a border on the aforementioned sides. So, similar to a noughts and crosses layout. However, pages do not always have 9 products to display. You may have a better understanding if you see the code I''m currently using: http://pastie.org/1223260 The code above is passed inside a block and

An HTML attachment was scrubbed... URL: http://lists.alioth.debian.org/pipermail/nut-upsuser/attachments/20080225/377bed98/attachment.htm -------------- next part -------------- A non-text attachment was scrubbed... Name: usbhid-ups.loghid-ups.log.D4.zip Type: application/zip Size: 5428 bytes Desc: not available Url :