FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_One Factor ANOVA.wasp
Title produced by softwareOne-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)
Date of computationWed, 10 Dec 2014 11:21:42 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/10/t1418210539ennkmbkptaz2hvd.htm/, Retrieved Wed, 29 May 2024 02:31:53 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264926, Retrieved Wed, 29 May 2024 02:31:53 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact56

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [One-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)] [paper] [2014-12-10 11:21:42] [e4bec374a19c70fe4499af2adad38eb7] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2011 0 0 9 5 2 0 1 149 96 18 68 12.9
2011 0 1 8 5 1 1 2 139 70 31 39 12.2
2011 0 0 8 4 2 0 2 148 88 39 32 12.8
2011 0 1 8 5 0 0 0 158 114 46 62 7.4
2011 0 1 8 7 0 2 2 128 69 31 33 6.7
2011 0 1 7 3 0 1 1 224 176 67 52 12.6
2011 0 0 8 4 2 1 0 159 114 35 62 14.8
2011 0 1 9 4 2 2 2 105 121 52 77 13.3
2011 0 1 8 7 0 1 0 159 110 77 76 11.1
2011 0 1 7 6 2 1 1 167 158 37 41 8.2
2011 0 1 9 6 3 0 1 165 116 32 48 11.4
2011 0 1 7 2 0 1 1 159 181 36 63 6.4
2011 0 1 8 4 0 1 1 119 77 38 30 10.6
2011 0 0 8 4 2 0 2 176 141 69 78 12
2011 0 0 8 5 1 0 0 54 35 21 19 6.3
2011 1 0 8 3 2 0 1 91 80 26 31 11.3
2011 0 1 8 4 1 1 1 163 152 54 66 11.9
2011 0 0 6 7 1 1 2 124 97 36 35 9.3
2011 1 1 9 5 1 0 2 137 99 42 42 9.6
2011 0 0 7 2 0 0 2 121 84 23 45 10
2011 0 1 7 3 2 0 1 153 68 34 21 6.4
2011 0 1 8 6 1 0 2 148 101 112 25 13.8
2011 0 0 7 6 1 0 2 221 107 35 44 10.8
2011 0 1 8 2 1 0 2 188 88 47 69 13.8
2011 0 1 8 7 2 2 0 149 112 47 54 11.7
2011 0 1 3 2 0 0 0 244 171 37 74 10.9
2011 1 1 9 10 1 2 2 148 137 109 80 16.1
2011 1 0 8 4 2 0 1 92 77 24 42 13.4
2011 0 1 8 4 3 0 2 150 66 20 61 9.9
2011 0 0 6 2 2 0 1 153 93 22 41 11.5
2011 0 0 5 4 1 0 2 94 105 23 46 8.3
2011 0 0 8 4 0 1 2 156 131 32 39 11.7
2011 0 1 8 7 2 1 1 132 102 30 34 9
2011 0 1 9 2 2 0 1 161 161 92 51 9.7
2011 0 1 7 6 3 0 1 105 120 43 42 10.8
2011 0 1 7 3 3 1 1 97 127 55 31 10.3
2011 0 0 3 3 1 0 0 151 77 16 39 10.4
2011 1 1 7 2 0 1 0 131 108 49 20 12.7
2011 0 1 8 5 2 1 1 166 85 71 49 9.3
2011 0 0 8 7 2 1 2 157 168 43 53 11.8
2011 0 1 7 6 2 1 1 111 48 29 31 5.9
2011 0 1 8 4 2 1 2 145 152 56 39 11.4
2011 0 1 8 6 1 1 2 162 75 46 54 13
2011 0 1 9 4 3 0 2 163 107 19 49 10.8
2011 1 1 6 3 2 0 2 59 62 23 34 12.3
2011 0 0 9 5 2 1 1 187 121 59 46 11.3
2011 0 1 8 2 0 0 2 109 124 30 55 11.8
2011 1 1 8 3 0 1 2 90 72 61 42 7.9
2011 0 0 8 5 0 0 2 105 40 7 50 12.7
2011 1 1 7 7 3 1 2 83 58 38 13 12.3
2011 1 1 8 4 2 2 1 116 97 32 37 11.6
2011 1 1 7 3 0 0 1 42 88 16 25 6.7
2011 0 1 7 2 2 2 2 148 126 19 30 10.9
2011 1 1 9 5 0 0 1 155 104 22 28 12.1
2011 0 1 7 4 0 1 0 125 148 48 45 13.3
2011 0 1 9 6 2 2 2 116 146 23 35 10.1
2011 1 0 7 4 3 0 2 128 80 26 28 5.7
2011 0 1 6 4 0 0 1 138 97 33 41 14.3
2011 1 0 3 2 1 0 0 49 25 9 6 8
2011 1 1 9 9 2 1 2 96 99 24 45 13.3
2011 0 1 9 8 2 2 1 164 118 34 73 9.3
2011 0 0 7 8 0 1 2 162 58 48 17 12.5
2011 0 0 6 3 3 1 2 99 63 18 40 7.6
2011 0 1 9 2 2 0 1 202 139 43 64 15.9
2011 0 0 8 4 0 1 2 186 50 33 37 9.2
2011 1 1 8 2 3 0 2 66 60 28 25 9.1
2011 0 0 7 2 2 1 2 183 152 71 65 11.1
2011 0 1 9 1 2 0 2 214 142 26 100 13
2011 0 1 5 4 3 1 0 188 94 67 28 14.5
2011 1 0 6 5 0 1 1 104 66 34 35 12.2
2011 0 0 8 8 1 1 2 177 127 80 56 12.3
2011 0 0 8 4 2 0 1 126 67 29 29 11.4
2011 1 0 8 6 1 1 1 76 90 16 43 8.8
2011 1 1 8 5 2 1 2 99 75 59 59 14.6
2011 0 0 7 3 0 0 0 139 128 32 50 12.6
2011 0 0 9 4 0 1 0 162 146 43 59 13
2011 1 1 9 6 2 1 1 108 69 38 27 12.6
2011 0 0 8 4 1 0 1 159 186 29 61 13.2
2011 1 0 4 3 0 0 0 74 81 36 28 9.9
2011 0 1 7 8 0 2 2 110 85 32 51 7.7
2011 1 0 8 6 1 2 2 96 54 35 35 10.5
2011 1 0 6 3 0 0 0 116 46 21 29 13.4
2011 1 0 7 5 2 1 2 87 106 29 48 10.9
2011 1 1 7 4 1 0 2 97 34 12 25 4.3
2011 1 0 3 3 2 0 0 127 60 37 44 10.3
2011 1 1 8 7 1 0 1 106 95 37 64 11.8
2011 1 1 8 2 1 1 1 80 57 47 32 11.2
2011 1 0 8 4 3 0 2 74 62 51 20 11.4
2011 1 0 8 6 2 1 1 91 36 32 28 8.6
2011 1 0 5 6 0 0 2 133 56 21 34 13.2
2011 1 1 6 6 2 1 1 74 54 13 31 12.6
2011 1 1 6 4 1 1 2 114 64 14 26 5.6
2011 1 1 7 6 0 0 2 140 76 -2 58 9.9
2011 1 0 7 5 1 1 2 95 98 20 23 8.8
2011 1 1 7 5 0 0 2 98 88 24 21 7.7
2011 1 0 8 6 0 0 2 121 35 11 21 9
2011 1 1 9 8 1 1 2 126 102 23 33 7.3
2011 1 1 8 5 2 2 1 98 61 24 16 11.4
2011 1 1 8 6 2 1 2 95 80 14 20 13.6
2011 1 1 7 4 2 1 2 110 49 52 37 7.9
2011 1 1 9 3 2 1 2 70 78 15 35 10.7
2011 1 0 7 3 3 0 1 102 90 23 33 10.3
2011 1 1 6 2 0 0 0 86 45 19 27 8.3
2011 1 1 7 4 0 0 1 130 55 35 41 9.6
2011 1 1 8 5 0 0 1 96 96 24 40 14.2
2011 1 0 6 3 0 1 0 102 43 39 35 8.5
2011 1 0 2 4 0 1 0 100 52 29 28 13.5
2011 1 0 4 5 3 0 0 94 60 13 32 4.9
2011 1 0 8 3 2 0 2 52 54 8 22 6.4
2011 1 0 6 5 0 0 1 98 51 18 44 9.6
2011 1 0 8 4 2 0 1 118 51 24 27 11.6
2011 1 1 6 4 2 0 2 99 38 19 17 11.1
2012 0 1 7 6 0 2 2 48 41 23 12 4.35
2012 0 1 7 3 2 2 2 50 146 16 45 12.7
2012 0 1 7 4 1 2 1 150 182 33 37 18.1
2012 0 1 9 3 3 2 2 154 192 32 37 17.85
2012 1 0 7 10 3 2 2 109 263 37 108 16.6
2012 1 1 6 4 0 0 1 68 35 14 10 12.6
2012 0 1 8 8 3 1 2 194 439 52 68 17.1
2012 0 0 8 3 2 2 2 158 214 75 72 19.1
2012 0 1 9 5 2 0 2 159 341 72 143 16.1
2012 0 0 7 4 0 0 1 67 58 15 9 13.35
2012 0 0 6 3 2 0 2 147 292 29 55 18.4
2012 0 1 8 5 3 0 2 39 85 13 17 14.7
2012 0 1 6 3 2 0 2 100 200 40 37 10.6
2012 0 1 6 3 0 0 2 111 158 19 27 12.6
2012 0 1 9 4 0 0 2 138 199 24 37 16.2
2012 0 1 6 3 0 0 1 101 297 121 58 13.6
2012 1 1 9 6 1 1 1 131 227 93 66 18.9
2012 0 1 8 6 2 2 2 101 108 36 21 14.1
2012 0 1 8 4 3 2 2 114 86 23 19 14.5
2012 0 0 9 4 0 0 0 165 302 85 78 16.15
2012 0 1 6 4 2 0 1 114 148 41 35 14.75
2012 0 1 4 3 2 1 2 111 178 46 48 14.8
2012 0 1 8 2 1 2 0 75 120 18 27 12.45
2012 0 1 5 5 2 0 2 82 207 35 43 12.65
2012 0 1 7 4 2 2 2 121 157 17 30 17.35
2012 0 1 9 4 2 0 0 32 128 4 25 8.6
2012 0 0 9 4 2 0 2 150 296 28 69 18.4
2012 0 1 8 3 2 1 1 117 323 44 72 16.1
2012 1 1 6 4 2 2 1 71 79 10 23 11.6
2012 0 1 8 2 1 1 2 165 70 38 13 17.75
2012 0 1 3 0 0 0 0 154 146 57 61 15.25
2012 0 1 8 4 2 1 2 126 246 23 43 17.65
2012 0 0 7 6 0 2 2 149 196 36 51 16.35
2012 0 0 9 4 2 0 1 145 199 22 67 17.65
2012 0 1 4 4 0 0 1 120 127 40 36 13.6
2012 0 0 6 4 0 1 0 109 153 31 44 14.35
2012 0 0 3 2 0 1 0 132 299 11 45 14.75
2012 0 1 8 4 3 2 2 172 228 38 34 18.25
2012 0 0 8 3 0 0 1 169 190 24 36 9.9
2012 0 1 9 6 2 2 0 114 180 37 72 16
2012 0 1 8 6 3 0 2 156 212 37 39 18.25
2012 0 0 8 4 0 0 2 172 269 22 43 16.85
2012 1 1 9 5 2 2 1 68 130 15 25 14.6
2012 1 1 8 4 0 1 2 89 179 2 56 13.85
2012 0 1 9 6 3 2 2 167 243 43 80 18.95
2012 0 0 7 6 2 1 2 113 190 31 40 15.6
2012 1 0 7 9 2 1 2 115 299 29 73 14.85
2012 1 0 6 4 2 1 0 78 121 45 34 11.75
2012 1 0 8 8 3 1 2 118 137 25 72 18.45
2012 1 1 6 5 3 0 2 87 305 4 42 15.9
2012 0 0 7 4 3 0 0 173 157 31 61 17.1
2012 0 1 8 4 2 2 1 2 96 -4 23 16.1
2012 1 0 8 7 3 2 1 162 183 66 74 19.9
2012 1 1 7 4 1 2 2 49 52 61 16 10.95
2012 1 0 9 8 2 1 2 122 238 32 66 18.45
2012 1 1 9 4 3 2 1 96 40 31 9 15.1
2012 1 0 9 3 2 0 1 100 226 39 41 15
2012 1 0 6 5 2 1 2 82 190 19 57 11.35
2012 1 1 8 8 2 2 2 100 214 31 48 15.95
2012 1 0 9 4 1 0 1 115 145 36 51 18.1
2012 1 1 9 10 3 1 0 141 119 42 53 14.6
2012 0 1 8 5 2 2 2 165 222 21 29 15.4
2012 0 1 8 5 2 2 2 165 222 21 29 15.4
2012 1 1 8 3 1 0 2 110 159 25 55 17.6
2012 0 1 8 3 1 1 2 118 165 32 54 13.35
2012 0 0 8 3 0 0 2 158 249 26 43 19.1
2012 1 1 9 4 1 1 1 146 125 28 51 15.35
2012 0 0 6 5 1 0 2 49 122 32 20 7.6
2012 1 0 9 5 2 1 2 90 186 41 79 13.4
2012 1 0 8 4 0 0 0 121 148 29 39 13.9
2012 0 1 8 7 3 1 0 155 274 33 61 19.1
2012 1 0 8 5 1 0 1 104 172 17 55 15.25
2012 1 1 8 4 1 2 0 147 84 13 30 12.9
2012 1 0 9 7 3 0 2 110 168 32 55 16.1
2012 1 0 9 7 3 0 2 108 102 30 22 17.35
2012 1 0 9 7 3 0 2 113 106 34 37 13.15
2012 1 0 8 7 3 0 2 115 2 59 2 12.15
2012 1 1 8 7 0 0 0 61 139 13 38 12.6
2012 1 1 8 7 2 1 2 60 95 23 27 10.35
2012 1 1 3 1 1 1 0 109 130 10 56 15.4
2012 1 1 6 2 2 1 2 68 72 5 25 9.6
2012 1 0 5 3 1 0 2 111 141 31 39 18.2
2012 1 0 4 6 1 0 1 77 113 19 33 13.6
2012 1 1 9 8 3 2 2 73 206 32 43 14.85
2012 0 0 8 8 1 1 1 151 268 30 57 14.75
2012 1 0 3 0 0 0 0 89 175 25 43 14.1
2012 1 0 6 3 1 0 2 78 77 48 23 14.9
2012 1 0 6 6 1 1 2 110 125 35 44 16.25
2012 0 1 9 5 2 0 2 220 255 67 54 19.25
2012 1 1 7 7 1 0 1 65 111 15 28 13.6
2012 0 0 6 3 0 1 2 141 132 22 36 13.6
2012 1 0 9 3 2 0 0 117 211 18 39 15.65
2012 0 1 7 4 2 0 1 122 92 33 16 12.75
2012 1 0 8 4 3 0 2 63 76 46 23 14.6
2012 0 1 8 1 0 0 2 44 171 24 40 9.85
2012 1 1 8 5 2 0 2 52 83 14 24 12.65
2012 1 0 0 0 0 0 0 131 266 12 78 19.2
2012 1 1 6 4 1 1 0 101 186 38 57 16.6
2012 1 1 9 6 2 2 1 42 50 12 37 11.2
2012 0 1 9 4 1 1 2 152 117 28 27 15.25
2012 0 0 6 1 0 1 2 107 219 41 61 11.9
2012 1 0 8 3 0 0 2 77 246 12 27 13.2
2012 0 0 8 7 2 0 2 154 279 31 69 16.35
2012 0 1 5 3 0 0 2 103 148 33 34 12.4
2012 1 1 6 5 1 1 0 96 137 34 44 15.85
2012 0 1 9 3 2 2 2 175 181 21 34 18.15
2012 1 1 9 6 2 1 2 57 98 20 39 11.15
2012 1 0 9 9 3 0 2 112 226 44 51 15.65
2012 0 0 6 4 0 1 2 143 234 52 34 17.75
2012 1 0 4 3 0 1 1 49 138 7 31 7.65
2012 0 1 8 9 2 2 2 110 85 29 13 12.35
2012 0 1 4 5 0 1 0 131 66 11 12 15.6
2012 0 0 5 3 3 1 1 167 236 26 51 19.3
2012 1 0 8 6 2 0 1 56 106 24 24 15.2
2012 0 0 6 2 1 0 1 137 135 7 19 17.1
2012 1 1 8 4 3 1 2 86 122 60 30 15.6
2012 0 1 9 5 2 1 1 121 218 13 81 18.4
2012 0 0 7 4 2 0 1 149 199 20 42 19.05
2012 0 0 4 0 0 0 0 168 112 52 22 18.55
2012 0 0 8 2 1 1 2 140 278 28 85 19.1
2012 1 1 8 5 2 1 2 88 94 25 27 13.1
2012 0 1 8 3 2 0 1 168 113 39 25 12.85
2012 0 1 4 0 0 0 0 94 84 9 22 9.5
2012 0 1 9 5 3 0 2 51 86 19 19 4.5
2012 1 0 8 6 1 0 2 48 62 13 14 11.85
2012 0 1 6 3 0 1 1 145 222 60 45 13.6
2012 0 1 3 0 0 0 0 66 167 19 45 11.7
2012 1 1 7 3 0 1 0 85 82 34 28 12.4
2012 0 0 8 5 2 1 2 109 207 14 51 13.35
2012 1 0 7 4 0 0 2 63 184 17 41 11.4
2012 1 1 7 5 2 0 1 102 83 45 31 14.9
2012 1 0 8 7 3 2 1 162 183 66 74 19.9
2012 1 1 7 8 2 1 2 86 89 48 19 11.2
2012 1 1 7 6 1 1 2 114 225 29 51 14.6
2012 0 0 6 4 1 0 1 164 237 -2 73 17.6
2012 0 1 8 5 1 1 0 119 102 51 24 14.05
2012 0 0 8 5 0 1 2 126 221 2 61 16.1
2012 0 1 7 3 1 0 2 132 128 24 23 13.35
2012 0 1 9 6 0 1 2 142 91 40 14 11.85
2012 0 0 9 3 2 0 1 83 198 20 54 11.95
2012 1 1 7 6 3 1 1 94 204 19 51 14.75
2012 1 0 7 3 1 0 2 81 158 16 62 15.15
2012 0 1 8 7 2 2 2 166 138 20 36 13.2
2012 1 0 8 7 3 0 2 110 226 40 59 16.85
2012 1 1 6 6 3 1 2 64 44 27 24 7.85
2012 0 0 9 5 1 1 0 93 196 25 26 7.7
2012 1 0 6 5 1 0 1 104 83 49 54 12.6
2012 1 1 5 4 0 0 2 105 79 39 39 7.85
2012 1 1 7 4 1 2 2 49 52 61 16 10.95
2012 1 0 9 7 3 0 2 88 105 19 36 12.35
2012 1 1 6 2 0 1 0 95 116 67 31 9.95
2012 1 1 7 5 2 0 1 102 83 45 31 14.9
2012 1 0 5 4 2 1 0 99 196 30 42 16.65
2012 1 1 9 2 2 2 2 63 153 8 39 13.4
2012 1 0 8 5 2 0 0 76 157 19 25 13.95
2012 1 0 4 4 0 0 2 109 75 52 31 15.7
2012 1 1 9 7 3 2 2 117 106 22 38 16.85
2012 1 1 8 6 2 2 0 57 58 17 31 10.95
2012 1 0 7 4 0 0 0 120 75 33 17 15.35
2012 1 1 8 5 2 2 2 73 74 34 22 12.2
2012 1 0 1 0 0 0 0 91 185 22 55 15.1
2012 1 0 8 7 2 1 2 108 265 30 62 17.75
2012 1 1 8 4 2 0 2 105 131 25 51 15.2
2012 0 0 9 5 3 0 2 117 139 38 30 14.6
2012 1 0 8 6 2 0 1 119 196 26 49 16.65
2012 1 1 9 8 2 1 1 31 78 13 16 8.1

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 4 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264926&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264926&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264926&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net






