if(interactive() && require(rpanel)) {
iplot(cells)
iplot(amacrine)
iplot(lansing)
L <- layered(D=distmap(cells), P=cells,
plotargs=list(list(ribbon=FALSE), list(pch=16)))
iplot(L)
}
Run the code above in your browser using DataLab