Displaying 1 result from an estimated 1 matches for "sdback".
Did you mean:
2dback
2005 Jan 27
4
self-written function
...,
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
}
I would like to apply this function to whole datasets, such as
tapply(variable,list(A,B,C,D),backsin)
Of course, this doesn?t work with the way in which the backsin()
function is specified....