R/DistObs.R

In IndTestPP: Tests of Independence and Analysis of Dependence Between Point Processes in Time

DistObs <-
function(posx,posy,posz=NULL, info=FALSE, PA=FALSE,procName=c('X','Y','Z'),...)
{
	nposx<-length(posx)

	pTri<-uniongentri(posx=posx,posy=posy,posz=posz,
			info=info, PA=PA,procName=procName,...)
	DistTri<-calcdist(coorx=pTri$X,coory=pTri$Y,coorz=pTri$Z, nposx=nposx)

	names(DistTri)<-round(posx,2)
	return(DistTri)
}