#' @title Data matrix from K2 object
#' @description Retrieve or assign matrix of data used in K2Taxonomer run.
#' @param K2res K2 class object.
#' @param value Matrix. Numeric data used for K2Taxonomer run.
#' @return Matrix. Numeric data used for K2Taxonomer run.
#' @examples
#' data(K2res)
#' K2data(K2res)
#'
#' @export
setGeneric("K2data", function(K2res) standardGeneric("K2data"))
#' @rdname K2data
setGeneric("K2data<-", function(K2res, value) standardGeneric("K2data<-"))
#' @rdname K2data
setMethod("K2data", "K2", function(K2res) K2res@dataMatrix)
#' @rdname K2data
setMethod("K2data<-", "K2", function(K2res, value) {
K2res@dataMatrix <- value
K2res
})
#' @title Data frame of phenotypic information from K2 object
#' @description Retrieve or assign observation information in K2Taxonomer run.
#' @param K2res K2 class object.
#' @param value Data frame. Observation information from K2Taxonomer run.
#' @return Data frame. Observation information from K2Taxonomer run.
#' @examples
#' data(K2res)
#' head(K2info(K2res))
#'
#' @export
setGeneric("K2info", function(K2res) standardGeneric("K2info"))
#' @rdname K2info
setGeneric("K2info<-", function(K2res, value) standardGeneric("K2info<-"))
#' @rdname K2info
setMethod("K2info", "K2", function(K2res) K2res@info)
#' @rdname K2info
setMethod("K2info<-", "K2", function(K2res, value) {
K2res@info <- value
K2res
})
#' @title Annotated list of partition assignments from K2Taxonomer run
#' @description Retrieve or assign annotated list of subgroups from K2Taxonomer
#' run.
#' @param K2res K2 class object.
#' @param value List. A list with an element for each partition.
#' @return List. A list with an element for each partition.
#' @examples
#' data(K2res)
#' K2resList <- K2results(K2res)
#'
#' @export
setGeneric("K2results", function(K2res) standardGeneric("K2results"))
#' @rdname K2results
setGeneric("K2results<-", function(K2res, value) standardGeneric("K2results<-"))
#' @rdname K2results
setMethod("K2results", "K2", function(K2res) K2res@results)
#' @rdname K2results
setMethod("K2results<-", "K2", function(K2res, value) {
K2res@results <- value
K2res
})
#' @title Named list of genesets used in K2Taxonomer run
#' @description Retrieve or assign named list of genesets for K2Taxonomer run.
#' @param K2res K2 class object.
#' @param value Named list. A list with an element for each ge
#' @return Named list. A list with an element for each gene set.
#' @examples
#' data(K2res)
#' head(K2genesets(K2res))
#'
#' @export
setGeneric("K2genesets", function(K2res) standardGeneric("K2genesets"))
#' @rdname K2genesets
setGeneric("K2genesets<-", function(K2res, value) {
standardGeneric("K2genesets<-")
})
#' @rdname K2genesets
setMethod("K2genesets", "K2", function(K2res) K2res@genesets)
#' @rdname K2genesets
setMethod("K2genesets<-", "K2", function(K2res, value) {
K2res@genesets <- value
K2res
})
#' @title Vector of collapsed pathways for which each gene belongs
#' @description Retrieve or assign named vector of pathways for each gene.
#' @param K2res K2 class object.
#' @param value Named vector. A vector with collapse pathway names for each
#' gene.
#' @return Named vector. A vector with collapse pathway names for each gene.
#' @examples
#' data(K2res)
#' head(K2gene2Pathway(K2res))
#'
#' @export
setGeneric("K2gene2Pathway", function(K2res) standardGeneric("K2gene2Pathway"))
#' @rdname K2gene2Pathway
setGeneric("K2gene2Pathway<-", function(K2res, value) {
standardGeneric("K2gene2Pathway<-")
})
#' @rdname K2gene2Pathway
setMethod("K2gene2Pathway", "K2", function(K2res) K2res@gene2Pathway)
#' @rdname K2gene2Pathway
setMethod("K2gene2Pathway<-", "K2", function(K2res, value) {
K2res@gene2Pathway <- value
K2res
})
#' @title ExpressionSet object used in K2Taxonomer run
#' @description Retrieve or assign ExpressionSet object.
#' @param K2res K2 class object.
#' @param value ExpressionSet.
#' @return ExpressionSet.
#' @examples
#' data(K2res)
#' K2eSet(K2res)
#'
#' @export
setGeneric("K2eSet", function(K2res) standardGeneric("K2eSet"))
#' @rdname K2eSet
setGeneric("K2eSet<-", function(K2res, value) standardGeneric("K2eSet<-"))
#' @rdname K2eSet
setMethod("K2eSet", "K2", function(K2res) K2res@eSet)
#' @rdname K2eSet
setMethod("K2eSet<-", "K2", function(K2res, value) {
K2res@eSet <- value
K2res
})
#' @title ExpressionSet object of of GSVA output
#' @description Retrieve or assign ExpressionSet object of GSVA output.
#' @param K2res K2 class object.
#' @param value ExpressionSet.
#' @return ExpressionSet.
#' @examples
#' data(K2res)
#' K2gSet(K2res)
#'
#' @export
setGeneric("K2gSet", function(K2res) standardGeneric("K2gSet"))
#' @rdname K2gSet
setGeneric("K2gSet<-", function(K2res, value) standardGeneric("K2gSet<-"))
#' @rdname K2gSet
setMethod("K2gSet", "K2", function(K2res) K2res@gSet)
#' @rdname K2gSet
setMethod("K2gSet<-", "K2", function(K2res, value) {
K2res@gSet <- value
K2res
})
#' @title Meta data defining parameters of K2Taxonomer run
#' @description Retrieve or assign meta data variables.
#' @param K2res K2 class object.
#' @param value Named list. Parameters used in K2Taxonomer run.
#' @return Named list. Parameters used in K2Taxonomer run.
#' @examples
#' data(K2res)
#' K2meta(K2res)
#'
#' @export
setGeneric("K2meta", function(K2res) standardGeneric("K2meta"))
#' @rdname K2meta
setGeneric("K2meta<-", function(K2res, value) standardGeneric("K2meta<-"))
#' @rdname K2meta
setMethod("K2meta", "K2", function(K2res) K2res@meta)
#' @rdname K2meta
setMethod("K2meta<-", "K2", function(K2res, value) {
K2res@meta <- value
K2res
})
#' @title Assign URLs to genes included in K2Taxonomer run
#' @description Retrieve or assign URLs to gene pages.
#' @param K2res K2 class object.
#' @param value Named vector. A vector with a URL string for each gene.
#' @return Named vector. A vector with a URL string for each gene.
#' @examples
#' data(K2res)
#' K2geneURL(K2res)
#'
#' @export
setGeneric("K2geneURL", function(K2res) standardGeneric("K2geneURL"))
#' @rdname K2geneURL
setGeneric("K2geneURL<-", function(K2res, value) standardGeneric("K2geneURL<-"))
#' @rdname K2geneURL
setMethod("K2geneURL", "K2", function(K2res) K2res@geneURL)
#' @rdname K2geneURL
setMethod("K2geneURL<-", "K2", function(K2res, value) {
K2res@geneURL <- value
K2res
})
#' @title Assign URLs to genesets included in K2Taxonomer run
#' @description Retrieve or assign URLs to geneset pages.
#' @param K2res K2 class object.
#' @param value Named vector. A vector with a URL string for each geneset.
#' @return Named vector. A vector with a URL string for each geneset.
#' @examples
#' data(K2res)
#' K2genesetURL(K2res)
#' @export
setGeneric("K2genesetURL", function(K2res) standardGeneric("K2genesetURL"))
#' @rdname K2genesetURL
setGeneric("K2genesetURL<-", function(K2res, value) {
standardGeneric("K2genesetURL<-")
})
#' @rdname K2genesetURL
setMethod("K2genesetURL", "K2", function(K2res) K2res@genesetURL)
#' @rdname K2genesetURL
setMethod("K2genesetURL<-", "K2", function(K2res, value) {
K2res@genesetURL <- value
K2res
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.