powered by
interval.dist.tobj(sym.obj.x, sym.obj.y, distance = c("hausdorff", "centers", "interscal"), p = 2)
interval.dist
data(VeterinaryData) VD<-VeterinaryData interval.dist.tobj(sym.obj(VD,1),sym.obj(VD,2)) interval.dist.tobj(sym.obj(VD,1),sym.obj(VD,2),distance="centers")
Run the code above in your browser using DataLab