Displaying 1 result from an estimated 1 matches for "predcoca".
Did you mean:
predca
2005 Aug 03
1
deparse(substitute(x)) and S3 methods
...t <- list(namY = deparse(substitute(y)),
namX = deparse(substitute(x)))
method <- match.arg(method)
if(method == "predictive")
{
reg.method <- match.arg(reg.method)
retval <- switch(reg.method,
simpls = predcoca.simpls(y, x, R0 = weights,
n.axes = n.axes, nam.dat),
eigen = predcoca.eigen(y, x, R0 = weights,
n.axes = n.axes, nam.dat))
} else {
retval <- symcoca(y, x, n.axes = n.axes, R0 = weights,...