Displaying 1 result from an estimated 1 matches for "nmarg".
Did you mean:
marg
2007 Nov 02
0
applying duplicated, unique and match to lists?
...omLast = fromLast)]
d[match(x,x[d])]
}else{
x <- lapply(x, hashFUN)
d <- (1:length(x))[!duplicated(x, fromLast = fromLast)]
d[match(x,x[d])]
}
}
id.matrix <- id.array <-
function (x, fromLast = FALSE, MARGIN = 1, hashFUN=md5, ...)
{
ndim <- length(dim(x))
nmarg <- length(MARGIN)
if (nmarg > ndim || any(MARGIN > ndim))
stop("MARGIN = ", MARGIN, " is invalid for dim = ", dim(x))
h <- apply(x, MARGIN, hashFUN)
d <- (1:length(h))[!duplicated(h, fromLast = fromLast)]
i <- d[match(h,h[d])]
dim(i)...