R/AllClasses.R
e272e5d6
 setOldClass("ffdf")
 setOldClass("ff_matrix")
 ##setClassUnion("matrix_or_ff", c("matrix", "ff_matrix"))
e40ceb44
 setClassUnion("list_or_ffdf", c("list", "ffdf"))
afb508f9
 setClassUnion("ff_or_matrix", c("ff_matrix", "matrix", "ffdf"))
e40ceb44
 setClass("CNSetLM", contains="CNSet", representation(lM="list_or_ffdf"))
c00f715a
 setMethod("initialize", "CNSetLM", function(.Object, lM=new("list"), ...){
 	.Object@lM <- lM
 	.Object <- callNextMethod(.Object, ...)
e40ceb44
 })