R/zoperators.R

In lava: Latent Variable Models

##' For matrices a block-diagonal matrix is created. For all other
##' data types he operator is a wrapper of \code{paste}.
##'
##' Concatenation operator
##' @aliases %+% %++%
##' @rdname op_concat
##' @usage x \%+\% y
##' @title Concatenation operator
##' @param x First object
##' @param y Second object of same class
##' @author Klaus K. Holst
##' @keywords utilities misc
##' @seealso \code{blockdiag}, \code{\link{paste}}, \code{\link{cat}},
##' @examples
##' matrix(rnorm(25),5)%+%matrix(rnorm(25),5)
##' "Hello "%+%" World"
##' @export
`%+%` <- function(x,y) UseMethod("%+%",y)

##' @export
`%++%` <- function(x,y) UseMethod("%+%",y)

##' @export
`%++%.default` <- function(x,y) x%+%y

##' @export
`%+%.default` <- function(x,y) paste(x,y,sep="")

##' @export
`%+%.character` <- function(x,y) paste(x,y,sep="")

##' @export
`%+%.matrix` <- function(x,y) blockdiag(x,y)


notin <- Negate(get("%in%"))
##' Matching operator (x not in y) oposed to the \code{\%in\%}-operator (x in y)
##' 
##' Matching operator
##' @rdname op_match
##' @aliases %ni%
##' @usage x \%ni\% y
##' @param x vector
##' @param y vector of same type as \code{x}
##' @return A logical vector.
##' @author Klaus K. Holst
##' @seealso \code{\link{match}}
##' @keywords utilities misc
##' @examples
##' 
##' 1:10 %ni% c(1,5,10)
##'
##' @export
"%ni%" <- function(x,y) notin(x,y)

## function(x,y) {
##   is.na(match(x,y))
## }