inst/tests/test_R_pseudo.R

require(EBSpatCGAL)

#del2 <- Delaunay()

#insert(del2,matrix(runif(200,-350,350),ncol=2))

# lc <- GNZCache(del2~Del2(Th[1]*(l<=20)+Th[2]*(20<l & l<=80))+Del1(Th2*(a<20)),
# 			runs=10000L,
# 			domain=c(-300,-300,300,300)
# 		)
# formula(lc,expression(first=exp(-(.V)),second=-(.V)))
# run(lc,Th=c(0,0),Th2=3,single=-log(1/3600))


pseudo <- Pseudo(del2~Del2(Th[1]*(l<=20)+Th[2]*(20<l & l<=80)), 
	runs=10000L,
	domain=Domain(c(-250,-250),c(250,250)),
	expo=TRUE
)

run(pseudo,Single=2,Th=c(2,4))

#run(pseudo,Th=c(0,0),single=-log(1/3600))
rcqls/EBSpatCGAL documentation built on July 30, 2023, 11:12 p.m.