Displaying 1 result from an estimated 1 matches for "ws37sum".
Did you mean:
ws12sum
2005 Jun 10
1
Sum up the values of a function
...+(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)
(logwsAttack37(z,i=1)+logwsAttack37(z,i=2)+logwsAttack37(z,i=3)+logwsAttack37(z,i=4)+logwsAttack37(z,i=5)+logwsAttack37(z,i=6)+logwsAttack37(z,i=7)+logwsAttack37(z,i=8))
wsLOG <- function (z) (ws12sum(z) + ws37sum(z))
LogSum <- function (z) (-sum(wsLOG(z)))
SP <- c(0.16...