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

86,45220101
86,86160934
87,25262954
87,65247282
88,03233804
88,42326434
88,79294174
89,17549228
89,53576998
89,91040853
90,26194439
90,62907762
90,97242937
91,33242379
91,66807639
92,02127167
92,34966005
92,69637946
93,01790703
93,35846546
93,67351901
94,00822923
94,31719279
94,64636981
94,94962511
95,27359106
95,59527537
95,91474929
96,23208252
96,54734328
96,86059835
97,17191309
97,48135324
97,78897727
98,09484897
98,3990283
98,70157424
99,00254338
99,30199274
99,599977
99,89654989
100,191764
100,4856705
100,7783198
101,0697607
101,3600411
101,6492076
101,9373058
102,22438
102,5104735
102,7956282
103,0798852
103,3632842
103,645864
103,9276621
104,208713
104,4890572
104,7687256
105,0477513
105,3261638
105,603998
105,8812823
106,1580453
106,4343146
106,7101166
106,9854769
107,2604196
107,534968
107,8091443
108,0829695
108,3564636
108,6296457
108,9025336
109,1751441
109,4474931
109,7195954
109,9914646
110,2631136
110,5345541
110,8057967
111,0768513
111,3477265
111,6184303
111,8889694
112,1593496
112,4295761
112,6996527
112,9695827
113,2393683
113,5090108
113,7785108
114,0478678
114,3170807
114,5861486
114,8550663
115,1238315
115,3924398
115,6608862
115,9291648
116,1972691
116,4651918
116,732925
117,0004601
117,2677879
117,5348987
117,8017819
118,0684267
118,3348215
118,6009542
118,8668123
119,1323827
119,397652
119,6626062
119,9272309
120,1915116
120,455433
120,7189798
120,9821362
121,2448862
121,5072136
121,7691018
122,0305342
122,2914937
122,5519634
122,8119261
123,0713645
123,3302613
123,588599
123,8463633
124,1035312
124,3600879
124,6160161
124,8712986
125,1259182
125,379858
125,6331012
125,8856313
126,1374319
126,3884868
126,6387804
126,8882971
127,1370217
127,3849396
127,6320362
127,8782976
128,1237104
128,3682615
128,6119383
128,854729
129,096622
129,3376065
129,5776723
129,8168098
130,0550101
130,292265
130,5285669
130,7639091
130,9982857
131,2316913
131,4641218
131,6955735
131,9260439
132,1555313
132,3840348
132,6115547
132,838092
133,0636491
133,2882291
133,5118362
133,7344759
133,9561547
134,1768801
134,3966611
134,6155076
134,8334308
135,0504433
135,2665588
135,4817925
135,6961607
135,9096813
136,1223734
136,3342577
136,5453561
136,7556923
136,9652912
137,1741794
137,3823851
137,5899378
137,796869
138,0032114
138,2089998
138,4142703
138,619061
138,8234114
139,0273631
139,2309592
139,4342447
139,6372663
139,8400726
140,042714
140,2452427
140,4477127
140,6501799
140,8527022
141,0553389
141,2581515
141,4612033
141,6645592
141,8682859
142,072452
142,2771278
142,4823852
142,6882976
142,8949403
143,1023898
143,3107241
143,5200228
143,7303663
143,9418367
144,1545167
144,3684901
144,5838414
144,8006565
145,0190192
145,2390172
145,4607359
145,6842611
145,9096784
146,1370726
146,3665278
146,5981269
146,8319513
147,0680808
147,3065929
147,547563
147,7910635
148,0371637
148,2859294
148,5374225
148,7917006
149,0488164
149,3088178
149,5717466
149,8376391
150,1065248
150,3784267
150,6533601
150,9313331
151,2123454
151,4963887
151,7834455
152,0734897
152,3664855
152,6623878
152,9611416
153,2626819
153,5669339
153,8738124
154,1832222
154,495058
154,8092045
155,1255365
155,4439192
155,7642086
156,0862514
156,4098858
156,7349403
157,0612415
157,3886015
157,7168289
158,0457268
158,3750929
158,7047204
159,034399
159,363915
159,6930501
160,0215904
160,3493168
160,6760118
161,0014586
161,3254426
161,6477515
161,9681762
162,2865119
162,6025582
162,9161202
163,2270117
163,535045
163,8400467
164,1418486
164,4402904
164,7352199
165,0264932
165,3139755
165,5975406
165,8770715
166,1524604
166,4236087
166,6904271
166,9528354
167,2107626
167,4641466
167,7129344
167,9570814
168,1965517
168,4313175
168,6613591
168,8866644
169,1072288
169,3230548
169,5341516
169,7405351
169,942227
170,139255
170,3316521
170,5194567
170,7027115
170,881464
171,0557657
171,2256717
171,3912407
171,5525345
171,7096178
171,8625576
172,0114234
172,1562865
172,29722
172,4342983
172,5675966
172,6971935
172,8231652
172,9455898
173,0645459
173,180112
173,2923671
173,4013896
173,5072579
173,6100518
173,7098458
173,8067179
173,9007442
173,9919998
174,080559
174,1664951
174,2498803
174,3307855
174,4092807
174,4854344
174,5593141
174,6309856
174,7005137
174,7679617
174,8333914
174,8968634
174,9584367
175,0181691
175,0761167
175,1323345
175,1868758
175,2397926
175,2911356
175,340954
175,3892956
175,4362071
175,4817337
175,5259191
175,568806
175,6104358
175,6508485
175,690083
175,728177
175,7651671
175,8010885
175,8359757
175,8698617
175,9027788
175,9347579
175,9658293
175,9960219
176,0253641
176,053883
176,081605
176,1085555
176,1347593
176,1602401
176,1850208
176,2091239
176,2325707
176,2553821
176,2775781
176,2991781
176,3202008
176,3406645
176,3605864
176,3799837
176,3988725
176,4172686
176,4351874
176,4526434
176,469651
176,4862238
176,5023751
176,5181177
176,533464
176,548426
176,5630153
176,5772429
176,5911197
176,6046561
176,6178621
176,6307476
176,6433219
176,655594
176,6675729
176,679267
176,6906844
176,7018332
176,712721
176,7233552
176,733743
176,7438914
176,753807
176,7634963
176,7729657
176,7822212
176,7912687
176,8001139
176,8087622
176,817219
176,8254895
176,8335787
176,8414914
176,8492322
176,8568057

