| Discipline | r meaningful if | R2 meaningful if |
|---|---|---|
| Physics | r < -0.95 or 0.95 < r | 0.9 < R2 |
| Chemistry | r < -0.9 or 0.9 < r | 0.8 < R2 |
| Biology | r < -0.7 or 0.7 < r | 0.5 < R2 |
| Social Sciences | r < -0.5 or 0.5 < r | 0.25 < R2 |
| x | 1 | 3 | 4 | 5 | 7 |
|---|---|---|---|---|---|
| y | 5 | 9 | 7 | 1 | 13 |
| x | y | zx | zy | zxzy |
|---|---|---|---|---|
| 1 | 5 | -1.5 | -0.5 | 0.75 |
| 3 | 9 | -0.5 | 0.5 | -0.25 |
| 4 | 7 | 0.0 | 0.0 | 0.00 |
| 5 | 1 | 0.5 | -1.5 | -0.75 |
| 7 | 13 | 1.5 | 1.5 | 2.25 |
| Ave. of zxzy: 0.40 | ||||
> # Create x and y vectors. > x <- c(1,3,4,5,7) > x [1] 1 3 4 5 7 > y <- c(5,9,7,1,13) [1] 5 9 7 1 13 > # Compute z-score for x: > zx <- (x - 4) / 2 > zx [1] -1.5 -0.5 0.0 0.5 1.5 > zy <- (y - 7) / 4 > zy [1] -0.5 0.5 0.0 -1.5 1.5 > r <- mean(zx * zy) > r [1] 0.4

| x | 1 | 3 | 4 | 5 | 7 |
|---|---|---|---|---|---|
| y | 5 | 9 | 7 | 1 | 13 |
| x | y | zx | zy | zxzy |
|---|---|---|---|---|
| 1 | 5 | -1.34164 | -0.44721 | 0.60 |
| 2 | 9 | -0.44721 | 0.44721 | -0.20 |
| 3 | 7 | 0.0 | 0.0 | 0.00 |
| 4 | 1 | 0.44721 | -1.34164 | -0.60 |
| 5 | 13 | 1.34164 | 1.34164 | 1.80 |
| Ave. of zxzy: 0.32 | ||||
> # Create x and y vectors. > x <- c(1,3,4,5,7) > y <- c(5,9,7,1,13) > zx <- (x - mean(x)) / sd(x) > zy <- (y - mean(y)) / sd(y) > # Compute r by computing sum(zx * zy), then > # multiplying by the correction factor: > n <- length(x) > r <- mean(zx * zy) * (n / (n-1)) > r [1] 0.4