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 computationSat, 10 Nov 2012 06:56:41 -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/2012/Nov/10/t1352548617goeetod8jlgd3js.htm/, Retrieved Fri, 29 Mar 2024 09:17:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=187310, Retrieved Fri, 29 Mar 2024 09:17:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact136
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Decomposition by Loess] [Seasonal Decompos...] [2012-11-10 09:27:49] [3f1165f0052bdaf7d486f8ac60253253]
- RMPD      [Skewness and Kurtosis Test] [Skewness & Kurtos...] [2012-11-10 11:56:41] [64435dfec13c3cda39d1733fd4b6eb52] [Current]
Feedback Forum

Post a new message
Dataseries X:
-14.5037298387093
21.199495967742
27.3672379032257
42.389818548387
23.6285282258065
-9.69727822580659
13.3736895161289
27.2188508064516
26.6253024193549
10.6672379032258
17.1962701612903
31.9285282258065
37.6679166666668
75.6711424731182
88.8388844086022
117.161465053763
161.600174731183
133.87436827957
198.845336021505
186.790497311828
171.796948924731
202.538884408602
158.667916666667
168.200174731183
190.739563172043
195.142788978495
169.610530913979
143.73311155914
124.071821236559
80.1460147849462
79.4169825268817
40.2621438172043
45.0685954301075
17.0105309139785
25.039563172043
27.8718212365591
-21.3887903225807
-42.3855645161291
-41.6178225806451
-41.1952419354838
-37.4565322580645
-73.9823387096774
-57.211370967742
-52.6662096774194
-27.5597580645162
-25.3178225806452
-23.7887903225807
-45.6565322580646
-72.7171438172043
-74.4139180107527
-85.9461760752688
-63.6235954301075
-48.4848857526882
-96.2106922043011
-68.1397244623656
-53.694563172043
-55.5881115591398
-64.9461760752688
-75.6171438172043
-82.9848857526882
-97.5454973118279
-124.242271505376
-115.574529569892
-83.0519489247311
-85.3132392473118
-138.439045698925
-117.868077956989
-106.522916666667
-78.7164650537635
-67.9745295698925
-45.545497311828
-13.3132392473118
33.1261491935484
65.429375
93.0971169354839
112.919697580645
114.658407258065
44.2326008064517
66.8035685483871
77.0487298387097
90.4551814516129
55.4971169354839
52.0261491935484
38.9584072580645
31.6977956989247
11.8010215053763
6.86876344086024
32.2913440860215
5.63005376344091
-46.795752688172
-47.1247849462365
-28.579623655914
-31.2731720430107
-21.2312365591398
-18.1022043010753
-14.0699462365591
-40.8305577956989
-48.1273319892473
-25.5595900537634
-25.1370094086022
4.30170026881722
-30.4241061827957
-27.1531384408602
-47.7079771505376
-50.0015255376344
-52.7595900537634
-24.0305577956989
-20.3982997311828
-39.0589112903226
-61.055685483871
-65.0879435483871
-45.6653629032258
-24.3266532258064
-47.4524596774193
-53.4814919354838
-54.0363306451613
-39.229879032258
-27.5879435483871
16.5410887096774
34.5733467741935
74.5127352150537
129.815961021505
155.983702956989
185.80628360215
183.14499327957
149.519186827957
159.790154569892
141.835315860215
104.041767473118
88.6837029569892
70.1127352150537
95.9449932795699
83.6843817204301
75.7876075268817
58.0553494623656
22.9779301075269
20.4166397849463
-7.00916666666668
-1.73819892473119
3.60696236559135
5.5134139784946
24.5553494623656
42.9843817204301
29.0166397849462
15.5560282258064
-17.6407459677419
32.4269959677419
15.6495766129032
13.4882862903226
19.9624798387097
13.9334475806451
27.7786088709677
5.28506048387095
42.9269959677419
63.8560282258064
111.688286290323
124.927674731183
146.930900537634
146.098642473118
131.42122311828
130.359932795699
121.834126344086
109.405094086022
88.4502553763441
64.9567069892473
63.2986424731183
49.0276747311828
56.5599327956989
41.2993212365591
17.4025470430108
23.8702889784946
16.7928696236559
46.2315793010753
0.205772849462341
-16.0232594086022
16.4219018817204
-5.17164650537637
-11.8297110215054
15.2993212365591
16.2315793010752
29.6709677419354
44.0741935483871
23.541935483871
17.5645161290323
33.7032258064516
21.4774193548387
2.8483870967742
-4.50645161290326
-15.9
-8.05806451612905
16.2709677419355
6.80322580645159
6.5426142473118
-9.05415994623654
-10.3864180107527
-10.8638373655914
-20.625127688172
-0.850934139784941
-55.8799663978495
-37.1348051075269
-48.9283534946237
-39.8864180107527
-49.9573857526882
-43.3251276881721
-63.3857392473119
-50.1825134408602
-75.2147715053764
-56.9921908602151
-64.2534811827957
-52.6792876344086
-92.7083198924732
-87.9631586021506
-103.156706989247
-101.014771505376
-105.185739247312
-117.653481182796
-145.314092741936
-168.710866935484
-158.343125
-145.420544354839
-118.581834677419
-111.407641129032
-142.836673387097
-134.591512096774
-149.285060483871
-137.643125
-148.314092741935
-142.181834677419
-166.042446236559
-173.439220430107
-174.171478494624
-164.248897849462
-164.310188172043
-120.035994623656
-135.16502688172
-134.719865591398
-122.313413978495
-101.171478494624
-128.142446236559
-148.910188172043
-186.770799731183
-175.367573924731
-188.899831989247
-193.777251344086
-191.938541666667
-133.56434811828
-150.593380376344
-163.948219086022
-163.341767473118
-157.599831989247
-173.070799731183
-191.338541666667
-218.899153225806
-223.995927419355
-219.328185483871
-200.90560483871
-204.56689516129
-168.292701612903
-166.321733870968
-166.376572580645
-140.470120967742
-136.828185483871
-171.899153225806
-182.66689516129
-178.02750672043
-149.124280913979
-132.956538978495
-112.133958333333
-108.395248655914
-52.6210551075269
-45.7500873655914
-43.6049260752688
-19.2984744623656
-7.15653897849465
5.57249327956986
6.00475134408602
10.5441397849462
3.44736559139788
-0.984892473118272
-10.162311827957
-19.6236021505376
17.2505913978495
24.021559139785
28.2667204301075
23.2731720430108
11.7151075268817
14.1441397849462
-0.323602150537605
1.61578629032258
-11.7809879032258
-9.21324596774194
-22.0906653225807
-36.8519556451613
-1.37776209677414
-3.90679435483875
-4.36163306451613
-7.15518145161287
-10.5132459677419
-52.9842137096774
-70.4519556451612
-87.8125672043011
-80.7093413978495
-91.7415994623656
-86.6190188172043
-103.580309139785
-71.5061155913979
-78.4351478494624
-81.4899865591398
-68.6835349462366
-93.4415994623656
-86.2125672043011
-88.4803091397849
-66.7409206989248
-63.4376948924732
-79.6699529569893
-86.147372311828
-81.3086626344087
-30.4344690860216
-19.6635013440861
-26.0183400537634
22.7881115591398
22.4300470430107
64.4590793010752
104.091337365591
238.230725806452
241.233951612903
268.501693548387
253.524274193548
254.362983870968
276.237177419355
263.00814516129
242.853306451613
242.559758064516
230.201693548387
206.830725806452
200.762983870968
225.402372311828
201.405598118279
172.873340053763
148.295920698925
110.234630376344
172.608823924731
187.579791666667
193.224952956989
180.731404569893
176.873340053763
181.002372311828
171.234630376344
180.574018817204
196.777244623656
163.74498655914
103.867567204301
82.7062768817204
140.180470430107
111.751438172043
124.496599462366
109.603051075269
103.44498655914
93.8740188172044
44.8062768817205
73.2456653225807
47.5488911290322
43.8166330645161
3.6392137096774
1.07792338709678
15.2521169354839
49.2230846774194
29.668245967742
33.3746975806452
15.1166330645161
9.94566532258058
17.0779233870967




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187310&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 time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.3239, z = 1.6732, p-value = 0.09428
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.8043, z = -0.6899, p-value = 0.4903
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 7.0973, p-value = 0.02876
alternative hypothesis: greater 
> geary
[1] 0.7771399

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.3239, z = 1.6732, p-value = 0.09428
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.8043, z = -0.6899, p-value = 0.4903
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 7.0973, p-value = 0.02876
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7771399
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=187310&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.3239, z = 1.6732, p-value = 0.09428
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.8043, z = -0.6899, p-value = 0.4903
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 7.0973, p-value = 0.02876
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7771399
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=187310&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187310&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 = 0.3239, z = 1.6732, p-value = 0.09428
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.8043, z = -0.6899, p-value = 0.4903
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 7.0973, p-value = 0.02876
alternative hypothesis: greater 
> geary
[1] 0.7771399



Parameters (Session):
par1 = 12 ; par2 = 6 ; par3 = 0 ; par5 = 1 ; par7 = 1 ; par8 = FALSE ;
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')