R/simMatrix.R

simMatrix<-function (p, sierp = TRUE) 
{
  A <- matrix(rbinom(9, 1, p), ncol = 3, nrow = 3)
  if(sierp) {A[2,2] <- 0}
  return(A)
}

Try the FractalParameterEstimation package in your browser

Any scripts or data that you put into this service are public.

FractalParameterEstimation documentation built on July 10, 2019, 5:05 p.m.