Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
500 329 72 584 1100 1585 442 321 406 818 568 556 494 818 338 419 364 284 674 188 286 640 520 532 547 428 561 266 783 746 394 482 568 746 668 0 835 464 418 607 539 519 309 647 321 261 180 576 544 758 205 317 709 590 526 443 419 205 310 785 434 576 317 288 285 391 446 715 208 101 858 302 360 411 561 292 492 669 253 366 192 616 221 438 247 388 541 233 333 422 452 584 366 406 254 606 491 67 607 597 240 219 349 241 136 194 222 153 0 251 240 358 302 267 14 0 287 476 509 243 292 410 217 422 160 75 412 309 417 79 25 431 11 564 6 183 0 295 230 27 14 240 251 347
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