Displaying 1 result from an estimated 1 matches for "logwsa".
2005 Jun 10
1
Sum up the values of a 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)))
logwsAttack37 <- function (z,i) (log(wsAttack37(z,i)))
ws12sum <- function (z)
(logwsAttack12(z,i=1)+logwsAttack12(z,i=2)+logwsAttack12(z,i=3)+logwsAttack12(z,i=4)+logwsAttack12(z,i=5)+logwsAttack12(z,i=6))
ws37sum <- function (z)
(logws...