options(digits=4)
data(veronica)
ver.geo <- coord2dist(coordmatrix=veronica.coord[1:20,],file.format="decimal2")
vei <- prabinit(prabmatrix=veronica[1:20,],distance="jaccard")
regdist(c(rep(TRUE,10),rep(FALSE,10)),ver.geo,vei$distmat,param=1)
Run the code above in your browser using DataLab