Displaying 2 results from an estimated 2 matches for "sampdist".
2011 Sep 06
2
Generalizing call to function
...f1 <- function(n, y, a, rate) {
lambda <- a * n
dexp(n, rate) * dpois(y, lambda)
}
integrate(f1, 0, Inf, y, a, rate)
}
func1(1, 0.1, 0.1)
func2 <- function(y, a, rate, samp) {
f1 <- function(n, y, a, rate, samp) {
SampDist <- function(y, a, n, samp) {
lambda <- a * n
dcom <- paste("d", samp, sep="")
dots <- as.list(c(y, lambda))
do.call(dcom, dots)
}
dexp(n, rate)...
2004 Jan 04
5
Analyzing dendograms??
I have used heatmap to visualize my microarray data. I have a matrix of
M-values. I do the following.
#The distance between the columns.
sampdist <- dist(t(matrix[,]), method="euclidean")
sclus <- hclust(sampdist, method="average")
#The distance between the rows.
genedist <- dist(matrix[,], method="euclidean")
gclus <- hclust(genedist, method="average")
heatmap(matrix[,],Rowv=as.dendrogram(...