inst/tests/test_R_formMngr.R

In rcqls/EBSpatCGAL: EBSpat using CGAL

require(EBSpatCGAL)
formMngr <- ComponentFunctionalFormulaManager()

formula(formMngr,gd~Del2(Th[1]*(l<=20)+Th[2]*(20<l & l<=80))+Del1(Th2*(a<=20)),local=TRUE)
formula(formMngr,1,local=TRUE)
formula(formMngr,del2(l<=20),local=TRUE) 
formula(formMngr,del2(20<l & l<=80),local=TRUE)
formula(formMngr,del1(a<=20),local=TRUE)

print(formula(formMngr))