Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1418 869 1530 2172 901 463 3201 371 1192 1583 1439 1764 1495 1373 2187 1491 4041 1706 2152 1036 1882 1929 2242 1220 1289 2515 2147 2352 1638 1222 1812 1677 1579 1731 807 2452 829 1940 2662 186 1499 865 1793 2527 2747 1324 2702 1383 1179 2099 4308 918 1831 3373 1713 1438 496 2253 744 1161 2352 2144 4691 1112 2694 1973 1769 3148 2474 2084 1954 1226 1389 1496 2269 1833 1268 1943 893 1762 1403 1425 1857 1840 1502 1441 1420 1416 2970 1317 1644 870 1654 1054 937 3004 2008 2547 1885 1626 1468 2445 1964 1381 1369 1659 2888 1290 2845 1982 1904 1391 602 1743 1559 2014 2143 2146 874 1590 1590 1210 2072 1281 1401 834 1105 1272 1944 391 761 1605 530 1988 1386 2395 387 1742 620 449 800 1684 1050 2699 1606 1502 1204 1138 568 1459 2158 1111 1421 2833 1955 2922 1002 1060 956 2186 3604 1035 1417 3261 1587 1424 1701 1249 946 1926 3352 1641 2035 2312 1369 1577 2201 961 1900 1254 1335 1597 207 1645 2429 151 474 141 1639 872 1318 1018 1383 1314 1335 1403 910 616 1407 771 766 473 1376 1232 1521 572 1059 1544 1230 1206 1205 1255 613 721 1109 740 1126 728 689 592 995 1613 2048 705 301 1803 799 861 1186 1451 628 1161 1463 742 979 675 1241 676 1049 620 1081 1688 736 617 812 1051 1656 705 945 554 1597 982 222 1212 1143 435 532 882 608 459 578 826 509 717 637 857 830 652 707 954 1461 672 778 1141 680 1090 616 285 1145 733 888 849 1182 528 642 947 819 757 894
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