checkArguments: Not very useful quite yet, but if software is expanded to...
In Sage-Bionetworks/snm: Supervised Normalization of Microarrays

Description Usage Arguments Author(s) Examples

Not very useful quite yet, but if software is expanded to include other types of data this function will become more relevant. At this time a rather useless function. Purpose is mainly for any extensions of this package that might require more complex input (e.g. CNV arrays, surface modeling, etc).

1	checkArguments(edge.obj)

edge.obj

An object of class snm.

Brig Mecham <brig.mecham@sagebase.org> and John D. Storey <jstorey@princeton.edu>

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (edge.obj) 
{
    m <- dim(edge.obj$dat)[1]
    n <- dim(edge.obj$dat)[2]
    d <- dim(edge.obj$bio.var)[2]
    n.bc <- dim(edge.obj$bio.var)[1]
#    if (n.bc != n) {
#        print("Number of columns of Y and number of rows of bio.vars are not equal\n ")
#        stop()
#    }
#    n.r.c <- dim(edge.obj$adj.var)[1]
#    if (n.r.c != n && dim(edge.obj$adj.var)[1] != 0) {
#        print("Number of columns of Y and number of rows of technical.covariates are not equal\n ")
#        stop()
#    }
#    if (!is.matrix(edge.obj$dat)) {
#        print("Y is not a numeric matrix\n")
#        stop()
#    }
    return(edge.obj)    
  }