Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_skewness_kurtosis.wasp
Title produced by softwareSkewness and Kurtosis Test
Date of computationTue, 13 Dec 2011 04:38:55 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/13/t1323769155ucj56zjj0q7lxju.htm/, Retrieved Thu, 02 May 2024 18:00:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=154315, Retrieved Thu, 02 May 2024 18:00:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact124
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2011-12-13 09:38:55] [f04206f511735117c791d4a2bb2fa643] [Current]
Feedback Forum

Post a new message
Dataseries X:
5083.48536477867
-4800.7691990242
-8043.89877911646
2375.70233716633
-16436.0727280014
19830.2855842537
12071.4623167326
11696.3708373418
-3700.86883543485
25027.1219995496
-2173.2365303617
-32261.3006477224
-22233.3012785016
-9558.52324699268
-4588.48851109955
-23649.1994357739
-18319.7862346076
24298.9048194847
23320.2209464296
22781.2967496488
14495.165144538
-7002.41991775184
-8226.2691080278
-14912.558777462
1691.68101502799
-20534.2356092032
-2117.59935640815
-9705.8525996953
-24168.8212626746
-12745.2778966621
-25949.2011916873
-6768.62149185181
-4311.9633424201
-29578.2910781402
16865.8614391452
-21116.1404713277
-11520.6669743094
6958.93407569388
-18816.0009074235
-645.52209972331
-11209.1146208075
-13184.3747475593
-11858.534044734
-20592.5213031883
-26704.3750186249
-14378.8981932847
-6695.6330708694
-13861.1140337821
-6172.42325555551
8557.31533724687
26455.3704485817
-18360.2915867683
-2114.48728485245
17584.8809546185
-13655.4277400503
-16253.8348348691
-5115.16399331055
-3177.1435286084
-3384.65005924373
-5959.95249435208
-2435.51325572379
9241.28876619767
27013.8959291426
-11126.2838040042
-17872.6838072947
-23599.5351048224
-7752.38017486257
2624.43537964701
-947.736713586994
-20229.2968951451
-6515.43291839501
-5467.94012013662
-22434.1743023037
27177.2693875169
-34024.7212059932
16993.8350137451
2889.87194365388
-29065.3528404491
-15850.2812612217
-20599.7593877489
10353.1290545602
-6032.36081987565
8164.73331169692
-564.893999438765
132607.866903237
-8279.90796014692
94.9124775055727
-6401.20168755232
19793.6628149149
-22244.5988146295
-9007.88346989497
21187.3537650107
-11900.6446857243
-940.984588230262
-16549.9723386977
13285.7152692537
-24331.715652074
28785.7128386526
-14847.4985180417
8446.3205530636
-10283.1575536175
-9398.40805749205
8554.95003675066
34059.3268868791
25565.8432356781
35469.0978810729
-30507.8206355045
-5138.79985713808
13983.0082716583
-1048.15914510276
15781.2491830753
-8012.4538431081
3027.04961408025
-18611.559134787
-15419.4617773015
-5184.17275459935
861.849332849529
-7665.38091131691
98184.9243818133
-634.52131272428
-12111.9231156914
-9542.0172485336
-21072.2194992544
84741.8447205317
17426.7869782104
-12351.4507877579
8283.61894231867
1308.14093678108
16859.7375796189
-2449.42330516436
-3664.60147578841
-9258.87715901196
-5437.35368830736
-11851.2981557437
-15055.4629218523
-23443.5657661559
-1548.13237315567
24580.0964460831
24365.7643132803
-1079.80947715703
-7307.99818978412
10764.4405153651
2418.21319320253
-24147.6830095463
22239.6509543101
569.213277308305
38372.4255823802
38970.9993942044
-5404.52501244123
15166.6768084532
-12616.3630850948
-8467.28978037825
4115.81231217054
-19681.4293910892
-6121.88619045363
53340.0973142934
-6542.74309198628
-3958.40085483396
11020.6738632833
7693.62900730574
-4153.20707413414
63728.4198847912
4427.40501102394
35566.9267337617
-9002.38745468267
-25777.9990982296
-21984.0304953004
42444.2878790927
-19637.5442735976
37621.7213860289
18179.8144170208
4664.78334057066
17034.9748780908
-15150.3785932054
33575.1323110611
-7968.80423033686
35454.8578688707
-3304.71929195715
14719.3932070533
-14948.8199590703
7013.26562026567
25332.8231819225
755.454135787175
-2681.8342462793
-35703.8376285581
-1431.62282066095
-5790.5916823567
-2090.15438605537
-13215.6990379873
13169.7508861611
24263.3184627248
2801.79890406917
-15583.2476768363
-15724.9702768909
-5297.2715529359
-9083.02604456594
-6733.31607341977
33261.6958049576
23348.529756462
10326.4120695989
-12620.0127869183
-15308.6579223676
1890.17829367329
-2174.88335655744
-11704.1586583743
2222.73602752068
-8153.06201074868
-157.95627309415
-5690.30853228967
-19961.7483202425
-17683.7287384047
2796.23866927471
-3387.29176480132
-11474.0747901917
10993.7441491179
-22352.2280346276
-4122.09586032285
-893.355841310464
-16804.3872627731
-6477.1481977643
-6947.55255060597
-16285.3337249095
-18261.598185734
-4641.12938678698
-8419.87185669425
-15428.4376241671
17035.8256007421
1875.51233718517
-11354.0700685664
31268.1010874677
-12410.7639718451
-7070.00647028292
10513.0060497376
-3131.84042482264
5215.27166826783
-4084.41496863416
8449.33828564911
-7845.589230805
-10505.014164145
-3156.93538377287
9112.12501041877
-11111.4258435956
-8762.66803581273
-1322.70843189575
-2057.06270677263
8081.08371548912
5201.95443890732
1286.82579171914
17581.1951706
15935.3706372724
-1243.23221271913
1225.17845563945
-2668.30153643924
-1798.23472597849
-9042.88249174419
-349.493340628643
4183.09042159681
5679.5034524973
-11435.0767507401
-4413.67007042765
-2084.38125479004
-16636.8453818025
-2474.68686729585
-7496.20362948576
11465.1250852682
-3683.28546593844
-11516.7069643204
6376.99394825619
-14045.9833974651
11484.6916843896
-4753.5448073115
986.45543478732
2560.43348631781
-6221.52353778445
1196.40414603946
-6791.87268636928
18524.4628339922
-4890.61380023667
-16946.6253280763
-7521.3945957795
-1798.78533892612
65266.1045067318
12261.4828651915
-1217.24202393533
-2488.29780189514
19563.1818513045
-8910.56502716973
-8956.28844857163
-6386.91361210242




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gertrude Mary Cox' @ cox.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 & 0 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154315&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154315&T=0

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

As an alternative you can also use a 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 time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 2.2463, z = 6.7595, p-value = 1.385e-11
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 12.8763, z = 7.8024, p-value = 6.073e-15
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1417.585, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.6893412

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 2.2463, z = 6.7595, p-value = 1.385e-11
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 12.8763, z = 7.8024, p-value = 6.073e-15
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1417.585, p-value < 2.2e-16
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.6893412
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=154315&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 2.2463, z = 6.7595, p-value = 1.385e-11
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 12.8763, z = 7.8024, p-value = 6.073e-15
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1417.585, p-value < 2.2e-16
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.6893412
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=154315&T=1

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

As an alternative you can also use a QR Code:  

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

Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 2.2463, z = 6.7595, p-value = 1.385e-11
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 12.8763, z = 7.8024, p-value = 6.073e-15
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1417.585, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.6893412



Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
library(moments)
agostino <- agostino.test(x)
anscombe <- anscombe.test(x)
geary <- geary(x)
jarque <- jarque.test(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Skewness and Kurtosis Test',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('agostino'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('anscombe'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('jarque'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('geary'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')