Displaying 1 result from an estimated 1 matches for "opobj".
Did you mean:
pobj
2005 Dec 08
1
kronecker(... , make.dimnames=TRUE)
...if (make.dimnames) {
dnx <- dimnames(X)
dny <- dimnames(Y)
}
dX <- dim(X)
dY <- dim(Y)
ld <- length(dX) - length(dY)
if (ld < 0)
dX <- dim(X) <- c(dX, rep.int(1, -ld))
else if (ld > 0)
dY <- dim(Y) <- c(dY, rep.int(1, ld))
opobj <- outer(X, Y, FUN, ...)
dp <- as.vector(t(matrix(1:(2 * length(dX)), ncol = 2)[,
2:1]))
opobj <- aperm(opobj, dp)
dim(opobj) <- dX * dY
if (make.dimnames && !(is.null(dnx) && is.null(dny))) {
if (is.null...