Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
927556700665107.00 0.169679268650412 -0.574659296726693 -118845043334146.00 -101490125377725.00 -0.714958805352239 551982643357836.00 -74781393574596.00 -111603721414208.00 -0.440457542838189 535789932176391.00 232966990198791.00 -163097015791909.00 728001576648829.00 1562743426849.00 -414357198485304.00 -179776217023908.00 403747496136458.00 703171967394178.00 -10503949052621.00 842124339787864.00 131759872241775.00 189215438103689.00 -407410350264279.00 -795489789522566.00 956349605874932.00 73580761146833.00 -825728408230222.00 167224674955348.00 115789442787312.00 483730712300445.00 -34528953084268.00 -160504793165074.00 -273130429596257.00 -162447053807858.00 -163553254055096.00 -308197791095803.00 -0.419344042647353 322456249187871.00 -373721443319383.00 839045370091328.00 130536677884371.00 -483458281169517.00 220712660959144.00 -343509350795756.00 124225591566159.00 107268197817866.00 -468988361569328.00 -452041173031675.00 0.282943347381959 322611891466792.00 -589237695476918.00 -121263052967754.00 -118924804596098.00 0.627958139938329 -58016500021603.00 130968412005917.00 13043795750258.00 109771744923697.00 576123012808891.00 -61530313434175.00 103816629656533.00 102817745585889.00 -746607266419286.00 -117269333923105.00 -283170618295142.00 418714331647047.00 -181639254646045.00 312667808738018.00 667736840848168.00 150447759595379.00 -336316361298014.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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation