if (FALSE) {
c1<-.4; c2<-.6;
A<-c(0,0); B<-c(1,0); C<-c(c1,c2);
Tb<-rbind(A,B,C)
M<-as.numeric(runif.bas.tri(1,c1,c2)$g) #try also M<-c(.6,.2)
P1<-as.numeric(runif.bas.tri(1,c1,c2)$g)
P2<-as.numeric(runif.bas.tri(1,c1,c2)$g)
IndNASbas.tri(P1,P2,c1,c2,M)
P1<-c(.3,.2)
P2<-c(.6,.2)
IndNASbas.tri(P1,P2,c1,c2,M)
#or try
Rv<-rv.bas.triCC(P1,c1,c2)$rv
IndNASbas.tri(P1,P2,c1,c2,M,Rv)
P1<-c(.3,.2)
P2<-c(.8,.2)
IndNASbas.tri(P1,P2,c1,c2,M)
P3<-c(.5,.4)
IndNASbas.tri(P1,P3,c1,c2,M)
P4<-c(1.5,.4)
IndNASbas.tri(P1,P4,c1,c2,M)
IndNASbas.tri(P4,P4,c1,c2,M)
c1<-.4; c2<-.6;
P1<-c(.3,.2)
P2<-c(.6,.2)
IndNASbas.tri(P1,P2,c1,c2,M)
}
Run the code above in your browser using DataLab