search for: probs1

Displaying 4 results from an estimated 4 matches for "probs1".

Did you mean: probs
2009 May 16
2
Question about barplot: gridlines & value labels
...olor of that line. tck = 1 is not flexible enough to do it. 2. make the legend come on top of gridlines and not under them 3. add plotted Y values above the bars Thank you very much for any pointers! Dimitri ### Section 1: generates my data set "data": N<-100 myset1<-c(1,2,3,4,5) probs1<-c(.05,.10,.15,.40,.30) group<-unlist(lapply(1:4,function(x){ out<-rep(x,25) return(out) })) set.seed(1) a<-sample(myset1, N, replace = TRUE,probs1) a[which(rbinom(100,2,.01)==1)]<-NA set.seed(12) b<-sample(myset1, N, replace = TRUE,probs1) b[which(rbinom(100,2,.01)==1)]<-NA...
2009 May 18
1
Barchart in lattice - wrong order of groups, data labels on top of each other, and a legend question
...f each other but on top of the respective bar? 3. Is there any way to make the legend group items horizontally as opposed to now (vertically - taking up too much space) Thanks a lot! Dimitri ### Section 1: generates my data set "data" - just run: ##### N<-100 myset1<-c(1,2,3,4,5) probs1<-c(.05,.10,.15,.40,.30) myset2<-c(0,1) probs2<-c(.65,.30) myset3<-c(1,2,3,4,5,6,7) probs3<-c(.02,.03,.10,.15,.20,.30,.20) group<-unlist(lapply(1:4,function(x){ out<-rep(x,25) return(out) })) set.seed(1) a<-sample(myset1, N, replace = TRUE,probs1) a[which(rbinom(100,2,.01)...
2007 Apr 21
0
possible bug in xYplot and smean.cl.normal
..., data= dat.fss, cex=0.1, lwd=2, lty.bands=rep("solid", 2), col.bands=rep("black", 2), lwd.bands=rep(1,2), method= smean.cl.normal, methodArgs= list(conf.int=conf.int.1), type="l", ylim= ylim1, na.rm=T ) # VERY different CIs!!!! # # quantile # attach(dat.fss) probs1 <- c(0.5, 0.25, 0.75) ci <- summarize(Colony_Cnt, llist(WellRow, WellCol, WellName, Treatment, Scan), quantile, probs= probs1, na.rm=T) detach("dat.fss") n1 <- length(colnames(ci)) colnames(ci)[(n1-1):n1] <- c("Lower", "Upper") # rename cols to match # usi...
2009 May 16
1
barplot in a loop not printing out to directory
...- it's printing values to be plotted to the screen but does not print the plots themselves anywhere (and not in the directory). Thank you very much for your help! Dimitri ### Section 1. This section generates my data set "data" - no problems there: N<-100 myset1<-c(1,2,3,4,5) probs1<-c(.05,.10,.15,.40,.30) myset2<-c(0,1) probs2<-c(.65,.30) myset3<-c(1,2,3,4,5,6,7) probs3<-c(.02,.03,.10,.15,.20,.30,.20) group<-as.factor(sapply(1:4,function(x){ out<-rep(x,25) out })) set.seed(1) a<-sample(myset1, N, replace = TRUE,probs1) a[which(rbinom(100,2,.01)==1)]...