search for: icount

...rong? It seems to be parsing wronly around the 'if' statement and gives me a directory listing. Thanks in advance Tom N.B. datan is an invented dataset xvals<-c(1,0.4,0.2) datan<-data.frame(s1=c(3,4,5),s2=c(5,5,5),s3=c(21,55,34),s4=c(5,3,2)) datan$sint<-NA datan$sgrad<-NA for(icount in 1:dim(datan)[1]) { yvals<-c(datan[icount,4],datan[icount,3],datan[icount,2]) if((is.na(yvals[1]) + is.na(yvals[2]) + is.na(yvals[3]))<2) { g<-lm(yvals~xvals) datan$sint[icount]<-g$coef[1] datan$sgrad[icount]<-g$coef[2] } }

...uot;/home/cedric/.wine/dosdevices/c:/windows/Fonts" fixme:commctrl:InitCommonControlsEx Unknown class! dwICC=0x4000 err:x11drv:X11DRV_CreateBitmap Trying to make bitmap with planes=1, bpp=32 fixme:htmlhelp:HtmlHelpW ((nil), (null), 28, 5153872): stub fixme:listview:LISTVIEW_SetColumnOrderArray iCount 10 lpiArray 0x4e36e8 fixme:winsock:NtStatusToWSAError Status code c0000024 converted to DOS error code 6 fixme:edit:EDIT_EM_FmtLines soft break enabled, not implemented fixme:listview:LISTVIEW_SetColumnOrderArray iCount 6 lpiArray 0x4e2a00 fixme:edit:EDIT_EM_FmtLines soft break enabled, not implem...

...\f\0\2\2..\0\0\214 \300"..., 4096) = 4096 lseek(3, 41717760, SEEK_SET) = 41717760 read(3, "\325\0\0\0\f\0\1\2.\0\0\0\226\2\252+\f\0\2\2..\0\0\326"..., 4096) = 4096 And, that's it. No more output. A backtrace from gdb shows: (gdb) bt #0 0x0000000000418aa5 in get_icount_el (icount=0x5cf170, ino=732562070, create=1) at icount.c:251 #1 0x0000000000418dd7 in ext2fs_icount_increment (icount=0x5cf170, ino=732562070, ret=0x7fffffa79a96) at icount.c:339 #2 0x000000000040a3cf in check_dir_block (fs=0x5af560, db=0x2b7070cc6064, priv_data=0x7fffffa79c90) at pass2.c:...

...dProc WM_STYLECHANGING: stub fixme:richedit:RichEditANSIWndProc WM_STYLECHANGED: stub fixme:richedit:RichEditANSIWndProc EM_SETOPTIONS: stub fixme:richedit:RichEditANSIWndProc WM_STYLECHANGING: stub fixme:richedit:RichEditANSIWndProc WM_STYLECHANGED: stub fixme:listview:LISTVIEW_SetColumnOrderArray iCount 8 lpiArray 0xb7156488 fixme:listview:LISTVIEW_SetColumnOrderArray iCount 12 lpiArray 0xb7151f18 fixme:listview:LISTVIEW_SetColumnOrderArray iCount 8 lpiArray 0xb715c530 fixme:listview:LISTVIEW_SetColumnOrderArray iCount 8 lpiArray 0xb71562f8 fixme:rebar:REBAR_MaximizeBand (uBand = 0 fIdeal = FALSE)...

...rn(item.out) } fitting.c<-cmpfun(fitting) #compiled Rprof('myFunction.out', memory.profiling=T) y <- fitting.c() Rprof(NULL) summaryRprof('myFunction.out', memory='both') system.time(fitting.c()) Rprof('myFunction.out', memory.profiling=T) y <- foreach(icount(length(two))) %dopar% fitting.c() Rprof(NULL) summaryRprof('myFunction.out', memory='both') system.time(foreach(icount(length(two))) %dopar% fitting.c()) #uncompiled Rprof('myFunction.out', memory.profiling=T) y <- fitting() Rprof(NULL) summaryRprof('myFunction.out&...

