
R : Copyright 2003, The R Foundation for Statistical Computing
Version 1.9.0 Under development (unstable) (2003-11-04), ISBN 3-900051-00-3

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for a HTML browser interface to help.
Type 'q()' to quit R.

> demCC <- function(nnodes=500, inM=1:2, p=.3)
+  {
+  library(graph)
+  library(RBGL)
+  library(Biobase)
+ gt <- system.time(x <- randomGraph( as.character(1:nnodes), inM, p ))
+ ct <- system.time(cx <- connectedComp(x))
+ nn <- length(nodes(x))
+ ne <- sum(listLen(edges(x))/2)
+ c("nnodes"=nn, "nedges"=ne, ncc=length(cx), graphTime=gt[3], ccTime=ct[3])
+ }
> set.seed(1234)
> print(demCC())
Welcome to Bioconductor 
	 Vignettes contain introductory material.  To view, 
	 simply type: openVignette() 
	 For details on reading vignettes, see
	 the openVignette help page.
   nnodes    nedges       ncc graphTime    ccTime 
   500.00  21958.00    238.00     10.96      1.53 
> print(demCC(1000))
   nnodes    nedges       ncc graphTime    ccTime 
  1000.00  78479.00    519.00     50.59      6.29 
> print(demCC(2000))
   nnodes    nedges       ncc graphTime    ccTime 
  2000.00 340668.00    974.00    366.41     31.04 
> 
> 
> 
