Wessa.net

Send output to:


Data:
6.66579716098685 -1.14991562865021 -1.79603040001339 -18.4700692903106 -12.8214065223235 1.38665716245305 13.4506902171292 -3.04979696402705 -3.57176204304957 -12.7320953176455 1.77797897078977 -0.178846909964642 -0.948663504764192 -1.20380378585851 -10.5564749163737 5.32105597758011 -19.1263017662835 -8.20821017545146 -0.861723966126758 2.81282938210354 13.8192403862728 23.7626356911732 -9.36782864394663 -13.0354295863332 11.7839465982839 9.20682577008016 -2.34568489161739 -2.79801464674306 -0.496994929667014 -3.39262484176468 -6.95461531091064 13.9545872104826 -11.8141210432007 -4.93193696268311 18.9657802936614 28.7471971241746 8.43177239016013 -2.54348689606351 -9.64950296353657 19.6667953743618 1.75354461456936 -12.7654824550164 -9.85443298182874 -15.7607010365384 -1.93938797503698 6.98751026062598 7.68064392240282 7.73864162003415 2.92038522241241 -0.122556332769764 14.2333678603435 -2.11450669372579 8.46393425485531 -17.7237590165683 -1.69747970461711 0.519331480759363 1.34397252942004 -14.4255723456576 0.472825908171421 -5.9890446520356 -8.39752265087017 -2.93841282420111 -8.65489806363658 2.59683327400854 -1.26268943677433 4.80932734750565 -8.6892260418941 0.608044409841041 -5.39218180454801 23.2879449607947 -25.9491842210118 -0.7717019656024 -3.81662962455432 0.865132683570666 -11.1831782691536 -4.72056838135867 21.2418797357859 44.3542031337181


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')

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