R/aspectSumSMC.R

`aspectSumSMC` <-
function(r) {
  m <- dim(r)[1]
  f <- 0
  g <- matrix(0,m,m)
  for (j in 1:m) {
    a <- aspectSMC(r,j)
    f <- f+(a$f)
    g <- g+(a$g)
  }
  list(f = f, g = g)
}

Try the aspect package in your browser

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

aspect documentation built on May 31, 2017, 1:53 a.m.