Displaying 1 result from an estimated 1 matches for "mean_event".
Did you mean:
kern_event
2004 Jul 22
2
Standard error of a sum
...can I estimate the standard error of this
total applied chemical.
Thanks in advance,
Jose
event <- c(1,1,1,2,2,2,3,3,3)
chem <- c(131.75,125.92,130.09,42.67,48.26,54.56,85.05,91.17,90.86)
d.1 <- data.frame(event,chem)
attach(d.1)
s.err <- function(x) sd(x)/(sqrt(length(x)))
print(mean_event <- tapply(d.1$chem,factor(data.1$event),mean))
print(s.err_event <- tapply(d.1$chem,factor(data.1$event),s.err))
print(total_chem <- sum(mean_event))
s.err_total_chem <-
--
Jose A. Hernandez
Ph.D. Candidate
Precision Agriculture Center
Department of Soil, Water, and Climate
Univer...