Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
9.2519165021477700 22.2914871230951000 -37.1571787649763000 34.2241616969560000 -175.7914077233690000 104.9760837880910000 -61.2440566193924000 -396.7296705199910000 -396.4443981159500000 -260.0093162506190000 127.9690108389240000 -36.0298439908650000 204.1383693047720000 44.2385868220351000 -159.7062875865580000 203.1351380140120000 121.7565242401950000 -16.2019122127222000 -243.9008100164380000 391.6948428108540000 -164.2301675092280000 293.8211840355430000 150.1976556071950000 -191.0274890375130000 251.8423217530370000 -153.3748812044940000 8.1840259602576600 276.1970369319000000 7.4935640416714600 290.3101335840170000 154.7090152986450000 -344.5632159525820000 -268.8126246698540000 308.7880073528660000 53.4487117440643000 309.7451584514370000 86.3072721974973000 -34.8646306292142000 196.5617703101340000 226.5135122868370000 -188.0025901642620000 -58.5622808860067000 209.1480596873730000 145.9690997131140000 129.4017523844170000 -33.0299340425404000 -386.0498082130190000 144.2485012802840000 117.1389647704940000 129.8971180442860000 -152.2186889068030000 -55.0236881931042000 144.0221360767120000 -16.8566548271110000 144.6858045733700000 -160.2029736349430000 329.6206509205720000 138.3173761131970000 9.0003836842157900 50.5918463806914000 313.8752975196370000 236.9076376074890000 110.0513290511830000 -383.8489474627510000
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