• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

84,97555512
85,3973169
85,87914364
86,29026318
86,7572453
87,15714182
87,60772129
87,9960184
88,42899892
88,8055115
89,22004408
89,58476689
89,98032311
90,33341722
90,70976642
91,0515436
91,40872898
91,7396352
92,0779438
92,39854429
92,71849208
93,02945392
93,33174706
93,63382278
93,9193437
94,21335709
94,50566735
94,79643239
95,08580223
95,37391918
95,66091814
95,94692677
96,23206579
96,51644912
96,80018419
97,08337211
97,3661079
97,6484807
97,930574
98,21246579
98,4942288
98,77593069
99,0576342
99,33939735
99,62127365
99,9033122
100,1855579
100,4680516
100,7508302
101,033927
101,3173715
101,6011898
101,8854047
102,1700358
102,4550995
102,7406094
103,0265761
103,3130077
103,5999093
103,8872839
104,1751318
104,4634511
104,7522377
105,0414853
105,3311857
105,6213287
105,9119021
106,2028921
106,4942832
106,7860583
107,0781986
107,3706841
107,6634932
107,9566031
108,2499897
108,5436278
108,8374911
109,1315521
109,4257825
109,7201531
110,0146337
110,3091934
110,6038005
110,8984228
111,1930273
111,4875806
111,7820485
112,0763967
112,3705904
112,6645943
112,9583717
113,2518902
113,5451119
113,8380006
114,1305182
114,4226317
114,7143036
115,0054978
115,2961782
115,5863089
115,8758541
116,1647782
116,4530458
116,7406221
117,0274723
117,3135622
117,5988578
117,8833259
118,1669334
118,4496481
118,7314381
119,0122722
119,2921199
119,5709513
119,8487374
120,1254495
120,4010603
120,6755427
120,948871
121,22102
121,4919655
121,7616844
122,0301544
122,2973542
122,5632638
122,827864
123,0911367
123,3530652
123,6136336
123,8728276
124,1306337
124,38704
124,6420357
124,8956114
125,1477591
125,398472
125,6477449
125,895574
126,1419569
126,3868929
126,6303826
126,8724284
127,1130342
127,3522056
127,5899498
127,8262759
128,0611947
128,2947187
128,5268624
128,757642
128,9870758
129,2151839
129,4419887
129,6675143
129,891787
130,1148354
130,3366901
130,5573839
130,7769521
130,995432
131,2128634
131,4292887
131,6447523
131,8593015
132,0729858
132,2858574
132,4979712
132,7093845
132,9201575
133,1303527
133,3400358
133,5492749
133,7581408
133,9667073
134,1750506
134,3832499
134,591387
134,7995463
135,007815
135,2162826
135,4250414
135,634186
135,8438132
136,0540223
136,2649144
136,4765925
136,6891617
136,9027281
137,1173995
137,3332846
137,5504927
137,7691339
137,9893182
138,2111552
138,4347541
138,6602228
138,8876678
139,1171933
139,3489012
139,5828898
139,8192541
140,0580848
140,2994645
140,5434787
140,7901957
141,0396832
141,2919995
141,5471945
141,8053089
142,0663731
142,3304073
142,59742
142,867408
143,1403553
143,4162329
143,6949981
143,9765941
144,2609497
144,5479789
144,8375809
145,1296398
145,4240246
145,7205898
146,0191748
146,319605
146,621692
146,9252331
147,2300177
147,5358173
147,8423918
148,149501
148,4568879
148,7642907
149,0714413
149,3780673
149,6838943
149,9886397
150,2920328
150,5937928
150,8936469
151,1913253
151,4865636
151,7791045
152,0686985
152,3551055
152,6380955
152,9174502
153,1929631
153,4644407
153,7317031
153,9945844
154,2529332
154,5066127
154,755501
154,999491
155,2384904
155,4724217
155,7012216
155,9248409
156,1432438
156,3564079
156,564323
156,7669913
156,9644258
157,1566506
157,3436995
157,5256156
157,7024507
157,8742644
158,0411233
158,2031007
158,3602756
158,5127321
158,6605588
158,8038483
158,9426964
159,0772018
159,2074654
159,3335898
159,455679
159,573838
159,688172
159,7987866
159,9057871
160,0092785
160,1093647
160,2061489
160,299733
160,3902173
160,4776996
160,5622804
160,6440526
160,7231097
160,7995428
160,8734411
160,9448916
161,013979
161,0807857
161,1453919
161,2078755
161,2683119
161,3267744
161,383334
161,4380593
161,4910168
161,5422726
161,5918856
161,639917
161,6864247
161,7314645
161,7750901
161,8173534
161,8583045
161,8979913
161,9364602
161,9737558
162,0099209
162,0449969
162,0790234
162,1120386
162,144079
162,17518
162,2053755
162,2346979
162,2631785
162,2908474
162,3177333
162,343864
162,3692662
162,3939652
162,4179858
162,4413513
162,4640845
162,4862071
162,5077398
162,5287029
162,5491154
162,5689958
162,588362
162,6072309
162,6256189
162,6435418
162,6610146
162,6780519
162,6946676
162,7108751
162,7266874
162,7421168
162,7571752
162,7718741
162,7862245
162,8002371
162,8139219
162,8272889
162,8403475
162,8531067
162,8655754
162,8777619
162,8896744
162,9013208
162,9127085
162,9238449
162,9347368
162,9453912
162,9558145
162,9660131
162,9759929
162,9857599
162,9953196
163,0046776
163,0138392
163,0228094
163,0315932
163,0401953
163,0486203
163,0568727
163,0649568
163,0728768
163,0806367
163,0882404
163,0956917
163,1029943
163,1101517
163,1171673
163,1240445
163,1307866
163,1373966
163,1438776
163,1502326
163,1564644
163,1625759
163,1685697
163,1744484
163,1802146
163,1858708
163,1914194
163,1968627
163,202203
163,2074426
163,2125835
163,217628
163,2225779
163,2274354
163,2322024
163,2368807
163,2414722
163,2459787
163,2504019
163,2547435
163,2590052
163,2631886
163,2672954
163,2713269
163,2752848
163,2791705
163,2829854
163,286731
163,2904086
163,2940195
163,297565
163,3010464
163,304465
163,307822
163,3111185
163,3143558
163,3175349
163,320657
163,3237231
163,3267344
163,3296918
163,3325964
163,3354491
163,338251
163,341003

