c1<-.4; c2<-.6
A<-c(0,0); B<-c(1,0); C<-c(c1,c2);
as.bastri(rbind(A,B,C))
as.bastri(rbind(B,C,A))
as.bastri(rbind(B,A,C))
as.bastri(rbind(A,C,B))
A<-c(1,1); B<-c(2,0); C<-c(1.5,2);
as.bastri(rbind(A,B,C))
as.bastri(rbind(A,C,B))
as.bastri(rbind(B,A,C))
A<-runif(2); B<-runif(2); C<-runif(2)
as.bastri(rbind(A,B,C))
dat.fr<-data.frame(a=rbind(A,B,C))
as.bastri(dat.fr)
Run the code above in your browser using DataLab