R/sim.rand.R

In brainwaver: Basic wavelet analysis of multivariate time series with a visualisation and parametrisation using graph theory.

sim.rand<-function(n.nodes,n.edges)
{

z<-.C("Rrandsim",
	as.integer(n.nodes),
	as.integer(n.edges),
	mat=integer(n.nodes*n.nodes), PACKAGE="brainwaver")

mat<-z$mat
mat<-matrix(mat,n.nodes,n.nodes)

return(mat)

}