Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
380024677338224.00 34447094121358.00 406060223780465.00 -262644431348966.00 -759921313110645.00 -580583713625093.00 -599817081507226.00 233306500645963.00 479287236358026.00 330763037726129.00 -153475536822458.00 120079363459888.00 701994318309384.00 334182753756227.00 -166485792105404.00 145330776236226.00 178575117945607.00 -234782162279807.00 143289590127095.00 456450677643845.00 -277531081280534.00 -298910637753036.00 -116004570142231.00 491511278093913.00 -392612819102791.00 0.194043272043132 -251435507797058.00 -419277153892064.00 -64569102661932.00 -92247867584655.00 -737837292441463.00 -117608296619025.00 -411471486380167.00 229118976045687.00 963995062554849.00 342187423129205.00 -0.31260161729287 -0.0618949704434897 -0.139758136678836 175506955092015.00 199641749721966.00 310393254927204.00 362287663395673.00 231093724718695.00 156185501397604.00 -79766609498003.00 -220290157985279.00 -276272250684315.00 -179418337926635.00 -16245676633608.00 -127780892876372.00 -13880842066314.00 -406931711131335.00 267962347094155.00 -69571456204804.00 149047949274933.00 -203332385843221.00 675723987372422.00 909065984671373.00 663729007075985.00 936752084047748.00 505853187436293.00 442097309516363.00 534751630446424.00 -551166275255767.00 -115096377768154.00 -1409332247475.00 -117312076364471.00 -954052126255537.00 -163082159327072.00 -0.578265683152978 524601990619085.00 575390604120621.00 819010883286009.00 126977418114293.00 154316602929432.00 437985650813465.00 -374314079319691.00 -355184776820529.00 -955125640791205.00 -472209351203007.00 -278279651655973.00 329935671974368.00 313222730213678.00
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