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 computationThu, 18 Dec 2014 14:47:01 +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/18/t1418914025mqli9c84c4luyb7.htm/, Retrieved Sun, 19 May 2024 21:36:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271019, Retrieved Sun, 19 May 2024 21:36:33 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact82
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Verklaring examen...] [2014-12-18 10:27:57] [94e0b03eaaae24ea322c1a0c8a3c30a1]
- RM D    [Skewness and Kurtosis Test] [] [2014-12-18 14:47:01] [0adf43ccf8dfa476608a94fd7836e72e] [Current]
Feedback Forum

Post a new message
Dataseries X:
 -19.8785
 8.52206
 -9.48795
 9.96789
 -6.53251
 -0.962677
 -0.519125
 -2.68971
 16.595
 23.8868
 -5.32324
 15.7846
 -7.81764
 0.80199
 12.7398
 5.42637
 -10.9646
 -0.405062
 7.05136
 14.7324
 4.79082
 0.71711
 2.41258
 12.6895
 -1.62253
 5.52993
 -2.26885
 8.89877
 -8.6529
 -23.2468
 3.48179
 0.586357
 -18.6353
 -6.78851
 6.79666
 2.38989
 2.41694
 10.7731
 -9.14333
 -6.43493
 -1.6646
 -3.90117
 -22.7899
 -25.6648
 15.0672
 0.333017
 7.17968
 7.42389
 -2.937
 -2.0878
 1.89137
 -7.17982
 9.67926
 7.85595
 1.13967
 -11.8346
 2.75909
 -4.10365
 -2.51825
 6.74149
 1.56093
 -14.7698
 -9.53267
 3.12509
 -7.85029
 9.3819
 10.672
 -9.4207
 -13.5614
 -1.55156
 -3.03195
 8.35252
 17.9252
 -16.7364
 -9.57127
 -11.2035
 11.9707
 -18.5811
 -3.84199
 -1.14471
 0.439499
 -8.20064
 1.16172
 -9.15099
 4.79317
 3.68389
 7.9448
 2.29844
 -2.20276
 2.4406
 -16.8862
 12.1431
 -18.9645
 -2.41837
 9.52566
 2.35404
 1.42963
 -9.96612
 8.31646
 1.74458
 5.79391
 3.84513
 7.10175
 0.124473
 5.09951
 8.23199
 8.93769
 7.39448
 9.78761




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

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



Parameters (Session):
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
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')