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 computationFri, 07 Dec 2012 16:35:57 -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/Dec/07/t1354916169pqaxyzfyyuvu0ht.htm/, Retrieved Fri, 19 Apr 2024 14:45:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=197513, Retrieved Fri, 19 Apr 2024 14:45:13 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact121
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Explorative Data Analysis] [Run Sequence gebo...] [2008-12-12 13:32:37] [76963dc1903f0f612b6153510a3818cf]
- R  D  [Univariate Explorative Data Analysis] [Run Sequence gebo...] [2008-12-17 12:14:40] [76963dc1903f0f612b6153510a3818cf]
-         [Univariate Explorative Data Analysis] [Run Sequence Plot...] [2008-12-22 18:19:51] [1ce0d16c8f4225c977b42c8fa93bc163]
- RMP       [Univariate Data Series] [Identifying Integ...] [2009-11-22 12:08:06] [b98453cac15ba1066b407e146608df68]
- RMP         [Multiple Regression] [Multiple Regression] [2011-11-29 15:48:58] [b8fde34a99ee6a7d49500940cae4da2a]
- RMPD            [Skewness and Kurtosis Test] [skenesskurtosis] [2012-12-07 21:35:57] [5821104a6123eb5bf529ba8614395dc8] [Current]
Feedback Forum

Post a new message
Dataseries X:
-14.50372984
21.19949597
27.3672379
42.38981855
23.62852823
-9.697278226
13.37368952
27.21885081
26.62530242
10.6672379
17.19627016
31.92852823
37.66791667
75.67114247
88.83888441
117.1614651
161.6001747
133.8743683
198.845336
186.7904973
171.7969489
202.5388844
158.6679167
168.2001747
190.7395632
195.142789
169.6105309
143.7331116
124.0718212
80.14601478
79.41698253
40.26214382
45.06859543
17.01053091
25.03956317
27.87182124
-21.38879032
-42.38556452
-41.61782258
-41.19524194
-37.45653226
-73.98233871
-57.21137097
-52.66620968
-27.55975806
-25.31782258
-23.78879032
-45.65653226
-72.71714382
-74.41391801
-85.94617608
-63.62359543
-48.48488575
-96.2106922
-68.13972446
-53.69456317
-55.58811156
-64.94617608
-75.61714382
-82.98488575
-97.54549731
-124.2422715
-115.5745296
-83.05194892
-85.31323925
-138.4390457
-117.868078
-106.5229167
-78.71646505
-67.97452957
-45.54549731
-13.31323925
33.12614919
65.429375
93.09711694
112.9196976
114.6584073
44.23260081
66.80356855
77.04872984
90.45518145
55.49711694
52.02614919
38.95840726
31.6977957
11.80102151
6.868763441
32.29134409
5.630053763
-46.79575269
-47.12478495
-28.57962366
-31.27317204
-21.23123656
-18.1022043
-14.06994624
-40.8305578
-48.12733199
-25.55959005
-25.13700941
4.301700269
-30.42410618
-27.15313844
-47.70797715
-50.00152554
-52.75959005
-24.0305578
-20.39829973
-39.05891129
-61.05568548
-65.08794355
-45.6653629
-24.32665323
-47.45245968
-53.48149194
-54.03633065
-39.22987903
-27.58794355
16.54108871
34.57334677
74.51273522
129.815961
155.983703
185.8062836
183.1449933
149.5191868
159.7901546
141.8353159
104.0417675
88.68370296
70.11273522
95.94499328
83.68438172
75.78760753
58.05534946
22.97793011
20.41663978
-7.009166667
-1.738198925
3.606962366
5.513413978
24.55534946
42.98438172
29.01663978
15.55602823
-17.64074597
32.42699597
15.64957661
13.48828629
19.96247984
13.93344758
27.77860887
5.285060484
42.92699597
63.85602823
111.6882863
124.9276747
146.9309005
146.0986425
131.4212231
130.3599328
121.8341263
109.4050941
88.45025538
64.95670699
63.29864247
49.02767473
56.5599328
41.29932124
17.40254704
23.87028898
16.79286962
46.2315793
0.205772849
-16.02325941
16.42190188
-5.171646505
-11.82971102
15.29932124
16.2315793
29.67096774
44.07419355
23.54193548
17.56451613
33.70322581
21.47741935
2.848387097
-4.506451613
-15.9
-8.058064516
16.27096774
6.803225806
6.542614247
-9.054159946
-10.38641801
-10.86383737
-20.62512769
-0.85093414
-55.8799664
-37.13480511
-48.92835349
-39.88641801
-49.95738575
-43.32512769
-63.38573925
-50.18251344
-75.21477151
-56.99219086
-64.25348118
-52.67928763
-92.70831989
-87.9631586
-103.156707
-101.0147715
-105.1857392
-117.6534812
-145.3140927
-168.7108669
-158.343125
-145.4205444
-118.5818347
-111.4076411
-142.8366734
-134.5915121
-149.2850605
-137.643125
-148.3140927
-142.1818347
-166.0424462
-173.4392204
-174.1714785
-164.2488978
-164.3101882
-120.0359946
-135.1650269
-134.7198656
-122.313414
-101.1714785
-128.1424462
-148.9101882
-186.7707997
-175.3675739
-188.899832
-193.7772513
-191.9385417
-133.5643481
-150.5933804
-163.9482191
-163.3417675
-157.599832
-173.0707997
-191.3385417
-218.8991532
-223.9959274
-219.3281855
-200.9056048
-204.5668952
-168.2927016
-166.3217339
-166.3765726
-140.470121
-136.8281855
-171.8991532
-182.6668952
-178.0275067
-149.1242809
-132.956539
-112.1339583
-108.3952487
-52.62105511
-45.75008737
-43.60492608
-19.29847446
-7.156538978
5.57249328
6.004751344
10.54413978
3.447365591
-0.984892473
-10.16231183
-19.62360215
17.2505914
24.02155914
28.26672043
23.27317204
11.71510753
14.14413978
-0.323602151
1.61578629
-11.7809879
-9.213245968
-22.09066532
-36.85195565
-1.377762097
-3.906794355
-4.361633065
-7.155181452
-10.51324597
-52.98421371
-70.45195565
-87.8125672
-80.7093414
-91.74159946
-86.61901882
-103.5803091
-71.50611559
-78.43514785
-81.48998656
-68.68353495
-93.44159946
-86.2125672
-88.48030914
-66.7409207
-63.43769489
-79.66995296
-86.14737231
-81.30866263
-30.43446909
-19.66350134
-26.01834005
22.78811156
22.43004704
64.4590793
104.0913374
238.2307258
241.2339516
268.5016935
253.5242742
254.3629839
276.2371774
263.0081452
242.8533065
242.5597581
230.2016935
206.8307258
200.7629839
225.4023723
201.4055981
172.8733401
148.2959207
110.2346304
172.6088239
187.5797917
193.224953
180.7314046
176.8733401
181.0023723
171.2346304
180.5740188
196.7772446
163.7449866
103.8675672
82.70627688
140.1804704
111.7514382
124.4965995
109.6030511
103.4449866
93.87401882
44.80627688
73.24566532
47.54889113
43.81663306
3.63921371
1.077923387
15.25211694
49.22308468
29.66824597
33.37469758
15.11663306
9.945665323
17.07792339




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197513&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'Sir Maurice George Kendall' @ kendall.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=197513&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=197513&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197513&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):
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')