12,05503983
12,13455523
12,21318503
12,2910249
12,36816549
12,44469258
12,52068629
12,59622335
12,67137518
12,74620911
12,82078836
12,89517218
12,969416
13,04357164
13,1176874
13,19180874
13,26597601
13,34022934
13,41460428
13,48913319
13,56384768
13,63877446
13,71393934
13,78936547
13,86507382
13,94108332
14,01741092
14,09407175
14,1710792
14,24844498
14,32617994
14,40429169
14,48278811
14,56167529
14,64095814
14,72064045
14,80072498
14,88121352
14,96210701
15,04340553
15,12510844
15,20721443
15,28972155
15,37262729
15,45592866
15,53962221
15,62370476
15,70817017
15,79301678
15,87823668
15,96382858
16,04978452
16,13610029
16,2227706
16,30979016
16,39715363
16,48485573
16,57289122
16,66125494
16,74994187
16,83894709
16,92826587
17,01789367
17,10782615
17,19805919
17,28858894
17,37941179
17,47052444
17,56192386
17,65360733
17,74557295
17,83781722
17,93034046
18,02313904
18,11621449
18,20956418
18,30318851
18,3970876
18,49126194
18,58571243
18,68044032
18,77544728
18,87073536
18,966307
19,06216503
19,15831267
19,25475352
19,35149163
19,44853124
19,54587708
19,64353438
19,74150854
19,83980545
19,93843145
20,03739255
20,13669623
20,23634934
20,33635961
20,43673478
20,53748298
20,63861291
20,74013277
20,8420525
20,94438028
21,04712678
21,15030093
21,25391304
21,35797332
21,4624923
21,56748045
21,6729493
21,77890902
21,88537109
21,99234686
22,09984776
22,20788541
22,31647143
22,4256177
22,53533595
22,64563824
22,75653575
22,86804258
22,98016763
23,09292679
23,20632749
23,32038549
23,43511149
23,55051871
23,66661524
23,78341652
23,90093275
24,01917703
24,13815894
24,25789074
24,37838315
24,49964778
24,62169464
24,74453536
24,86817768
24,99263735
25,1179181
25,24403371
25,37099167
25,49880264
25,62747331
25,7570168
25,88743607
26,01874261
26,15094297
26,28404312
26,41805126
26,55297507
26,68881882
26,82558904
26,96329146
27,1019295
27,24151032
27,38203422
27,52350971
27,66593402
27,80931681
27,9536524
28,09895136
28,24520531
28,3924254
28,54060085
28,689741
28,83983907
28,99089799
29,14291171
29,29588211
29,44980208
29,60467235
29,76048479
29,91723895
30,0749257
30,23354335
30,39308176
30,55353799
30,71490093
30,87716632
31,0403221
31,20436268
31,36927506
31,53505231
31,7016805
31,86915314
32,03744999
32,20656836
32,37648607
32,54719801
32,71868225
32,89093119
33,06392318
33,23764811
33,4120847
33,58722031
33,76303402
33,93951076
34,1166299
34,29437407
34,47272283
34,65165668
34,83115524
35,01119711
35,19176177
35,37282619
35,55437176
35,73636737
35,91879976
36,10163704
36,28486194
36,46844479
36,65236365
36,83659382
37,02110818
37,2058813
37,39088668
37,57609874
37,76148905
37,94703242
38,1326991
38,3184638
38,50429603
38,69016998
38,87605489
39,06192441
39,24774707
39,43349606
39,61914076
39,80465254
39,98999994
40,17515795
40,36009244
40,54477475
40,72917544
40,91326399
41,09701099
41,28038585
41,46335907
41,64590018
41,82797963
42,00956706
42,19063313
42,37114758
42,55108107
42,73040375
42,90908653
43,08709982
43,2644155
43,44100245
43,61683402
43,79188142
43,9661169
44,13951004
44,31203579
44,4836659
44,65437319
44,82413133
44,99291356
45,16069403
45,32744704
45,49314752
45,65777013
45,82129177
45,98368656
46,1449338
46,30500858
46,46388803
46,62155183
46,77797684
46,93314404
47,08703099
47,23962058
47,39089077
47,54082604
47,6894054
47,83661466
47,98243414
48,12685082
48,26984657
48,41140938
48,55152298
48,69017613
48,82735473
48,9630481
49,09724461
49,22993391
49,36110718
49,49075409
49,61886898
49,74544132
49,87046889
49,99394068
50,11585824
50,23620985
50,35500108
50,47222213
50,58787426
50,70195581
50,8144676
50,92540942
51,0347839
51,14259229
51,24883903
51,3535268
51,45666185
51,55824831
51,65829423
51,75680513
51,85379089
51,94925841
52,04321933
52,13568193
52,2266596
52,31616197
52,40420412
52,49079703
52,57595741
52,65969757
52,74203581
52,82298572
52,90256713
52,9807949
53,05769031
53,13326946
53,207555
53,28056425
53,35232114
53,42284417
53,49215847
53,5602837
53,62724607
53,69306637
53,75777335
53,82138422
53,88393309
53,94543725
54,00593079
54,06543278
54,1239772
54,18158486
54,23828949
54,29411356
54,3490905
54,40324431
54,45660807
54,50920717
54,56107427
54,61223603
54,66272473
54,71256787
54,76179737
54,81044184
54,85853238
54,90609842
54,95317045
54,99977846
55,04595226
55,09172217
55,13711731
55,18216811
55,22690289
55,271352
55,31554289
55,35950558
55,40326657
55,44685531
55,49029727
55,53362107
55,576851
55,62001464
55,66313498
55,70623826
55,74934603
55,79247939
55,83566893
55,87892356
55,92227464
55,96573022
56,00931839
56,05304601
56,09693771
56,14099882
56,18525031
56,22969564
56,27435189
56,3192203
56,36431379
56,40963105
56,45518056
56,50095811
56,54696744
56,59320107
56,63965769
56,68632619
56,73319989
56,78026364
56,82750509
56,87490465
56,92244396
56,97009856
57,01784381
57,06564989
57,1134856
57,16131528
57,20910091
57,25679821
57,30436885
57,35175792
57,39891295
57,44578172
57,49229864
57,53840429
57,58402911
57,62910094
57,67354335
57,7172758
57,76021291
57,80226553
57,84333894
57,88333502
57,92214864
57,95967458
57,99579467
58,0303973
58,06335008
58,09453209
58,12380699
58,15103575
58,17607382
58,1987714
58,21897289
58,23651745

