From: David Groos <david.groos_at_mpls.k12.mn.us>

Date: Sat 16 Jul 2005 - 06:40:01 EST

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Sat Jul 16 06:44:04 2005

Date: Sat 16 Jul 2005 - 06:40:01 EST

> twosam<-function(y1, y2) {

*+ n1<-length(y1);n2 <-length(y2)
**+ yb1<-mean(y1); yb2<-mean(y2)
**+ s1<-var(y1);s2<-var(y2)
*

+ s<-((n1-1)*s1 + (n2-1)*s2)/(n1+n2-2)

+ tst<-(yb1-yb2)/sqrt(s*(1/n1+1/n2))

Error: syntax error

David

[[alternative text/enriched version deleted]]

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Sat Jul 16 06:44:04 2005

*
This archive was generated by hypermail 2.1.8
: Fri 03 Mar 2006 - 03:33:45 EST
*