mlt

table.shingle<-function(..., as.data.frame=F) {
	dots<-list(...)
	stopifnot(all(sapply(dots, class) %in% c("shingle","factor")))
	stopifnot(length(unique(sapply(dots, length)))==1)
	dims<-sapply(dots, nlevels)
	varnames<-tail(lapply(match.call(), deparse),-1)
	varnames["as.data.frame"] <- NULL
	res<-array(0, dims, `names<-`(lapply(dots, function(x) as.vector(sapply(levels(x), paste, collapse=":"))), varnames))
	isinlevel<-function(z, ints) {
		if(is.factor(z)) {