Displaying 2 results from an estimated 2 matches for "compariso".
Did you mean:
comparison
2009 Jul 29
0
side-by-side Barplot newbie question
...FCM 2
7 ELISA 3
7 FCM 3
7 Telometry 2
7 qPCR 5
The code that I have is
table(comparisons_new)
barplot(as.matrix(comparisons_new$Sub_Exp_Count),xlab="Main_Exp_Name",
ylab="Sub_Exp_Count",ylim=c(0,10),names.arg=(comparisons_new$Main_Exp_Name),beside=TRUE,legend=rownames(compariso
ns_new$Sub_Exp_Name),col=rainbow(5))
[[alternative HTML version deleted]]
2001 Dec 17
1
environments again
...t("\n\n Now x, g and s \n")
aov1(x,g,s=s)
}
aov1 <- function(y,g,s=NULL,comp="mca",meth="Sidak") {
#
fun <- function(x)
c(mean(x,na.rm=T),sd(x,na.rm=T),length(x[!is.na(x)]))
#
li <- length(unique(g))
cat(" Analysis of Variance with Multiple comparisons\n\n")
cat(" Groups : ",li,"\n")
t <- tapply(y,g,fun)
a <- array(c(t,recursive=T),c(3,li))
dimnames(a) <- list(c("Mean","S.Dev","n"),1:li)
df <- length(y)-li
cat(" Means : ",a[1,],"\n")
cat("...