R/rbind.mlds.df.R

In MLDS: Maximum Likelihood Difference Scaling

rbind.mlds.df <- function(...) {
	allargs <- list(...)
	dd <- do.call("rbind.data.frame", allargs)
	attr(dd, "invord") <- do.call("c", lapply(allargs,
		function(x) attr(x, "invord")))
#		attr(dd, "stimulus") <- attr(, "stimulus")
	class(dd) <- c("mlds.df", "data.frame")
	dd
	}
	
`rbind.mlbs.df` <- function(...){
	 allargs <- list(...)
    dd <- do.call("rbind.data.frame", allargs)
    attr(dd, "invord") <- do.call("c", lapply(allargs, function(x) attr(x, 
        "invord")))
    class(dd) <- c("mlbs.df", "data.frame")
    dd
}