Description Details Author(s) Examples
Identification of clusters of co-expressed genes based on their expression across multiple (replicated) biological samples.
The DESCRIPTION file:
This package was not yet installed at build time.
Index: This package was not yet installed at build time.
Thomas J. Hardcastle & Irene Papatheodorou
Maintainer: Thomas J. Hardcastle <tjh48@cam.ac.uk>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | #Load in the processed data of observed read counts at each gene for each sample.
data(ratThymus, package = "clusterSeq")
# Library scaling factors are acquired here using the getLibsizes
# function from the baySeq package.
libsizes <- getLibsizes(data = ratThymus)
# Adjust the data to remove zeros and rescale by the library scaling
# factors. Convert to log scale.
ratThymus[ratThymus == 0] <- 1
normRT <- log2(t(t(ratThymus / libsizes)) * mean(libsizes))
# run kCluster on reduced set.
normRT <- normRT[1:1000,]
kClust <- kCluster(normRT)
# make the clusters from these data.
mkClust <- makeClusters(kClust, normRT, threshold = 1)
# or using likelihood data from a Bayesian analysis of the data
# load in analysed countData object
data(cD.ratThymus, package = "clusterSeq")
# estimate likelihoods of dissimilarity on reduced set
aM <- associatePosteriors(cD.ratThymus[1:1000,])
# make clusters from dissimilarity data
sX <- makeClusters(aM, cD.ratThymus, threshold = 0.5)
# plot first six clusters
par(mfrow = c(2,3))
plotCluster(sX[1:6], cD.ratThymus)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.