R/GSC_seq.R

GSC_seq <- function (p, sierp=TRUE) {    
  N <- length(p)
  if (N==1) return(simMatrix(p[1],sierp))
  else  
    return(kronecker(GSC_seq(p[1:(N-1)], sierp),simMatrix(p[N],sierp)))
}

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.