Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.