#\donttest{
A<-c(1,1); B<-c(2,0); C<-c(1.5,2);
Tr<-rbind(A,B,C);
n<-10
set.seed(1)
Xp<-pcds::runif.tri(n,Tr)$g
M<-as.numeric(pcds::runif.tri(1,Tr)$g)
#For the underlying graph
num.edgesCStri(Xp,Tr,t=1.5,M)$num.edges
CSedge.dens.tri(Xp,Tr,t=1.5,M)
CSedge.dens.tri(Xp,Tr,t=1.5,M,in.tri.only = TRUE)
#For the reflexivity graph
num.edgesCStri(Xp,Tr,t=1.5,M,ugraph="r")$num.edges
CSedge.dens.tri(Xp,Tr,t=1.5,M,ugraph="r")
CSedge.dens.tri(Xp,Tr,t=1.5,M,in.tri.only = TRUE,ugraph="r")
#}
Run the code above in your browser using DataLab