Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.649173 -0.402487 0.6064 -0.192462 0.0994248 0.031682 -0.536291 0.293323 -0.547776 -0.737749 0.173364 0.7554 -0.713434 -0.59575 -0.148998 0.405026 0.470935 -0.345885 0.410122 -0.778184 -0.645383 -0.0123846 -0.320784 0.0536253 0.0906042 1.3487 0.0569324 0.123312 -0.200275 0.99365 0.565718 -0.273884 -0.30447 -0.375464 0.919339 0.0812767 0.303218 0.394447 -1.00624 -0.195315 0.481325 -0.551621 -0.309025 -0.0122296 -0.667838 -0.771103 -0.568117 -0.317672 -0.0979564 0.464367 0.457237 1.58432 0.345251 0.150776 -0.370503 -0.0492015 -0.0674203 -0.0021975 -0.0849305 0.788037 -0.759157 -0.328277 -0.328277 0.732102 -0.058361 0.325332 -0.0511497 -0.149632 0.604701 -0.641212 0.156182 0.71244 0.935673 0.712537 0.377661 0.250875 -0.698648 1.11038 -0.923417 -0.662056 -0.146919 0.889997 -0.346556 0.0942857 0.214748 0.893699 -0.113176 0.91406 -0.00193388 -0.258243 -0.709105 -0.10854 -0.327475 -0.0812538 0.34072 -0.09148 0.157922 0.730059 -0.783674 -0.613445 -0.954745 0.076499 -0.657588 -0.560399 0.190787 -0.246906 -0.998904 -0.143941 0.522335 -1.04349 -0.987151 1.17521 0.27181 1.33231 0.893912 -0.315799 0.327619 0.514956 0.848737 0.0898834 -0.295221 0.0631587 -1.02698 -0.808619 0.802256 0.486484 0.21571 1.25684 -0.141603 0.952421 -0.331124 0.345251 -0.90938 -0.952356 0.112386 1.12347 0.413244 0.142165 0.281051 0.739795 -0.809616 0.0622337 -0.0922264 -0.190374 -0.7666 0.172374 -0.520764 0.359631 0.150776 -1.14188 -0.374918 -0.331124 0.047548 -0.451839 -0.384455 1.16812 0.214023 -0.0817211 -1.06126 0.623508 0.73782 0.349375 -0.636346 -0.566244 -0.165994 -0.681137
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation