Displaying 1 result from an estimated 1 matches for "ws37".
Did you mean:
ws3
2005 Jun 10
1
Sum up the values of a function
...y function values in a smart way. I don't
know how to explain it easyly, so I give you the code and show you
where my problem is.
I have shorten the code a little bit, so that you only get the
necessary facts:
ws12 <- function (z, i) (1/(1+exp(z[1]*(z[3]-x1[i]- z[4]*(m1[i]/n1[i]-0.5)))))
ws37 <- function (z, i) (1/(1+exp(z[2]*(z[3]-x2[i]- z[5]*(m2[i]/n2[i]-0.5)))))
wsAttack12 <- function (z,i) (ws12(z,i)*dec1[i]+(1-ws12(z,i))*(1-dec1[i]))
wsAttack37 <- function (z,i) (ws37(z,i)*dec2[i]+(1-ws37(z,i))*(1-dec2[i]))
logwsAttack12 <- function (z,i) (log(wsAttack12(z,i)))
logwsAtt...