ANOVA Model
TOT ~ year
means10.6883.829

\begin{tabular}{lllllllll}
\hline
ANOVA Model \tabularnewline
TOT  ~  year \tabularnewline
means & 10.688 & 3.829 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264926&T=1

[TABLE]
[ROW][C]ANOVA Model[/C][/ROW]
[ROW][C]TOT  ~  year[/C][/ROW]
[ROW][C]means[/C][C]10.688[/C][C]3.829[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264926&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264926&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

ANOVA Model
TOT ~ year
means10.6883.829






ANOVA Statistics
DfSum SqMean SqF valuePr(>F)
year1980.704980.704122.4330
Residuals2762210.88.01 

\begin{tabular}{lllllllll}
\hline
ANOVA Statistics \tabularnewline
  & Df & Sum Sq & Mean Sq & F value & Pr(>F) \tabularnewline
year & 1 & 980.704 & 980.704 & 122.433 & 0 \tabularnewline
Residuals & 276 & 2210.8 & 8.01 &   &   \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264926&T=2

[TABLE]
[ROW][C]ANOVA Statistics[/C][/ROW]
[ROW][C] [/C][C]Df[/C][C]Sum Sq[/C][C]Mean Sq[/C][C]F value[/C][C]Pr(>F)[/C][/ROW]
[ROW][C]year[/C][C]1[/C][C]980.704[/C][C]980.704[/C][C]122.433[/C][C]0[/C][/ROW]
[ROW][C]Residuals[/C][C]276[/C][C]2210.8[/C][C]8.01[/C][C] [/C][C] [/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264926&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264926&T=2

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

ANOVA Statistics
DfSum SqMean SqF valuePr(>F)
year1980.704980.704122.4330
Residuals2762210.88.01






Tukey Honest Significant Difference Comparisons
difflwruprp adj
2012-20113.8293.1484.5110

\begin{tabular}{lllllllll}
\hline
Tukey Honest Significant Difference Comparisons \tabularnewline
  & diff & lwr & upr & p adj \tabularnewline
2012-2011 & 3.829 & 3.148 & 4.511 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264926&T=3

[TABLE]
[ROW][C]Tukey Honest Significant Difference Comparisons[/C][/ROW]
[ROW][C] [/C][C]diff[/C][C]lwr[/C][C]upr[/C][C]p adj[/C][/ROW]
[ROW][C]2012-2011[/C][C]3.829[/C][C]3.148[/C][C]4.511[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264926&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264926&T=3

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Tukey Honest Significant Difference Comparisons
difflwruprp adj
2012-20113.8293.1484.5110






Levenes Test for Homogeneity of Variance
DfF valuePr(>F)
Group13.4750.063
276 

\begin{tabular}{lllllllll}
\hline
Levenes Test for Homogeneity of Variance \tabularnewline
  & Df & F value & Pr(>F) \tabularnewline
Group & 1 & 3.475 & 0.063 \tabularnewline
  & 276 &   &   \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264926&T=4

[TABLE]
[ROW][C]Levenes Test for Homogeneity of Variance[/C][/ROW]
[ROW][C] [/C][C]Df[/C][C]F value[/C][C]Pr(>F)[/C][/ROW]
[ROW][C]Group[/C][C]1[/C][C]3.475[/C][C]0.063[/C][/ROW]
[ROW][C] [/C][C]276[/C][C] [/C][C] [/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264926&T=4

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264926&T=4

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Levenes Test for Homogeneity of Variance
DfF valuePr(>F)
Group13.4750.063
276


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 13 ; par2 = 1 ; par3 = TRUE ;
Parameters (R input):
par1 = 13 ; par2 = 1 ; par3 = TRUE ;
R code (references can be found in the software module):
cat1 <- as.numeric(par1) #
cat2<- as.numeric(par2) #
intercept<-as.logical(par3)
x <- t(x)
x1<-as.numeric(x[,cat1])
f1<-as.character(x[,cat2])
xdf<-data.frame(x1,f1)
(V1<-dimnames(y)[[1]][cat1])
(V2<-dimnames(y)[[1]][cat2])
names(xdf)<-c('Response', 'Treatment')
if(intercept == FALSE) (lmxdf<-lm(Response ~ Treatment - 1, data = xdf) ) else (lmxdf<-lm(Response ~ Treatment, data = xdf) )
(aov.xdf<-aov(lmxdf) )
(anova.xdf<-anova(lmxdf) )
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'ANOVA Model', length(lmxdf$coefficients)+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, paste(V1, ' ~ ', V2), length(lmxdf$coefficients)+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'means',,TRUE)
for(i in 1:length(lmxdf$coefficients)){
a<-table.element(a, round(lmxdf$coefficients[i], digits=3),,FALSE)
}
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'ANOVA Statistics', 5+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, ' ',,TRUE)
a<-table.element(a, 'Df',,FALSE)
a<-table.element(a, 'Sum Sq',,FALSE)
a<-table.element(a, 'Mean Sq',,FALSE)
a<-table.element(a, 'F value',,FALSE)
a<-table.element(a, 'Pr(>F)',,FALSE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, V2,,TRUE)
a<-table.element(a, anova.xdf$Df[1],,FALSE)
a<-table.element(a, round(anova.xdf$'Sum Sq'[1], digits=3),,FALSE)
a<-table.element(a, round(anova.xdf$'Mean Sq'[1], digits=3),,FALSE)
a<-table.element(a, round(anova.xdf$'F value'[1], digits=3),,FALSE)
a<-table.element(a, round(anova.xdf$'Pr(>F)'[1], digits=3),,FALSE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Residuals',,TRUE)
a<-table.element(a, anova.xdf$Df[2],,FALSE)
a<-table.element(a, round(anova.xdf$'Sum Sq'[2], digits=3),,FALSE)
a<-table.element(a, round(anova.xdf$'Mean Sq'[2], digits=3),,FALSE)
a<-table.element(a, ' ',,FALSE)
a<-table.element(a, ' ',,FALSE)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
bitmap(file='anovaplot.png')
boxplot(Response ~ Treatment, data=xdf, xlab=V2, ylab=V1)
dev.off()
if(intercept==TRUE){
'Tukey Plot'
thsd<-TukeyHSD(aov.xdf)
bitmap(file='TukeyHSDPlot.png')
plot(thsd)
dev.off()
}
if(intercept==TRUE){
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Tukey Honest Significant Difference Comparisons', 5,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, ' ', 1, TRUE)
for(i in 1:4){
a<-table.element(a,colnames(thsd[[1]])[i], 1, TRUE)
}
a<-table.row.end(a)
for(i in 1:length(rownames(thsd[[1]]))){
a<-table.row.start(a)
a<-table.element(a,rownames(thsd[[1]])[i], 1, TRUE)
for(j in 1:4){
a<-table.element(a,round(thsd[[1]][i,j], digits=3), 1, FALSE)
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')
}
if(intercept==FALSE){
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'TukeyHSD Message', 1,TRUE)
a<-table.row.end(a)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Must Include Intercept to use Tukey Test ', 1, FALSE)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable2.tab')
}
library(car)
lt.lmxdf<-leveneTest(lmxdf)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Levenes Test for Homogeneity of Variance', 4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ', 1, TRUE)
for (i in 1:3){
a<-table.element(a,names(lt.lmxdf)[i], 1, FALSE)
}
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Group', 1, TRUE)
for (i in 1:3){
a<-table.element(a,round(lt.lmxdf[[i]][1], digits=3), 1, FALSE)
}
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ', 1, TRUE)
a<-table.element(a,lt.lmxdf[[1]][2], 1, FALSE)
a<-table.element(a,' ', 1, FALSE)
a<-table.element(a,' ', 1, FALSE)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable3.tab')