Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-383.2619992 -752.0418411 -444.3737478 38.4436459 -287.9130904 4.310256992 360.5316791 -137.5754584 32.07585265 78.81797858 -460.5107867 -299.0322812 -755.515729 -780.6026195 -116.5013697 -74.04950488 -8.87039821 -103.7986231 453.814706 222.1772813 618.3813929 -378.3214284 845.4553514 -1221.248993 -1390.412689 -243.5532029 147.4503305 84.24718156 -27.6866264 231.8068993 418.4072685 372.975783 719.2271322 -14.76192997 -1121.318917 54.27475209 4.527887284 -755.8853183 -56.04898908 106.1415804 6.963316604 135.4109802 340.3882022 113.1396124 659.582784 349.8913908 42.24138712 -769.3875156 -836.7449778 -9.363877756 -137.2905977 40.15665783 -19.39494709 149.2607385 341.1648665 9.091746806 998.7260355 369.5753249 -818.1633794 -175.9012935 -535.7787544 -418.2884939 -41.65502677 126.7318924 40.83628891 125.6475263 281.0520957 342.6605101 97.78059185
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