R/aspectSumSMC.R

Defines functions `aspectSumSMC`

`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 6, 2022, 9:06 a.m.