Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.0416999999999998 -0.0309999999999999 -0.00109999999999966 0.00980000000000003 0.00950000000000006 -0.0122999999999998 0.000900000000000123 0.0239000000000003 0.0468 0.0384000000000002 -0.0321999999999998 -0.0138 0.0154000000000003 -0.0295999999999998 -0.0276999999999998 -0.0562 -0.0160999999999998 0.0222000000000002 -0.00689999999999991 -0.0273999999999999 -0.0261999999999998 0.00370000000000004 0.0214000000000001 -0.0197999999999998 0.00490000000000013 0.0218000000000003 0.0466 -0.0152999999999999 0.000100000000000211 0.00940000000000007 -0.0116999999999998 -0.0148999999999997 0.0237000000000001 0.0299 -0.0246999999999997 0.00419999999999998 0.0135000000000003 0.0241 -0.0037999999999998 -0.0124999999999997 0.0264 -0.0126999999999997 0.0241 0.0298000000000003 0.0424 -0.0146999999999997 0.0115000000000001 -0.000299999999999745 0.0746 0.0190000000000001 -0.0225999999999997 -0.00370000000000004 0.0184000000000002 -0.0827999999999998 -0.0637999999999999 -0.1081 -0.0622999999999998 0.0684 -0.0242999999999998 -0.0487 0.0232000000000001 0.0107000000000002 0.0427000000000002 0.0333000000000001 0.00390000000000024 0.0147000000000002 0.0261 0.0221000000000002 0.00650000000000017 -0.0332999999999999 -0.0374999999999999 -0.0618999999999998 -0.0149999999999999 -0.0195999999999998 -0.0874 -0.0389999999999997 0.0529 0.00910000000000033 0.014 0.0798000000000001 -0.0269999999999997 -0.0473999999999999 0.0107000000000002 0.0256000000000001 0.0317000000000001 0.0410000000000001 -0.0125999999999997 0.000600000000000156 -0.0157 0.00460000000000016 -0.0605999999999998 -0.00969999999999982 -0.0183
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