12,6707633
12,74154396
12,81159383
12,88102276
12,94993386
13,01842382
13,08658317
13,1544966
13,22224319
13,28989667
13,3575257
13,42519408
13,49296097
13,56088113
13,62900513
13,69737858
13,76604628
13,83504622
13,90441401
13,97418299
14,04437938
14,1150324
14,18616443
14,25779618
14,32994444
14,40262749
14,47585763
14,54964614
14,62400225
14,69893326
14,77444466
14,85054151
14,92722304
15,00449143
15,08234595
15,16078454
15,23980565
15,31940246
15,39957041
15,48030313
15,56159336
15,64343309
15,72581355
15,80872535
15,89216021
15,97610456
16,06054891
16,14548194
16,23089203
16,31676727
16,40309556
16,4898646
16,577062
16,66467529
16,75269194
16,84109948
16,92988544
17,01903746
17,10854328
17,1983908
17,28856808
17,37906341
17,46986528
17,56096245
17,65234555
17,74400082
17,83591938
17,92809121
18,0205066
18,11315625
18,20603119
18,29912286
18,3924231
18,48592413
18,57961862
18,67349965
18,76756071
18,86179576
18,95619918
19,05076579
19,14549088
19,24037019
19,33539989
19,43057662
19,5258975
19,62136007
19,71696234
19,8127028
19,90858036
20,0045944
20,10074476
20,19703171
20,29345597
20,39001872
20,48672347
20,58356862
20,68055839
20,77769565
20,87498372
20,97242631
21,07002754
21,16779192
21,26572436
21,36383013
21,4621149
21,56058467
21,65924582
21,75810506
21,85716942
21,95644627
22,05594328
22,15566842
22,2556318
22,35583862
22,45629922
22,55702268
22,65801829
22,75929558
22,8608643
22,9627344
23,06491603
23,16741888
23,27025534
23,37343341
23,47696538
23,58086145
23,68513322
23,78979096
23,89484664
24,00031064
24,10619501
24,21251028
24,31926857
24,42648043
24,53415806
24,642312
24,75095449
24,86009596
24,96975012
25,07992303
25,19063309
25,30188584
25,41369439
25,52606977
25,6390231
25,75256528
25,8667073
25,9814599
26,09683392
26,2128399
26,32948858
26,44679027
26,56475557
26,68339457
26,80271774
26,92273494
27,04345648
27,16489199
27,28705168
27,40994539
27,53358074
27,65796978
27,78312173
27,90904433
28,035749
28,16324264
28,2915364
28,42063744
28,5505561
28,68130005
28,81287875
28,94530029
29,07857344
29,21270645
29,34770775
29,48358527
29,62034774
29,75800198
29,89655787
30,03602021
30,17640101
30,31770417
30,45993837
30,60311107
30,74722941
30,89230072
31,0383318
31,18532984
31,33330127
31,48225315
31,63219151
31,78312329
31,93505405
32,08799062
32,2419381
32,39690313
32,55289035
32,7099062
32,86795484
33,02704244
33,18717272
33,34835148
33,51058203
33,67386973
33,8382175
34,00363017
34,17011029
34,33766207
34,50628773
34,67599076
34,84677306
35,01863732
35,19158513
35,36561737
35,54073816
35,71694723
35,8942414
36,07262569
36,25209851
36,43265996
36,61430874
36,79704392
36,98086412
37,1657671
37,35175104
37,53881268
37,72694943
37,91615721
38,10643241
38,2977703
38,490166
38,6836143
38,87810934
39,07364401
39,27021252
39,46780643
39,66641887
39,86604044
40,06666311
40,26827652
40,47087146
40,67443658
40,87896143
41,08443363
41,29084151
41,49817164
41,70641106
41,91554528
42,12556004
42,33643978
42,54816892
42,76073078
42,97410848
43,18828419
43,40323972
43,61895703
43,83541378
44,0525931
44,27047188
44,48903027
44,7082453
44,92809483
45,14855539
45,36960315
45,59121362
45,81336172
46,03602168
46,25916729
46,48277159
46,70680701
46,93124587
47,15605863
47,38121777
47,60669074
47,83245155
48,05846572
48,28470272
48,51113138
48,73771886
48,96443224
49,19123863
49,41810374
49,64499405
49,87187409
50,0987099
50,32546478
50,55210455
50,77859121
51,00489059
51,23096332
51,45677547
51,68228625
51,90746222
52,13226113
52,35665024
52,58058583
52,80403612
53,02695588
53,24931447
53,47106525
53,69217887
53,91260737
54,13232282
54,35127608
54,56944068
54,78676659
55,00322876
55,21877657
55,43338629
55,64701131
55,85961655
56,07116407
56,28162788
56,49095862
56,69913482
56,90610886
57,11185914
57,31634059
57,51953091
57,72138846
57,92188956
58,12099696
58,31868487
58,51492143
58,70967796
58,90293208
59,0946422
59,28479948
59,47336411
59,66032626
59,84564416
60,02931704
60,21129753
60,39158721
60,5701548
60,74698785
60,9220626
61,09536847
61,26688412
61,43660077
61,60449962
61,77057372
61,9348069
62,09719399
62,25771935
62,41638628
62,57317824
62,72809362
62,88112689
63,03227756
63,18154067
63,32891841
63,47440858
63,61801537
63,75973927
63,89958662
64,03756048
64,17366943
64,30792124
64,44032016
64,57087982
64,69961427
64,82653086
64,95164625
65,07497309
65,1965295
65,31633033
65,43440186
65,55074394
65,66540015
65,77837356
65,88970117
65,99939663
66,10749114
66,21400781
66,31897311
66,42241823
66,52436618
66,62485449
66,72390443
66,82155784
66,91783563
67,01278124
67,10641956
67,19879018
67,28992603
67,37985875
67,46863255
67,55626776
67,64281378
67,72830188
67,8127675
67,89624639
67,97877331
68,06038342
68,14111022
68,22098763
68,30004741
68,37832144
68,4558454
68,53262945
68,60872174
68,6841324
68,75889263
68,83301921
68,90653028
68,97944417
69,05176427
69,12351072
69,19467288
69,26526819
69,33527376
69,40470034
69,47351373
69,54171473
69,60925782
69,67613132
69,74227758
69,80767051
69,87223885
69,93594056
69,99868896
70,06042482
70,12104381
70,18046864
70,23857482
70,2952666
70,35039626
70,40385005
70,45546105
70,50507555
70,55252127
70,59761453
70,6401583

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