search for: cump

...lengthy! cheers Nick The code is p.trans<-matrix(c(1,0,0,0,0,0,0.7,0.3,0,0,0,0,0,0.6,0.4,0,0,0,0,0,0.5,0.5,0,0,0,0,0,0.4,0.6,0,0,0,0,0,0.3,0.7),6,6) x<-ceiling(runif(100,0,5)) trans<-function(x) { x.new<-vector(,length(x)) for (i in 1:length(x)) { if (x[i]==0) x.new[i]<-0 else cump<-(cumsum(p.trans[,(x[i]+1)])) # +1 b.c p.trans[,1] relates to min(x)==0 names(cump)<-c("0","1","2","3","4","5") rand<-ceiling(runif(1,0,100)) x.new[i]<-min(as.integer(names(cump[rand<(cump*100)]))) } return(x,x.new) } Basi...

Hi, could anybody suggest a usable doorphone and magnetic door opener "hardphone" system for me, please? Of course should be connectable to asterisk. I am in the EU, should be available here. thank you, Csaba

CRAN (and crantastic) updates this week New packages ------------ * bisectr (0.0.2) Maintainer: Winston Chang Author(s): Winston Chang <winston at stdout.org> License: GPL-2 http://crantastic.org/packages/bisectr Tools to find bad commits with git bisect * CUMP (1.0) Maintainer: Xuan Liu Author(s): Xuan Liu <liuxuan at bu.edu> and Qiong Yang <qyang at bu.edu> License: GPL (>= 2) http://crantastic.org/packages/CUMP Combining Univariate Association Test Results of Multiple Phenotypes for Detecting Pleiotropy * cumplyr (0.1-1)...