# NOT RUN {
x <- matrix(runif(100),ncol=2)
G1 <- nng(x,k=1)
# }
# NOT RUN {
par(mfrow=c(2,2))
plot(G1)
# }
# NOT RUN {
G2 <- nng(x,k=2)
# }
# NOT RUN {
plot(G2)
# }
# NOT RUN {
G5 <- nng(x,k=5)
# }
# NOT RUN {
plot(G5)
# }
# NOT RUN {
G5m <- nng(x,k=5,mutual=TRUE)
# }
# NOT RUN {
plot(G5m)
par(mfrow=c(1,1))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab