Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1413 1916 1717 1715 1516 2016 1518 1916 1517 1517 1917 1615 2016 1814 1516 1417 2016 1615 1617 1616 1015 1916 1915 1617 1514 1816 1715 1916 1716 1915 2017 515 1913 1617 1515 1614 1814 1618 1515 1717 2016 1915 715 1316 1615 1613 1817 1818 1618 1711 1914 1613 1915 1317 1616 1315 1217 1716 1716 1716 1615 1612 1417 1614 1314 1616 1415 2015 1214 1313 1818 1415 1916 1814 1415 1817 1916 1510 1416 1717 1917 1320 1917 1818 2015 1517 1514 1515 2017 1516 1917 1815 1816 1518 2018 1716 1817 1915 2013 1717 1516 1616 1815 1816 1416 1514 1215 1712 1419 1816 1716 1717 2016 1614 1415 1514 1816 2015 1717 1715 1716 1716 1515 1715 1811 1716 2018 1513 1611 1818 1515 1819 2017 1913 1414 1616 1513 1717 1814 2019 1714 1816 1512 1616 1116 1515 1812 1715 1617 1214 1915 1818 1515 1718 1915 1815 1916 1613 1616 1614 1416
R Code
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('<pre>',RC.texteval('agostino'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('anscombe'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('jarque'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('geary'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation