Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
22 8.1 7.37 61.38 0.37 16.01 1.9 12.1 16.5 14.3 16.5 196 88 0.77 24 6.8 6.8 55.68 0.32 25.70 1.25 11.7 15.9 13.8 7.2 189 88 0.82 24 5.76 8 48 0.4 11.10 1.43 9.8 17.2 13.5 7.26 182 74 0.82 24 5.92 7.48 42.24 0.37 15.14 1.84 13.2 19.7 16.45 5.9 189 88 0.72 24 9.14 9.14 68.58 0.42 20.87 1.41 11.7 20.7 16.2 5.65 150 61 1.22 26 6.46 6.8 47.63 0.32 16.93 1.96 10.9 16.3 13.6 5.62 175 88 1.13 27 7 7.5 59.49 0.34 23.28 1.53 9.6 13 11.3 6.61 140 88 1.37 28 7.3 7.37 63.82 0.34 19.62 1.52 14.2 19.3 16.75 7.28 202 67 0.63 28 6.8 8.5 67.6 0.38 16.48 1.77 15.7 21.6 18.65 4.38 170 94 1.77 29 8 8.5 61.47 0.41 22.59 1.16 9.4 15.9 12.65 5.4 162 74 1.72 30 9.35 7.79 81.61 0.35 17.03 1.35 16.1 17.2 16.65 5.34 182 74 0.82 30 9.18 7.82 89.18 0.36 19.30 1.61 14.7 17.6 16.15 6.06 142 94 1.18 30 9.12 9.52 86.27 0.36 12.88 0.87 10.9 13.6 12.25 6.03 220 101 0.81 31 7.48 8.5 69.19 0.41 20.67 1.53 11.5 21.4 16.45 4.29 182 74 1.39 32 7.37 7.37 56.2 0.34 23.72 1.47 8.4 16.3 12.35 6.86 162 81 1.07 32 7.37 7.37 58.65 0.33 25.12 1.78 10.1 16.8 13.45 5.94 142 88 0.89 32 7.93 8 61.86 0.35 23.93 1.61 11.1 14.7 12.9 7.65 182 88 0.75 33 8 7.36 48.38 0.4 15.58 1.61 8 11.5 9.75 8.02 169 88 1.17 33 7 8 56.02 0.36 17.14 1.29 7.9 13 10.35 6.53 223 94 0.87 33 7.7 7.4 63.82 0.34 17.20 1.42 9.2 14.9 12.05 6.93 162 81 0.91 34 9.8 8.17 89.53 0.34 20.80 1.29 13.4 18.2 15.8 6.11 142 88 1.04 34 7 7 64.02 0.3 31.90 2.07 13.8 20.5 17.15 5.57 135 81 1.23 34 8.1 8.1 65.54 0.41 13.92 1.1 13.6 20.3 16.95 6.61 175 88 0.74 34 6.8 7.48 49.19 0.36 16.85 1.75 11.7 15.7 13.7 5.72 135 88 0.82 34 7 7 49.17 0.33 25.20 2.01 10.9 11.7 11.3 11.77 162 94 0.85 34 9.5 8 73.91 0.34 16.12 1.29 10.9 16.8 13.85 6.5 135 74 0.83 34 9 9 78.59 0.4 19.54 1.4 8.8 16.5 12.65 7.98 182 88 1.29 35 7.7 6.8 48.54 0.34 14.36 1.99 10.3 17.8 14.05 8.83 169 88 0.93 35 8 8.84 80.96 0.38 16.53 1.44 9.2 17.4 13.3 7.24 155 61 1.11 35 7 8 52.5 0.35 14.26 0.81 7.3 12.6 9.95 6.37 175 88 1.05 36 7.58 8.96 77.5 0.39 20.36 1.25 10.1 11.7 10.9 9.63 162 74 1.23 36 6.8 8 56.23 0.4 21.22 1.84 11.3 16.5 13.9 7.19 162 94 1.31 36 7.14 7.82 64.44 0.35 23.13 1.95 16.3 21.4 18.85 5.29 135 67 1.16 36 8.61 8.61 71.32 0.4 20.43 1.16 8.8 21.4 15.1 7.55 169 81 2.00 36 8.84 8 59.33 0.41 25.77 1.8 9.4 15.5 12.45 8.59 148 94 1.77 36 8.91 8.55 78.43 0.38 12.82 1.15 10.7 17.8 14.25 6.82 169 67 1.65 38 9.29 7.37 58.83 0.38 21.42 1.07 11.7 13 12.35 6.96 115 74 1.39 39 7.73 7.13 45.22 0.42 12.61 1.12 14.7 15.7 15.2 5.24 108 67 1.62 39 7.93 7.93 62.29 0.35 20.17 1.78 11.7 10.7 11.2 8.42 196 94 1.30 39 6 6 51.21 0.27 19.73 1.34 8.4 12.6 10.5 8.26 121 94 1.26 39 7.93 7.93 62.12 0.34 19.61 0.86 9.4 15.1 12.25 4.54 190 94 1.29 40 8.47 6.9 55.82 0.34 16.67 1.62 13.8 16.1 14.95 5.62 148 81 1.17 40 7.48 8 58.3 0.42 15.30 1.06 16.1 13.4 14.75 5.87 155 88 1.12 40 7 8 65.75 0.36 22.95 1.47 9 15.3 12.15 8.48 182 94 1.34 41 7.37 7.73 58.2 0.39 19.07 1.5 13.8 13.2 13.5 6.36 175 56 1.20 41 7.93 7.93 65.77 0.36 18.30 1.34 10.9 14 12.45 8.59 189 88 0.87 41 9.02 9.35 81.23 0.42 19.42 1.46 11.5 15.5 13.5 6.73 142 61 1.33 41 6 6 47.88 0.27 22.02 1.35 13.2 17.4 15.3 4.84 236 99 0.81 41 8.84 7.14 57.98 0.36 22.23 1.47 9.4 17.8 13.6 6.11 270 81 1.49 41 7.37 8.84 64.41 0.41 27.01 1.34 9.2 15.5 12.35 5.93 160 94 1.35 41 7.5 6.5 54.93 0.3 17.13 1.42 10.7 19.1 14.9 7.18 108 88 1.03 41 7.48 8.55 58.68 0.41 19.60 1.71 9.8 18 13.9 6.97 121 88 0.74 41 8.9 9.31 87.25 0.38 20.90 1.27 9.4 13.8 11.6 9.14 148 99 1.32 42 8 8 89.82 0.37 24.76 1.53 9.4 17.8 13.6 6.21 182 88 1.38 42 7.93 6.74 49.49 0.34 15.37 1.55 8 10.3 9.15 7.48 115 94 1.15 42 8.47 8 64.98 0.38 26.62 1.54 10.7 15.3 13 7.23 148 81 1.39 42 7.2 7.6 72.56 0.32 23.40 1.39 11.5 14.9 13.2 14.9 155 81 1.54 43 6.69 6.12 40.03 0.33 17.95 1.25 9.6 10.9 10.25 9.53 182 67 1.55 43 8 7 66.79 0.29 23.29 0.95 8.2 13.2 10.7 8.54 135 81 1.44 44 6.23 8.1 61.22 0.38 14.42 1.23 12.6 15.1 13.85 4.88 135 74 0.77 24 7.14 7.46 57.8 0.32 12.91 1.25 10.9 22 16.45 6.02 162 74 0.70 26 8.47 8.84 69.86 0.36 23.42 1.7 11.7 18 14.85 5.8 170 61 0.81 27 6.63 6.8 47.99 0.33 13.52 1.3 9 19.3 14.15 5.79 155 74 1.10 27 10.3 9 69.86 0.41 24.22 1.67 11.3 16.1 13.7 7.14 169 74 1.55 28 8.5 6.8 73.75 0.28 16.39 1.28 10.3 19.3 14.8 5.26 155 81 1.09 28 8.84 9 70.3 0.4 18.19 1.27 8 14.5 11.25 6.2 180 81 1.39 28 7.22 9.63 55.26 0.42 14.58 0.91 9 13 11 4.71 182 88 0.78 29 7.93 7.93 53.08 0.38 18.22 1.29 8.4 13.2 10.8 7.89 155 88 1.14 30 7.93 8.73 74.66 0.35 21.05 1.52 10.9 19.3 15.1 5.69 170 94 1.15 31 7.54 8.3 65.48 0.35 28.27 1.47 7.3 15.9 11.6 6.22 155 88 1.81 32 8 8.73 69.69 0.38 16.60 1.56 11.9 15.5 13.7 6.18 142 74 0.84 32 7.37 8 52.44 0.36 17.67 1.68 9 13.2 11.1 7.5 155 81 0.66 32 8.3 9.9 73.51 0.42 18.71 1.85 8.4 13.6 11 7.67 189 88 0.70 33 7.93 8.22 72.62 0.4 21.63 1.8 12.6 13.4 13 5.62 148 67 0.64 33 10 9.5 78.27 0.41 18.33 1.4 10.9 18.4 14.65 5.02 182 101 1.22 33 9.12 9.5 75.42 0.42 18.05 1.83 5.4 8.6 7 6.13 170 115 1.39 33 8.44 9.2 86.99 0.36 21.28 1.54 10.3 16.3 13.3 6.33 135 94 1.57 34 7.93 9.5 74.31 0.42 23.94 1.82 11.1 15.3 13.2 6.35 162 81 0.95 34 7.79 8 64.63 0.38 15.14 1.14 10.5 12.4 11.45 8.17 140 81 0.81 34 7.73 9.58 55.22 0.45 21.78 1.51 8 17.8 12.9 6.02 121 81 1.25 34 8 9.69 85.9 0.37 27.44 1.69 11.7 18.2 14.95 6.39 148 88 1.18 35 8.55 8.5 79.24 0.34 20.58 1.6 12.1 18.6 15.35 5.22 170 94 2.14 35 7.17 7.48 67.61 0.31 23.00 1.55 14 18.4 16.2 4.06 169 67 0.79 35 8.1 7.7 51.07 0.37 20.61 1.47 10.7 20.3 15.5 5.54 169 67 1.13 35 7.93 8.73 57.02 0.38 15.30 0.92 8.8 10.4 9.6 6.67 101 88 0.74 36 7.93 7.93 58.01 0.35 15.30 1.26 6.3 13.2 9.75 8.36 180 74 0.78 37 7.79 7.79 69.43 0.32 20.31 1.3 10.9 17.4 15.15 5 162 81 0.58 37 9.5 10 80.32 0.43 30.39 0.71 8.8 12.8 10.8 5.31 155 88 0.94 37 10 8 61.41 0.36 14.65 1.04 15.9 13.2 14.55 4.91 148 81 1.08 38 9.15 8.82 96.76 0.35 14.09 1.17 10.9 17 13.95 5.79 140 99 1.05 38 8.5 8.5 86.05 0.33 31.01 1.21 8.8 18.2 13.5 6.04 148 128 1.22 38 7.93 7.93 78.71 0.29 22.82 1.73 14.2 18.4 16.3 5.83 175 108 0.68 39 9 9 94.8 0.37 16.19 1.49 11.5 15.5 13.5 6.05 175 94 1.21 39 8.59 8.59 63.07 0.4 12.99 1.22 11.5 17 14.25 6.62 155 74 1.10 39 8.5 8.5 63.26 0.37 25.42 1.55 11.7 16.1 13.9 6.67 182 94 0.75 39 7.82 8.5 58.01 0.41 21.30 1.49 9.4 14.7 12.05 8.13 175 88 0.89 40 9.63 7.71 74.24 0.33 21.95 1.33 9.6 14 11.8 7.65 200 88 1.33 40 7.6 8 67.92 0.31 30.39 1.77 10.3 19.3 14.8 5.86 142 94 1.15 40 8.46 9.56 86.27 0.36 12.88 0.87 10.9 13.6 12.25 6.03 155 101 1.41 40 9.8 9.34 78.24 0.39 23.66 1.4 8.4 13 10.7 6.88 148 94 1.35 41 10.7 9.52 85.6 0.41 20.19 1.54 11.7 13 12.35 6.42 160 67 1.77 41 9.63 8.19 56.06 0.4 20.52 1.48 9.8 14.3 11.9 6.93 236 94 1.22 41 7.93 8 62.89 0.35 17.76 1.38 8.8 13.2 11 6.39 148 88 1.22 41 8.89 8.52 69.81 0.39 11.22 1.11 8.6 9.8 9.2 5.64 155 98 1.25 41 7 8 53.39 0.37 21.30 1.18 10.3 14.7 12.5 6.1 150 74 1.46 41 9.63 10 69.6 0.4 20.73 1.17 9 13 11 6.44 196 81 1.20 42 10.3 9.92 93.4 0.39 30.75 1.17 8.8 14.9 11.85 5.7 155 108 1.47 42 9.21 9 62.79 0.43 15.64 0.88 7.3 9.8 8.55 7.34 182 88 1.13 42 9.68 9.28 85 0.37 20.48 0.82 8 10.3 9.15 7.04 142 61 1.74 42 9.21 9.2 71.31 0.41 21.45 1.56 7.3 10.7 9 9 140 88 1.09 42 7.89 9.77 77.27 0.42 19.87 1.23 7.3 12.6 9.95 5.77 142 81 1.24 42 10.2 7.22 81.61 0.27 22.05 1.1 9 12.8 10.9 8.71 159 88 1.15 42 8.5 8.5 56.98 0.38 28.92 1.77 9.8 17.4 13.6 7.72 142 94 1.21 43 9.92 9.52 86.72 0.38 26.22 1.23 9.2 12.8 11 7.07 115 67 1.29 43 9.68 8.47 62.22 0.4 15.00 1.23 10.9 11.7 11.3 8.48 155 81 1.38 43 7 9 58.13 0.42 21.12 0.83 7.75 14.4 11.08 5.66 101 81 1.52 43 9.63 8.67 74.36 0.33 24.33 1.24 8.4 10.26 9.33 6.86 175 108 1.30 43 8.92 9.77 68.74 0.42 26.25 1.17 8.8 13 10.9 7.6 155 88 1.41 43 8.63 9.01 62.67 0.42 16.14 1.21 9.6 12.4 11 6.26 160 99 1.15 44 7.37 8.47 70.2 0.36 14.94 0.76 10.9 12.1 11.5 4.28 182 94 1.59 44 9.76 9.01 77.74 0.38 17.82 1.18 9.6 17.4 13.5 6.25 175 74 0.89 44 7.82 8 67.86 0.36 21.74 0.87 10.3 14.2 12.25 5.04 196 74 1.32 44 11.1 10.7 97.39 0.39 24.54 1.2 10.5 15.3 12.9 6.35 130 88 1.32 44 9.52 8.33 79.08 0.34 22.04 1.43 11.1 13.6 12.35 7.85 196 81 0.97 45 8.84 8.67 76.02 0.38 17.89 0.8 10.9 10.9 10.9 6.79 189 81 1.42 45 9.95 9.16 70.79 0.48 28.01 1.34 10.9 16.3 13.6 6.92 162 94 1.40 46 8.79 8.79 87.91 0.38 22.56 1.39 11.7 14.2 12.95 7.61 135 88 1.44 46 7.37 9.21 66.2 0.42 25.07 1.28 10.7 15.7 13.2 5.18 128 81 0.82 46 8.84 9.18 80.23 0.42 16.61 1.55 8.6 10.1 9.35 9.17 150 94 1.09 46 7 7.37 65.25 0.33 20.6 1.08 12.8 11.1 11.95 7.59 135 74 0.84 46 8 9 82.49 0.36 19.79 1.08 13.2 12.6 12.9 6.51 155 74 1.35 46 9.58 7.37 58.61 0.39 17.25 1.16 10.1 10.9 10.5 8.53 148 94 1.18 46 8.84 7 61.25 0.32 15.49 0.82 9.8 10.9 10.35 7.85 196 74 1.35 47 7.82 6.46 68.46 0.29 16.93 1.1 8.8 11.7 10.25 9.26 150 61 1.29 47 5.92 6.23 48.69 0.29 16.82 1.4 12.1 13.4 12.75 7.05 128 94 1.14 47 8.47 9 88.31 0.37 17.38 1.23 8 15.1 11.55 7.28 180 101 1.26 47 9.21 9.21 63.3 0.41 17.7 1.04 10.1 10.5 10.3 8.75 170 67 1.52 47 8.84 9.58 79.86 0.46 22.08 0.84 8 10.3 9.15 8.14 180 81 1.31 48 8.16 6.46 55.01 0.33 20.6 1.28 9.4 11.94 10.66 7.7 135 94 1.36 48 7.33 8.38 72.74 0.39 19.41 1.19 8.4 14.2 11.3 8.77 162 94 1.24 48 9.5 9.52 91.22 0.42 15.42 1.22 6.5 13.4 9.95 6.97 142 88 1.41 48 7.37 7.37 46.99 0.38 16.87 0.84 8.2 10.1 9.15 8.47 190 94 1.34 49 8.47 10.3 118.33 0.4 15.87 0.55 8 13.2 10.6 4.98 236 94 1.45 49 8.44 9.14 70.06 0.41 19.54 1.1 11.4 14.2 12.85 6.37 142 94 1.14 49 9.58 9.58 74.59 0.48 17.69 0.59 7.1 9.2 8.15 5.78 135 88 1.67 49 8.4 8 67.7 0.36 24.28 1.21 8.8 14 11 8.47 140 94 1.36 50 7.93 8 60.11 0.39 22.34 1.14 8.6 12.8 10.7 5.94 142 91 1.33 50 6.8 6.8 55.84 0.31 19.55 1.27 13.2 13 13.1 4.74 160 67 1.20 50 9 9 68.61 0.42 19.23 1.56 8.8 14.7 11.75 8.3 148 88 1.29 50 7.19 8.21 68.75 0.36 20.43 1.17 11.5 17 14.25 6.76 108 67 1.42 51 7 7.5 52.79 0.38 20.34 1.38 8.8 12.6 10.7 9.16 169 94 1.58 51 10.5 8.29 69.34 0.4 20.91 1.32 9.4 10.9 10.15 5.96 175 81 1.31 51 6.35 7.54 60.12 0.32 24.18 1.26 9.2 11.9 10.55 7.59 202 81 1.28 52 7.46 9.82 72.45 0.42 21.62 1.16 8.6 15.3 11.95 7.39 155 67 1.00 52 8.1 8 56.92 0.4 21.46 1.21 9.4 13 11.2 7.46 155 94 1.15 53 7.65 8 62.37 0.36 15.35 0.81 6.3 5.2 5.75 10.49 196 81 0.82 54 6.8 8.16 58.17 0.4 19.94 1.14 8.8 10.5 9.65 7.81 189 88 0.67 55 8.1 7.48 60.97 0.37 22.67 1.29 8 13.4 10.7 7.35 196 94 1.46 56 9 8 76.9 0.35 18.73 0.62 5.7 8.8 7.25 6.33 216 81 1.06 56 10.4 10 88.18 0.45 12.24 0.55 8 8 8 6.6 111 110 1.72 57 7.37 8.47 93.86 0.35 16.2 1.23 11.1 14 12.55 6.02 169 94 1.63 57 8.49 7.48 66.06 0.34 19.61 1.26 8.4 12.8 10.6 6.79 148 94 1.43 57 7.21 6.9 57.61 0.34 23.52 1.15 8.4 10.1 9.25 9.3 148 88 1.48 58 7.08 8.85 65.65 0.42 22.76 1.12 9.4 15.3 12.25 6.98 128 81 1.44 58 8.55 8.55 84.14 0.37 19.09 0.9 8.8 14.3 11.4 6.74 135 94 1.31 58 10.7 7.37 67.68 0.35 18.92 0.73 6.9 9.8 8.35 6.85 155 74 1.38 60 9.5 9.5 88.68 0.41 18.44 1.03 7.5 7.7 7.6 10.84 196 81 1.30 61 7.95 8 66.81 0.4 19.1 0.65 7.7 9.4 8.55 7.52 155 88 1.70 61 8.59 8.59 74.06 0.38 19.21 1.46 8.8 11.7 10.25 6.06 162 74 1.20 62 6.8 8.5 57.18 0.4 17.32 0.94 6.7 12.4 9.55 6.87 182 81 1.34 63 11.8 7.37 80.61 0.37 18.27 0.74 7.1 8.6 7.85 9.72 216 110 1.55 64 7.93 7.93 73.17 0.34 21.9 0.65 6.7 7.7 7.2 8.56 189 101 1.19 68 10 8 99.21 0.32 17.11 0.82 5.9 8 6.95 11.05 142 94 1.27 76 7.93 8 78.23 0.36 17.64 0.61 5.7 4.6 5.15 10.83 229 101 1.65 77 9 8.42 63.81 0.42 13.53 0.64 6.7 6.5 6.6 4.84 220 121 1.25 45 7.93 9 61.97 0.47 19.36 0.24 6.3 13.2 9.75 6.33 148 88 1.58 46 9.13 9.51 74.24 0.41 19.15 1.22 10.1 11.5 10.8 8.08 169 81 1.54 46 11 9.52 80.75 0.42 31.4 0.67 10.3 11.9 11.1 4.43 169 101 1.77 46 8 9.4 95.28 0.34 29.93 1.15 9.2 11.7 10.45 7.24 196 130 1.45 46 10.8 10.3 97.36 0.39 19.65 1.53 8.6 15.3 11.95 15.3 160 88 1.10 47 11.3 9.07 72.23 0.41 19 1.36 6.5 9.8 8.15 10.29 216 88 0.66 47 9.21 7.37 58.47 0.44 14.21 0.88 8.6 14.4 11.5 4.64 189 94 1.52 47 7.54 8.5 56.86 0.38 16.49 1.3 8.8 10.9 9.85 6.35 142 88 1.21 48 9 10.7 99.65 0.43 34.09 1.11 7.75 8 7.88 12 155 81 1.96 48 8.5 9.35 80.62 0.38 31.7 1.48 8 13.4 10.7 7.12 185 88 1.42 48 8.5 8.5 76.34 0.34 19.36 1.1 7.96 10.1 9.03 8.74 169 111 1.29 49 9.94 7.37 84.85 0.3 22.46 1.35 10.1 13.6 11.85 5.61 223 98 1.23 50 8.5 6.46 53.64 0.32 18.23 0.79 7.7 10.9 9.3 6.86 216 101 1.17 50 8 8 50.95 0.41 26.73 1.59 8.8 13.4 11.1 8.45 150 101 0.81 51 7.93 7.54 65.22 0.31 23.79 0.96 8.8 11.5 10.15 7.16 175 94 1.54 51 8.92 9 72.38 0.37 20 0.84 8.4 10.5 9.45 5.69 189 81 1.46 52 8.5 8.07 73.22 0.34 18.39 1.38 8 10.9 9.45 10.69 196 88 0.96 53 8.9 7.31 66.42 0.35 21.85 1.09 8.38 10.1 9.24 8.15 108 94 1.47 53 8.57 8.57 66.66 0.37 19.44 1.53 12.1 12.1 12.1 7.82 169 81 1.26 53 10 10.4 84.78 0.42 14.35 0.67 6.1 6.9 6.5 7.69 180 94 1.15 55 7.14 7.93 70.68 0.33 29.56 0.92 9.2 13.4 11.3 7.4 135 81 1.19 55 10.3 9.92 108.25 0.38 21.81 0.83 8.2 10.9 9.55 6.91 200 94 0.83 57 8.73 7.93 56.41 0.4 19.07 0.68 6.5 8.4 7.45 7.2 162 94 1.36 57 11.5 10.7 89.53 0.47 22.8 0.71 5.9 8.5 7.2 6.53 175 101 1.82 57 6.8 7.34 71.46 0.28 25.29 1.19 8.2 12.4 10.3 6.25 160 88 1.06 58 6.45 7.09 44.67 0.36 18.48 0.71 13 11.5 12.25 5.41 135 81 1.41 58 9.77 8.5 85.2 0.34 21.92 0.78 7.1 9.4 8.25 6.19 162 94 1.31 58 10 6.8 55.58 0.31 15.28 1.15 9.2 11.5 10.35 7.74 223 74 1.20 59 9 9 82.11 0.37 18.72 0.81 7.5 9.8 8.65 8.22 209 81 0.93 60 9.15 9.63 78.16 0.4 21.07 1.13 8.8 17 12.9 6.22 250 70 1.20 61 10 9.37 79.3 0.42 18.98 0.93 8.8 12.6 10.7 6.24 128 108 1.31 65 9.75 9.75 82.36 0.43 16.72 0.94 10.3 11.9 11.1 5.46 170 74 1.56 68 10.2 10 94.15 0.43 16.9 0.69 6.1 9.4 7.75 8.03 148 81 1.70
Names of X columns:
Age Septum PW LVMI RWT LAVI EAratio Septe Late Avee Ee DT IVRT SDratio
Type of Correlation
kendall
pearson
spearman
kendall
Chart options
Title:
R Code
panel.tau <- function(x, y, digits=2, prefix='', cex.cor) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(0, 1, 0, 1)) rr <- cor.test(x, y, method=par1) r <- round(rr$p.value,2) txt <- format(c(r, 0.123456789), digits=digits)[1] txt <- paste(prefix, txt, sep='') if(missing(cex.cor)) cex <- 0.5/strwidth(txt) text(0.5, 0.5, txt, cex = cex) } panel.hist <- function(x, ...) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(usr[1:2], 0, 1.5) ) h <- hist(x, plot = FALSE) breaks <- h$breaks; nB <- length(breaks) y <- h$counts; y <- y/max(y) rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...) } bitmap(file='test1.png') pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main) dev.off() load(file='createtable') n <- length(y[,1]) n a<-table.start() a<-table.row.start(a) a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,' ',header=TRUE) for (i in 1:n) { a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) } a<-table.row.end(a) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) for (j in 1:n) { r <- cor.test(y[i,],y[j,],method=par1) a<-table.element(a,round(r$estimate,3)) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') ncorrs <- (n*n -n)/2 mycorrs <- array(0, dim=c(10,3)) a<-table.start() a<-table.row.start(a) a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'pair',1,TRUE) a<-table.element(a,'Pearson r',1,TRUE) a<-table.element(a,'Spearman rho',1,TRUE) a<-table.element(a,'Kendall tau',1,TRUE) a<-table.row.end(a) cor.test(y[1,],y[2,],method=par1) for (i in 1:(n-1)) { for (j in (i+1):n) { a<-table.row.start(a) dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='') a<-table.element(a,dum,header=TRUE) rp <- cor.test(y[i,],y[j,],method='pearson') a<-table.element(a,round(rp$estimate,4)) rs <- cor.test(y[i,],y[j,],method='spearman') a<-table.element(a,round(rs$estimate,4)) rk <- cor.test(y[i,],y[j,],method='kendall') a<-table.element(a,round(rk$estimate,4)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value',header=T) a<-table.element(a,paste('(',round(rp$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rs$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rk$p.value,4),')',sep='')) a<-table.row.end(a) for (iii in 1:10) { iiid100 <- iii / 100 if (rp$p.value < iiid100) mycorrs[iii, 1] = mycorrs[iii, 1] + 1 if (rs$p.value < iiid100) mycorrs[iii, 2] = mycorrs[iii, 2] + 1 if (rk$p.value < iiid100) mycorrs[iii, 3] = mycorrs[iii, 3] + 1 } } } a<-table.end(a) table.save(a,file='mytable1.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Meta Analysis of Correlation Tests',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Number of significant by total number of Correlations',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Type I error',1,TRUE) a<-table.element(a,'Pearson r',1,TRUE) a<-table.element(a,'Spearman rho',1,TRUE) a<-table.element(a,'Kendall tau',1,TRUE) a<-table.row.end(a) for (iii in 1:10) { iiid100 <- iii / 100 a<-table.row.start(a) a<-table.element(a,round(iiid100,2),header=T) a<-table.element(a,round(mycorrs[iii,1]/ncorrs,2)) a<-table.element(a,round(mycorrs[iii,2]/ncorrs,2)) a<-table.element(a,round(mycorrs[iii,3]/ncorrs,2)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable2.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation