# ERGraph.R
# Lasse Leskelä 2010-10-14
#
# Syöte:
# n : kokonaisluku
# r : reaaliluku välillä [0,1]
#
# Tulos:
# L : n x n matriisi
#
# Funktiota kutsutaan komennoilla:
# 
#  source('ERGraph.R')
#  L <- ERGraph(n)
#

ERGraph <- function (n,r) {
 L <- matrix(0,n,n);
 for (i in 1:(n-1)) {
   L[i,] <- c(rep(0,i), sample(0:1, n-i, replace = TRUE, prob = c(1-r, r)));
 }
 L <- L + t(L); 
}