search for: cprob

Displaying 9 results from an estimated 9 matches for "cprob".

Did you mean: prob
2009 Jul 30
1
ask help about boxplot , different list variation into the tick of x-axis?
...rnum[8]+1):bjyearnum[9]] bjerr9<-bjerrdata$tyerr[(bjyearnum[9]+1):bjyearnum[10]] bjerr10<-bjerrdata$tyerr[(bjyearnum[10]+1):bjyearnum[11]] bjerr11<-bjerrdata$tyerr[(bjyearnum[11]+1):bjyearnum[12]] bjerr12<-bjerrdata$tyerr[(bjyearnum[12]+1):length(bjerryear)] bjavee<-data.frame(5,12) cprob=c(0.05,0.25,0.5,0.75,0.95) bjavee[1:5,1]<-quantile(bjerr1,prob=cprob) bjavee[1:5,2]<-quantile(bjerr2,prob=cprob) bjavee[1:5,3]<-quantile(bjerr3,prob=cprob) bjavee[1:5,4]<-quantile(bjerr4,prob=cprob) bjavee[1:5,5]<-quantile(bjerr5,prob=cprob) bjavee[1:5,6]<-quantile(bjerr6,prob=cpr...
2009 Jul 30
0
how to add the x-axis information
...rnum[8]+1):bjyearnum[9]] bjerr9<-bjerrdata$tyerr[(bjyearnum[9]+1):bjyearnum[10]] bjerr10<-bjerrdata$tyerr[(bjyearnum[10]+1):bjyearnum[11]] bjerr11<-bjerrdata$tyerr[(bjyearnum[11]+1):bjyearnum[12]] bjerr12<-bjerrdata$tyerr[(bjyearnum[12]+1):length(bjerryear)] bjavee<-data.frame(5,12) cprob=c(0.05,0.25,0.5,0.75,0.95) bjavee[1:5,1]<-quantile(bjerr1,prob=cprob) bjavee[1:5,2]<-quantile(bjerr2,prob=cprob) bjavee[1:5,3]<-quantile(bjerr3,prob=cprob) bjavee[1:5,4]<-quantile(bjerr4,prob=cprob) bjavee[1:5,5]<-quantile(bjerr5,prob=cprob) bjavee[1:5,6]<-quantile(bjerr6,prob=cpr...
2024 Aug 09
3
If loop
...th only one of them being TRUE: ,...,joint12=FALSE,marg1=FALSE,marg2=FALSE,cond12=FALSE,cond21=FALSE,,,, joint12 seems to always kick in, even though I call with, e.g., marg1 being TRUE and everything else being FALSE. My attempts with if... else if were not useful. Please help. Thanks. v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) ??? v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) ?? ... ??? me1<-me0<-NULL ??? if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} ??? if(marg1)?? {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)} ??? if(marg2)?? {me1<-cbind(me1,v1$p2...
2024 Aug 09
1
If loop
...; > ,...,joint12=FALSE,marg1=FALSE,marg2=FALSE,cond12=FALSE,cond21=FALSE,,,, > > joint12 seems to always kick in, even though I call with, e.g., marg1 > being TRUE and everything else being FALSE. My attempts with if... else > if were not useful. Please help. Thanks. > > v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) > v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) > > ... > > me1<-me0<-NULL > if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} > if(marg1) {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)} >...
2024 Aug 09
1
If loop
...> ,...,joint12=FALSE,marg1=FALSE,marg2=FALSE,cond12=FALSE,cond21=FALSE,,,, > > joint12 seems to always kick in, even though I call with, e.g., marg1 > being TRUE and everything else being FALSE. My attempts with if... > else if were not useful. Please help. Thanks. > > v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) > ??? v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) > > ?? ... > > ??? me1<-me0<-NULL > ??? if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} > ??? if(marg1)?? {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)} > ??? if(m...
2008 Feb 07
0
Sampling with unequal probabilities
...emes for Sampling with Minimal Replacement http://www.amstat.org/Sections/Srms/Proceedings/y2005/Files/JSM2005-000882.pdf In the case of minimal = TRUE (sampling with minimal replacement), with unequal probabilities: * scale prob to sum to 1, * randomly sort the observations along with prob * let cprob = cumsum(prob), * draw a systematic sample of size 'size' in (0,1): uniformVector <- (1:size - runif(1))/size * observation i is selected if cprob[i-1] < uniformVector[j] <= cprob[i] for any j In the case (size*max(prob) > 1), the number of times the observation is sele...
2024 Aug 09
3
If loop
...12=FALSE,cond21=FALSE,,,, > >> > >> joint12 seems to always kick in, even though I call with, e.g., marg1 > >> being TRUE and everything else being FALSE. My attempts with if... else > >> if were not useful. Please help. Thanks. > >> > >> v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) > >> v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) > >> > >> ... > >> > >> me1<-me0<-NULL > >> if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} > >> if(marg1)...
2024 Aug 09
1
If loop
...,marg1=FALSE,marg2=FALSE,cond12=FALSE,cond21=FALSE,,,, > > joint12 seems to always kick in, even though I call with, e.g., marg1 > being TRUE and everything else being FALSE. My attempts with if... > else > if were not useful. Please help. Thanks. > > v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) > ???? v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) > > ??? ... > > ???? me1<-me0<-NULL > ???? if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} > ???? if(marg1)?? {me1<-cbind(me1,v1$p1); me0<-cbind(...
2024 Aug 09
2
If loop
...E,marg1=FALSE,marg2=FALSE,cond12=FALSE,cond21=FALSE,,,, >> >> joint12 seems to always kick in, even though I call with, e.g., marg1 >> being TRUE and everything else being FALSE. My attempts with if... else >> if were not useful. Please help. Thanks. >> >> v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) >> v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) >> >> ... >> >> me1<-me0<-NULL >> if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} >> if(marg1) {me1<-cbind(me1,v1$p1); me0&lt...