Displaying 1 result from an estimated 1 matches for "covariancexy".
Did you mean:
covariance
2006 Jul 11
1
test regression against given slope for reduced major axis regression (RMA)
...sumXjSquared As Double, sumYjSquared As Double
### n As Long
### varXj, varYj
### output(7)
###
### ============================================================
sumXjYj <- 0
sumXj <- 0
sumYj <- 0
n <- 0
n <- length(XjArray)
sumXjSquared <- 0
sumYjSquared <- 0
covariancexy <- 0
for(i in 1:n){
sumXjYj <- sumXjYj + XjArray[i] * YjArray[i]
sumXj <- sumXj + XjArray[i]
sumYj <- sumYj + YjArray[i]
sumXjSquared <- sumXjSquared + XjArray[i]^2
sumYjSquared <- sumYjSquared + YjArray[i]^2
}
## Mean of X and Y vectors
meanyj &l...