R/AllClasses.r

In walter-ca/Scale4C: Scale4C: an R/Bioconductor package for scale-space transformation of 4C-seq data

setClass("Scale4C",
    representation=list(           
        viewpoint="numeric",
        viewpointChromosome="character",
        pointsOfInterest="GRanges",
        rawData="GRanges",
        scaleSpace="SummarizedExperiment",
        singularities="GRanges"
    ),

    prototype=prototype(
        viewpoint=numeric(),
        viewpointChromosome=character(),
        pointsOfInterest=GRanges(),
        rawData=GRanges(),
        scaleSpace=SummarizedExperiment(),
        singularities=GRanges()
    ),

    validity=function(object) {
        if (ncol(mcols(rawData(object))) != 2)
            return("Please check the format of your fragment data")
        return(TRUE)
    }
)