search for: oberassist

...th(x)] yt <- y[(length(y)-cutpoint):length(y)] # draw the polygon polygon(xt, yt, density = 10 ) As you can see in the result, this is not what I want; some area above the line gets shaded, but not below. Can someone tell me what I am missing? Thank you very much, Bertolt -- Bertolt Meyer Oberassistent Sozialpsychologie, Psychologisches Institut der Universit?t Z?rich Binzm?hlestr. 14, Box 15 CH-8050 Z?rich bmeyer at sozpsy.uzh.ch tel: +41446357282 fax: +41446357279 mob: +41788966111

...2 -0.5915639 -0.7404875 > tapply(test$V3, test$groupID, mean) 1 2 -0.6012890 0.3733494 I am now looking for something that gives me groupID V2 V3 1 1 -0.5915639 -0.6012890 2 2 -0.7404875 0.3733494 Any ideas? Thank you very much, Bertolt -- Bertolt Meyer Oberassistent Sozialpsychologie, Psychologisches Institut der Universit?t Z?rich Binzm?hlestr. 14, Box 15 CH-8050 Z?rich bmeyer at sozpsy.uzh.ch tel: +41446357282 fax: +41446357279 mob: +41788966111