Nothing
#' @name internal
#'
#' @aliases setdiffPrim unlistPrim intersectPrim outerPrim uniquePrim matchPrim
NULL
#' @export
setdiffPrim <- function (x, y) {
unique.default(
if (length(x) || length(y))
x[match(x, y, 0L) == 0L]
else x
)
}
#' @export
unlistPrim <- function(x) { #OK
unlist(x, use.names=FALSE)
}
#' @export
intersectPrim <- function (x, y) {
unique.default(y[match(x, y, 0L)])
}
#' @export
outerPrim <- function(X,Y) {
nX <- length(X)
nY <- length(Y)
Y <- rep(Y, rep.int(length(X), length(Y)))
X <- rep(X, times = ceiling(length(Y)/length(X)))
ans <-X*Y
dim(ans)<-c(nX,nY)
ans
}
#' @export
uniquePrim <- function(x) { #OK
unique.default(x)
}
#' @export
matchPrim<-function(x,table) { # Never used
match(x, table)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.