Cacher is the code snippet organizer for pro developers

networkBase <- function (nbre_points=30) {
    x = rnorm(nbre_points, 50, 20)
    y = rnorm(nbre_points, 50, 20)
    plan = data.frame(x, y)
    LIM=range(plan)
    colors = rgb(runif(nbre_points),runif(nbre_points),runif(nbre_points),1)
    plot(1, type="n", axes=F, xlab="", ylab="", xlim=LIM+1, ylim=LIM+1, asp=1)
    segments(plan[1:length(plan$x)-1,1], plan[1:length(plan$x)-1,2],
             plan[2:length(plan$x),1], plan[2:length(plan$x),2],
             col=colors, lwd=4)
    points(plan, pch=20, cex=4, col=colors)
  }
networkBase()