search for: nitem

...st ON HEADER 0 trace:header:HEADER_WindowProc hwnd=1002d msg=201 wparam=1 lParam=4005b trace:header:HEADER_InternalHitTest ON HEADER 0 trace:header:HEADER_DrawItem DrawItem(iItem 0 bHotTrack 0) trace:header:HEADER_WindowProc hwnd=1002d msg=1203 wparam=0 lParam=40566658 trace:header:HEADER_GetItemA [nItem=0] trace:header:HEADER_LButtonDown Pressed item 0! trace:header:HEADER_WindowProc hwnd=1002d msg=202 wparam=0 lParam=4005b trace:header:HEADER_InternalHitTest ON HEADER 0 trace:header:HEADER_DrawItem DrawItem(iItem 0 bHotTrack 0) trace:header:HEADER_WindowProc hwnd=1002d msg=1203 wparam=0 lParam=40...

...is being placed oddly in memory. If I unload and reload the .dll it works again the first time. It does the same if I copy the compiled .dll over to my Windows XP machine. Thank you for any help, Brian Habing habing at stat.sc.edu The Fortran subroutine beings with: subroutine ccprox(nexmn,nitem,respmat2,covmatr,covmatt, $ cormatr,cormatt) !ccccc This subroutine will calculate all the pairwise !ccccc conditional covariances. An ending r means for !ccccc rest score, an ending t means for total score. parameter (maxitem=100,maxexmn=10000,maxcats=10,ncells=1001) !ccccc...

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

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<-(s...

...(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 { + m...

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

...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 (sin...

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

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

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, %(...

...;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&g...

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