Displaying 1 result from an estimated 1 matches for "backsin".
2005 Jan 27
4
self-written function
Dear all,
I?ve got a simple self-written function to calculate the mean + s.e.
from arcsine-transformed data:
backsin<-function(x,y,...){
backtransf<-list()
backtransf$back<-((sin(x[x!="NA"]))^2)*100
backtransf$mback<-tapply(backtransf$back,y[x!="NA"],mean)
backtransf$sdback<-tapply(backtransf$back,y[x!="NA"],stdev)/sqrt(length(y[x!="NA"]))
backtransf
}...