Hi, In an effort to learn S4 objects, I am trying to port some c based tree code to S4 object. My immediate goal is to use .Call() interface for calling my c code from R. My long term goal is to understand how to write c structs that follows S4 classes and not the other-way-around. The c struct for the node is : typedef struct node{ int c; int n; inode **nodes; //length = n } inode; I

...)) > box() > tasmania.mds$stress [1] 10.66349 > tasmania.stress=round(tasmania.mds$stress/100,digits=3) > mtext(paste("Stress = ",tasmania.stress,sep="")) > group=rownames(Y) > N=length(group) > d.vec=rep(0,(N*(N-1)/2) ) > iwithin=rep(0,(N*(N-1)/2) ) > icount=0 > for(i in 1:(N-1)) { + for(j in (i+1):N) { + icount=icount+1 + d.vec[icount]=D[i,j] + if(group[i]==group[j]) iwithin[icount]=1 + } + } > r=rank(d.vec) > r [1] 8 15 16 74 116 36 60 59 64 44 19 109 96 83 95 7 20 79 103...

...Unix does not allow directories to be hardlinked, so if a filesystem has 100,000 directories, each incremental backup will create 100,000 new directories in the BackupPC directory. E2fsck requires 12 bytes of storage per directory in order to store accounting information. * E2fsck uses an icount abstraction to store the i_links_count information from the inode, as well as the number of times an inode is actually referenced by directory. This abstraction uses an optimization based on the observation that on most normal filesystems, there are very few hard links (i.e., i_links_coun...

Hello, I was using snow to parallel-process some code in R-2.10 (32-bit windows. ). The code is as follows: require(foreach) require(doSNOW) cl <- makeCluster(6, type='SOCK') registerDoSNOW(cl) bl2 <- foreach(i=icount(length(unqmrno))) %dopar% { (some code here) } stopCluster(cl) When I run the same code in Windows R-2.11 (either 32-bit or 64-bit), R hangs at cl<-makeCluster(6, type='SOCK') and no R processes are spawned. I was wondering if others have encountered this problem, and any suggestions...

Change from v2: Correct the logic when calculating icount. Change from v1: According to Jan and Stefano''s comments, drop the previous logic which setting the value in an arbitrary way and use Stefano''s suggestion instead. Currently, the max expiration time is 2147483647ns(INT32_MAX ns). This is enough when guest is busy, but when guest...

...c \ --localstatedir=/var \ --mandir=/usr/man \ --build=$ARCH-slackware-linux \ --enable-dynamic-fsck \ --enable-dynamic-ctl I get this error: gcc -O2 -fPIC -Wall -Wstrict-prototypes -Wmissing-prototypes -Wmissing-declarations -pipe -o fsck.ocfs2 fsck.o dirblocks.o dirparents.o extent.o icount.o journal.o pass0.o pass1.o pass1b.o pass2.o pass3.o pass4.o pass5.o problem.o refcount.o slot_recovery.o strings.o util.o xattr.o ../libocfs2/libocfs2.a ../libo2dlm/libo2dlm.a ../libo2cb/libo2cb.a -L../libocfs2 -locfs2 -L../libo2dlm -lo2dlm -L../libo2cb -lo2cb -L/lib64 -lcom_err /...

...urthermore, can I specify the tasks for each child? i.e. I'm working on a Linux box with 8 cores and would like to scan in 8M records at time (all 8 cores scan 1M records at a time) from a file with 40M records total. file <- file("data.txt","r") child <- foreach(i = icount(40)) %dopar% { scan(file,what = "character",sep = "\n",skip = 0,nlines = 1e6) } Thus, each child would have a different skip argument. child[[1]]: skip = 0, child[[2]]: skip = 1e6 + 1, child[[3]]: skip = 2e6 + 1, ... ,child[[40]]: skip = 39e6 + 1. I would then end up with a...

Dear R help, I've what I think is a fairly simple parallel problem, and am getting bogged down in documentation and packages for much more complex situations. I have a big matrix (30^5,5]. I have a function that will act on each row of that matrix sequentially and output the 'best' result from the whole matrix (it compares the result from each row to the last and keeps the

...ta_sent_thistime = 32, useable_space = 131012 while stracing the samba process shows: quotactl(Q_XGETQUOTA|GRPQUOTA, "/dev/sdb", 10057, {version=1, flags=XFS_GROUP_QUOTA, fieldmask=0, id=10057, blk_hardlimit=2097152, blk_softlimit=2097152, ino_hardlimit=0, ino_softlimit=0, bcount=8, icount=11, ...}) = 0 On the incorrect Ubuntu machine, level=10 logs show: [2014/01/29 09:27:25.429062, 5] smbd/trans2.c:3153(smbd_do_qfsinfo) smbd_do_qfsinfo : SMB_QUERY_FS_FULL_SIZE_INFO bsize=1024, cSectorUnit=2, cBytesSector=512, cUnitTotal=2097152, cUnitAvail=2097152 [2014/01/29 09:27:25.429103, 9...

...pe 'long int' xattr.c:287: warning: format '%lu' expects type 'long unsigned int', but argument 8 has type '__u64' gcc -m64 -O2 -Wall -Wstrict-prototypes -Wmissing-prototypes -Wmissing-declarations -pipe -static -o fsck.ocfs2 fsck.o dirblocks.o dirparents.o extent.o icount.o journal.o pass0.o pass1.o pass1b.o pass2.o pass3.o pass4.o pass5.o problem.o refcount.o slot_recovery.o strings.o util.o xattr.o ../libocfs2/libocfs2.a ../libo2dlm/libo2dlm.a ../libo2cb/libo2cb.a -L../libocfs2 -locfs2 -L../libo2dlm -lo2dlm -L../libo2cb -lo2cb -lcom_err /usr/lib/gcc/x86_64-unknown...

...pe 'long int' xattr.c:287: warning: format '%lu' expects type 'long unsigned int', but argument 8 has type '__u64' gcc -m64 -O2 -Wall -Wstrict-prototypes -Wmissing-prototypes -Wmissing-declarations -pipe -static -o fsck.ocfs2 fsck.o dirblocks.o dirparents.o extent.o icount.o journal.o pass0.o pass1.o pass1b.o pass2.o pass3.o pass4.o pass5.o problem.o refcount.o slot_recovery.o strings.o util.o xattr.o ../libocfs2/libocfs2.a ../libo2dlm/libo2dlm.a ../libo2cb/libo2cb.a -L../libocfs2 -locfs2 -L../libo2dlm -lo2dlm -L../libo2cb -lo2cb -lcom_err /usr/lib/gcc/x86_64-unknown...

Hi R-users, I have a data set like this (first ten rows): id patient_id date code class eala ID1564262 1562 6.4.2006 12:00 5555 1 NA ID1564262 1562 6.4.2006 12:00 5555 1 NA ID1564264 1365 14.2.2006 14:35 5555 1 50 ID1564265 1342 7.4.2006 14:30 2222 2 50 ID1564266 1648 7.4.200614:30 2222 2 50 ID1564267 1263 10.2.2006 15:45 2222 2 10 ID1564267 1263 10.2.200615:45 3333 3 10 ID1564269 5646

...g for testing the %dopar% loop. library(iterators) library(foreach) library(doParallel) library(Parallel) nCores <- 4 cl <- makeCluster(nCores) registerDoParallel(cl) trials = 100000 x <- iris[which(iris[,5] != "setosa"),c(1,5)] t2 <- system.time({ r2 <- foreach(icount(trials), .combine=cbind) %dopar% { ind <- sample(100,100,replace= TRUE) results1 <- glm(x[ind,2]~x[ind,1],family=binomial(logit)) coefficients(results1) }})[3] stopCluster(cl) Another interesting behavior is that I can now stop R code that should be running on the slave worke...

...is there a nice way to do that? A little more detail: I am using foreach to conduct a very time consuming (may take several days if done sequentially) simulation study. The number of simulations is set to 1000. So the command I am using looks like this simplified version: grandsum <- foreach(icount(1000), .combine="+") %dopar% { sim(...) } In fact, grandsum can never take a value greater than a threshold, say 10.0. So I want the number of iterations depend on the value of grandsum. Say when the grandsum is greater equal to 10.0 the computation should be terminated to save time....

Hello R gurus, I have the code below for which i need help and pointers to make it run in parallel on a dual core win7 computer with R 2.13.x, using foreach, iterators,doMC. library(scatterplot3d) # Loads 3D library. library(fields) library(MASS) library(ROCR) library(verification) library(caret) library(gregmisc) ##simulated data d=replicate(9, rnorm(40)+10)