# \donttest{
A<-c(1,1); B<-c(2,0); C<-c(1.5,2);
Tr<-rbind(A,B,C);
tau<-1.5
M<-as.numeric(runif.tri(1,Tr)$g) #try also M<-c(1.6,1.2)
n<-3
set.seed(1)
Xp<-runif.tri(n,Tr)$g
NCStri(Xp[1,],Tr,tau,M)
P1<-as.numeric(runif.tri(1,Tr)$g) #try also P1<-c(.4,.2)
NCStri(P1,Tr,tau,M)
#or try
re<-rel.edges.tri(P1,Tr,M)$re
NCStri(P1,Tr,tau,M,re)
# }
Run the code above in your browser using DataLab