# NOT RUN {
data(imcdata)
getNeighborhood(imcdata)
data(imcdata)
x<-matrix(1,nrow=ncol(imcdata),ncol=2)
getNeighborhood(imcdata)<-x
data(imcdata)
x<-matrix(1,nrow=ncol(imcdata),ncol=2)
getNeighborhood(imcdata)<-x
# }
Run the code above in your browser using DataLab