search for: err_ev

...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 University of Minnesota 1991 Upper Buford Circle St. Paul, MN 55108 Ph...