"setLMmethod.MBdataDE" <-
function(x,lmMethod)
{
isValid <- validObject(x)
x@lmMethod <- lmMethod
isValid <- validObject(x)
return(x)
}