Displaying 1 result from an estimated 1 matches for "intmean".
Did you mean:
incmean
2004 Nov 18
0
Memory problems...leaky?
...distance <- sqrt ((p - i)^2 + (q - j)^2)
probability [p,q] <- (2 / (bflow * pie * (1 + (distance /
bflow)^2)))
}
}
kernsum <- sum ((probability * input / input), na =
TRUE)
intmean <- sum (input * probability, na = TRUE) /
kernsum
result [i,j] <- sum (((input - intmean)^2 * probability), na =
TRUE) / kernsum
}
}
}