File: coef.eco.R

package info (click to toggle)
r-cran-eco 3.1-7-1
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 672 kB
  • ctags: 163
  • sloc: ansic: 4,183; makefile: 7
file content (9 lines) | stat: -rw-r--r-- 260 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
 
coef.eco <- function(object, subset = NULL, ...) {
  mu <- object$mu
  if (is.null(subset))
    subset <- 1:nrow(mu)
  else if (max(subset) > nrow(mu))
    stop(paste("invalid input for `subset.' only", nrow(mu), "draws are stored."))

  return(mu[subset,])
}