Displaying 1 result from an estimated 1 matches for "compind".
Did you mean:
comping
2008 Jul 01
2
Set default value
...hat
function structure ? thanks
------------
Stem.Skeleton <- function(...) {
if (nargs() == 1)
x <- as.list(...)
else
x <- list(...)
## required components
comp <- c("phi", "p", "K")
if(is.null(list(x$p))) x$p = 1
compInd <- match(comp, names(x))
if (any(is.na(compInd)))
stop(paste("Component(s)", paste(comp[is.na(compInd)], collapse=", "
),
"is (are) missing"))
....
---------
Marco
[[alternative HTML version deleted]]