R/is.inside.simp.R

Defines functions is.inside.simp

is.inside.simp<-function(point,simple,rho)
{
d<-length(point)
dd<-1
sisalla2<-1
while ( (dd<=(d+1)) && (sisalla2==1) ){
      karki<-simple[dd,]
      dista2<-sum((point-karki)^2)
      if (dista2>rho^2){ 
            sisalla2<-0
      }
      dd<-dd+1
}

return(sisalla2)
}

Try the denpro package in your browser

Any scripts or data that you put into this service are public.

denpro documentation built on May 2, 2019, 8:55 a.m.