search for: yextra

...03.173.179) Should be an easy fix... Consider the examble below: plot(0,0) legend(0,0,c("Hello!","Hi!"),pch=1:2,lty=1:2,trace=T) It gives the following trace: > plot(0,0) > legend(0,0,c("Hello!","Hi!"),pch=1:2,lty=1:2,trace=T) xchar= 0.05178 ; (yextra,ychar)= 0 0.07941 rect2(0,0, w=0.3474, h=0.2382...) segments2(0.015540.01554,-0.07941-0.1588, dx=0.1036, dy=0, ...) points2( 0.06732 0.06732 , -0.07941 -0.1588 , pch= 1 2 ...) On the line starting by "segment2", the coordinates are not separated by a space like on the line starting...

Hi, are there any plans to add a colorbar legend to image()? Or such a possibility already implemented which I just haven't discovered yet. Anyway, I will be willing to spent some time on the implementation if there isn't anyone working on that already. Thanks Thomas -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read

...original sample plus the extra sample final.size[i] <- nextra.0 + nextra.a + n.0 + n.a #generate start times for additional patients startextra.0<-runif(nextra.0,t.A,new.tA) startextra.a<-runif(nextra.a,t.A,new.tA) #generate additional sample yextra.0<- startextra.0 + rexp(nextra.0,(log(2)/med.0)) yextra.a<- startextra.a + rexp(nextra.a,(log(2)/med.a)) # Determine when k is reached (its the kth element of the sorted list of all event times) final.t[i]<-sort(c(y.0,y.a,yextra.0,yextra.a))[k] #combine or...