R/constant.R

In metrumrg: Pharmacometric Tools for Data Preparation, Modeling, Simulation, and Reporting

.crosses <- function(a, b, fromLast = FALSE)duplicated(
	fromLast=fromLast,
	cbind(
		as.data.frame(a),
		as.data.frame(b)
	)
)!=
duplicated(
	fromLast=fromLast,
	as.data.frame(a)
)

.crosses <- function(a, b, fromLast = FALSE){
	if(!is.list(a)) a <- list(a)
	if(!is.list(b)) b <- list(b)
	a <- do.call(paste,c(a,list(sep='\r')))	
	b <- do.call(paste,c(b,list(sep='\r')))	
	a <- as.integer(factor(a))
	b <- as.integer(factor(b))
	if(fromLast) a <- rev(a)
	if(fromLast) b <- rev(b)
	i <- match(a,a) # indices for first matches
	c <- b[i] # canonical
	res <- b != c # does each value of b correspond to the canonical value (first within index) ?
	if(fromLast) res <- rev(res)
	res
}
	

`crosses` <- function(a,b,all=FALSE)if(all) .crosses(a,b,FALSE) | .crosses(a,b,TRUE) else .crosses(a,b,FALSE)
`%crosses%` <- function(a,b)any(crosses(a,b))
`%crossed.on%` <- function(a,b)b %crosses% a
`%nests%` <- function(a,b)!b %crosses% a
`%nested.in%` <- function(a,b) b %nests% a
constant <- function(x,...)UseMethod('constant')
constant.default <- function(x,within=rep(TRUE,length(x)),...)x%nests%within