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<...