library(psychometric)
x <- x[!is.na(y)]
y <- y[!is.na(y)]
y <- y[!is.na(x)]
x <- x[!is.na(x)]
bitmap(file='test1.png')
histx <- hist(x, plot=FALSE)
histy <- hist(y, plot=FALSE)
maxcounts <- max(c(histx$counts, histx$counts))
xrange <- c(min(x),max(x))
yrange <- c(min(y),max(y))
nf <- layout(matrix(c(2,0,1,3),2,2,byrow=TRUE), c(3,1), c(1,3), TRUE)
par(mar=c(4,4,1,1))
plot(x, y, xlim=xrange, ylim=yrange, xlab=xlab, ylab=ylab, sub=main)
par(mar=c(0,4,1,1))
barplot(histx$counts, axes=FALSE, ylim=c(0, maxcounts), space=0)
par(mar=c(4,0,1,1))
barplot(histy$counts, axes=FALSE, xlim=c(0, maxcounts), space=0, horiz=TRUE)
dev.off()
lx = length(x)
makebiased = (lx-1)/lx
varx = var(x)*makebiased
vary = var(y)*makebiased
corxy <- cor.test(x,y,method='pearson', na.rm = T)
cxy <- as.matrix(corxy$estimate)[1,1]
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Pearson Product Moment Correlation - Ungrouped Data',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Statistic',1,TRUE)
a<-table.element(a,'Variable X',1,TRUE)
a<-table.element(a,'Variable Y',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('arithmetic_mean.htm','Mean',''),header=TRUE)
a<-table.element(a,mean(x))
a<-table.element(a,mean(y))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('biased.htm','Biased Variance',''),header=TRUE)
a<-table.element(a,varx)
a<-table.element(a,vary)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('biased1.htm','Biased Standard Deviation',''),header=TRUE)
a<-table.element(a,sqrt(varx))
a<-table.element(a,sqrt(vary))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('covariance.htm','Covariance',''),header=TRUE)
a<-table.element(a,cov(x,y),2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('pearson_correlation.htm','Correlation',''),header=TRUE)
a<-table.element(a,cxy,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('coeff_of_determination.htm','Determination',''),header=TRUE)
a<-table.element(a,cxy*cxy,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('ttest_statistic.htm','T-Test',''),header=TRUE)
a<-table.element(a,as.matrix(corxy$statistic)[1,1],2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value (2 sided)',header=TRUE)
a<-table.element(a,(p2 <- as.matrix(corxy$p.value)[1,1]),2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value (1 sided)',header=TRUE)
a<-table.element(a,p2/2,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'95% CI of Correlation',header=TRUE)
a<-table.element(a,paste('[',CIr(r=cxy, n = lx, level = .95)[1],', ', CIr(r=cxy, n = lx, level = .95)[2],']',sep=''),2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Degrees of Freedom',header=TRUE)
a<-table.element(a,lx-2,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of Observations',header=TRUE)
a<-table.element(a,lx,2)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
library(moments)
library(nortest)
jarque.x <- jarque.test(x)
jarque.y <- jarque.test(y)
if(lx>7) {
ad.x <- ad.test(x)
ad.y <- ad.test(y)
}
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Normality Tests',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('jarque.x'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('jarque.y'),'
',sep=''))
a<-table.row.end(a)
if(lx>7) {
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('ad.x'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('ad.y'),'
',sep=''))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
library(car)
bitmap(file='test2.png')
qq.plot(x,main='QQplot of variable x')
dev.off()
bitmap(file='test3.png')
qq.plot(y,main='QQplot of variable y')
dev.off()