zono1 = zonoseg( c(1,-2,3,0,-3,-4) )
getsegment(zono1)
# [1] -9 4
p = c( 0, -3*pi, pi, 2*pi, getsegment(zono1) )
inside( zono1, p )
# p inside distance idxhyper
# 1 0.000000 TRUE -4.0000000 1
# 2 -9.424778 FALSE 0.4247780 1
# 3 3.141593 TRUE -0.8584073 1
# 4 6.283185 FALSE 2.2831853 1
# 5 -9.000000 TRUE 0.0000000 1
# 6 4.000000 TRUE 0.0000000 1
Run the code above in your browser using DataLab