R/IMA2.class.R

setClass("methy450batch",
    representation(
        bmatrix = "matrix",
        annot = "matrix",
        detectP = "matrix",
        groupinfo = "data.frame",
        TSS1500Ind = "list",
        TSS200Ind = "list",
        UTR5Ind = "list",
        EXON1Ind = "list",
        GENEBODYInd = "list",
        UTR3Ind = "list",
        ISLANDInd = "list",
        NSHOREInd = "list",
        SSHOREInd = "list",
        NSHELFInd = "list",
        SSHELFInd = "list"
    )
)

setMethod("show", "methy450batch",
    function(object){
        cat("*** Class methy450batch , method Show ***\n")
        cat("* BetaMatrix (limited to matrix 5x5) = ", paste("(", paste(dim(object@bmatrix), collapse = "x"), ")", sep = ""), "\n")
        nrowShow <- min(5 , nrow(object@bmatrix))
        ncolShow <- min(5 , ncol(object@bmatrix))
        if (nrow(object@bmatrix)!=0) {
            print(formatC(object@bmatrix[seq_len(nrowShow), seq_len(ncolShow)]), quote = FALSE)
        } else {}
        cat("* ..... .....\n\n")

        cat("* Dectect P-Value (limited to matrix 5x5) = ", paste("(", paste(dim(object@detectP), collapse = "x"), ")", sep = ""), "\n")
        nrowShow <- min(5 , nrow(object@detectP))
        ncolShow <- min(5 , ncol(object@detectP))
        if (nrow(object@detectP)!=0) {
            print(formatC(object@detectP[seq_len(nrowShow), seq_len(ncolShow)]), quote = FALSE)
        } else {}
        cat("* ..... .....\n\n")

        cat("* Annotation (limited to matrix 5x5) = ", paste("(", paste(dim(object@annot), collapse = "x"), ")", sep = ""), "\n")
        nrowShow <- min(5 , nrow(object@annot))
        ncolShow <- min(5 , ncol(object@annot))
        if (nrow(object@annot)!=0) {
            print(formatC(object@annot[seq_len(nrowShow), seq_len(ncolShow)]), quote = FALSE)
        } else {}
        cat("* ..... .....\n\n")

        cat("* Group Information (limited to matrix 5x5) = ", paste("(", paste(dim(object@groupinfo), collapse = "x"), ")", sep = ""), "\n")
        nrowShow <- min(5 , nrow(object@groupinfo))
        ncolShow <- min(5 , ncol(object@groupinfo))
        if (nrow(object@groupinfo)!=0) {
            print(formatC(as.matrix(object@groupinfo[seq_len(nrowShow), seq_len(ncolShow)])), quote = FALSE)
        } else {}
        cat("* ..... .....\n\n")

        Regions <- c("TSS1500", "TSS200", "5\'UTR", "1stExon", "Gene Body", "3\'UTR", "Island", "N_Shore", "S_Shore", "N_Shelf", "S_Shelf")
        regions <- c("TSS1500Ind", "TSS200Ind", "UTR5Ind", "EXON1Ind", "GENEBODYInd", "UTR3Ind", "ISLANDInd", "NSHOREInd", "SSHOREInd", "NSHELFInd", "SSHELFInd")
        for (iReg in seq_len(length(regions))) {
            cat("* Regions", Regions[iReg],"(limited to 1st element) = ", paste("(", paste(length(eval(parse(text = paste("[email protected]", regions[iReg], sep = "")))$SID), collapse = "x"), ")", sep = ""), "\n")
            if (length(eval(parse(text = paste("[email protected]", regions[iReg], sep = "")))[[1]])!=0) {
                cat("$SID"); print(eval(parse(text = paste("[email protected]", regions[iReg], sep = "")))$SID[1], quote = FALSE)
                cat("$PID"); print(eval(parse(text = paste("[email protected]", regions[iReg], sep = "")))$PID[1], quote = FALSE)
            } else {}
            cat("* ..... .....\n\n")
        }

        cat("******* End Show (methy450batch) *******\n")
    }
)

setClass("exprmethy450",
    representation(
        bmatrix = "matrix",
        annot = "matrix",
        detectP = "matrix",
        groupinfo = "data.frame"
    )
)

setMethod("show", "exprmethy450",
    function(object){
        cat("*** Class exprmethy450 , method Show ***\n")
        cat("* BetaMatrix (limited to matrix 5x5) = ", paste("(", paste(dim(object@bmatrix), collapse = "x"), ")", sep = ""), "\n")
        nrowShow <- min(5 , nrow(object@bmatrix))
        ncolShow <- min(5 , ncol(object@bmatrix))
        if (nrow(object@bmatrix)!=0) {
            print(formatC(object@bmatrix[seq_len(nrowShow), seq_len(ncolShow)]), quote = FALSE)
        } else {}
        cat("* ..... .....\n\n")

        cat("* Detect P-Value (limited to matrix 5x5) = ", paste("(", paste(dim(object@detectP), collapse = "x"), ")", sep = ""), "\n")
        nrowShow <- min(5 , nrow(object@detectP))
        ncolShow <- min(5 , ncol(object@detectP))
        if (nrow(object@detectP)!=0) {
            print(formatC(object@detectP[seq_len(nrowShow), seq_len(ncolShow)]), quote = FALSE)
        } else {}
        cat("* ..... .....\n\n")

        cat("* Annotation (limited to matrix 5x5) = ", paste("(", paste(dim(object@annot), collapse = "x"), ")", sep = ""), "\n")
        nrowShow <- min(5 , nrow(object@annot))
        ncolShow <- min(5 , ncol(object@annot))
        if (nrow(object@annot)!=0) {
            print(formatC(object@annot[seq_len(nrowShow), seq_len(ncolShow)]), quote = FALSE)
        } else {}
        cat("* ..... .....\n\n")

        cat("* Group Information (limited to matrix 5x5) = ", paste("(", paste(dim(object@groupinfo), collapse = "x"), ")", sep = ""), "\n")
        nrowShow <- min(5 , nrow(object@groupinfo))
        ncolShow <- min(5 , ncol(object@groupinfo))
        if (nrow(object@groupinfo)!=0) {
            print(formatC(as.matrix(object@groupinfo[seq_len(nrowShow), seq_len(ncolShow)])), quote = FALSE)
        } else {}
        cat("* ..... .....\n\n")

        cat("******* End Show (exprmethy450) *******\n")
    }
)
mcanouil/IMA2 documentation built on May 22, 2019, 12:59 p.m.