Title: “Project” Author: “Areej(38-20)” Date: “2023-11-01” No_Of_Observation:“50” No_Of_Variables:“13” Title: “Black_White_Wage_Gap in USA” Source: “Data sourced from the Economic Policy Institute’s State of Working America Data Library: https://www.epi.org/data/”
##call the Data##
data=read.csv("C://Users//csas//Desktop//black_white_wage_gap.csv")
data## year white_median white_average black_median black_average white_men_median
## 1 2022 24.96 34.49 19.60 25.61 27.11
## 2 2021 25.40 34.50 19.45 25.40 27.76
## 3 2020 25.98 34.86 19.85 26.03 28.36
## 4 2019 24.39 32.79 18.45 24.09 27.39
## 5 2018 23.97 32.44 17.57 23.53 26.79
## 6 2017 23.87 31.64 17.84 22.95 26.36
## 7 2016 23.56 31.30 18.15 23.09 26.34
## 8 2015 23.37 30.75 17.38 22.72 25.73
## 9 2014 22.73 29.49 17.25 22.17 24.89
## 10 2013 22.73 29.72 17.61 22.34 25.19
## 11 2012 22.86 29.59 17.23 22.32 25.46
## 12 2011 22.73 29.27 17.69 22.32 25.24
## 13 2010 23.18 29.86 18.27 22.71 26.08
## 14 2009 23.35 29.86 18.37 22.70 26.49
## 15 2008 22.92 29.09 17.64 22.06 26.09
## 16 2007 22.78 29.02 17.70 22.19 25.85
## 17 2006 22.67 28.62 18.00 22.30 25.55
## 18 2005 22.63 28.56 17.86 21.85 25.59
## 19 2004 23.18 28.67 18.57 22.35 26.21
## 20 2003 23.08 28.65 18.42 22.35 26.08
## 21 2002 22.93 28.62 18.05 21.97 26.05
## 22 2001 22.72 28.08 17.58 21.59 25.82
## 23 2000 22.06 27.47 17.48 21.49 25.56
## 24 1999 21.81 27.06 17.53 21.09 25.39
## 25 1998 21.48 26.42 17.11 20.67 24.79
## 26 1997 20.75 25.59 16.30 19.76 23.81
## 27 1996 20.38 25.07 15.95 19.30 23.36
## 28 1995 20.19 24.97 15.99 19.76 23.16
## 29 1994 19.86 24.99 15.87 19.98 23.43
## 30 1993 20.11 24.52 16.12 19.62 23.79
## 31 1992 20.41 24.38 16.23 19.40 23.64
## 32 1991 20.70 24.37 16.12 19.34 23.73
## 33 1990 20.39 24.27 16.29 19.11 23.96
## 34 1989 20.35 24.23 16.20 19.27 24.09
## 35 1988 20.41 24.85 16.65 19.96 24.10
## 36 1987 20.31 24.62 16.32 19.63 24.72
## 37 1986 20.35 24.42 16.29 19.46 25.36
## 38 1985 19.76 23.83 15.95 19.06 24.79
## 39 1984 19.82 23.49 15.97 19.03 24.17
## 40 1983 19.58 23.35 16.00 19.10 24.41
## 41 1982 19.74 23.31 15.92 18.87 24.60
## 42 1981 19.43 23.08 16.04 19.06 24.60
## 43 1980 19.91 23.19 16.46 19.16 25.08
## 44 1979 19.97 23.66 16.69 19.56 25.51
## 45 1978 20.26 23.46 16.20 19.09 25.08
## 46 1977 20.00 23.38 16.23 18.93 24.94
## 47 1976 20.06 23.47 16.25 19.20 24.32
## 48 1975 19.96 23.30 16.15 18.46 24.68
## 49 1974 20.04 23.21 16.07 18.36 24.55
## 50 1973 20.53 23.72 15.96 18.61 24.98
## white_men_average black_men_median black_men_average white_women_median
## 1 39.10 20.02 27.43 22.47
## 2 38.78 20.08 26.88 22.76
## 3 39.08 20.56 27.40 23.05
## 4 36.84 19.31 25.18 22.01
## 5 36.55 18.66 24.67 21.75
## 6 35.30 18.15 24.27 21.48
## 7 35.12 18.42 24.53 21.14
## 8 34.57 18.40 24.00 20.77
## 9 32.89 18.00 23.02 20.12
## 10 33.42 18.73 23.45 20.24
## 11 33.34 18.02 23.57 20.28
## 12 32.73 18.35 23.26 20.34
## 13 33.69 18.99 23.72 20.32
## 14 33.96 19.64 23.99 20.56
## 15 32.87 18.95 23.16 20.34
## 16 32.78 18.72 23.22 20.33
## 17 32.24 18.97 23.53 20.23
## 18 32.18 18.64 22.99 20.04
## 19 32.52 19.42 23.78 20.14
## 20 32.42 19.25 23.46 20.07
## 21 32.41 19.49 23.16 19.82
## 22 31.86 19.00 22.92 19.72
## 23 31.34 18.77 22.97 18.87
## 24 30.77 18.88 22.65 18.70
## 25 29.98 18.07 22.00 18.16
## 26 29.02 17.33 21.07 18.06
## 27 28.42 16.90 20.40 17.59
## 28 28.41 17.20 20.87 17.36
## 29 28.29 17.19 21.26 17.53
## 30 27.87 17.27 20.68 17.58
## 31 27.85 17.19 20.46 17.36
## 32 28.02 17.25 20.57 17.04
## 33 28.04 17.50 20.55 17.13
## 34 28.16 17.52 20.66 17.01
## 35 29.34 18.18 21.97 16.92
## 36 29.11 18.32 21.57 16.81
## 37 28.94 18.24 21.41 16.36
## 38 28.18 17.90 20.86 16.02
## 39 27.72 18.21 21.16 15.95
## 40 27.67 17.98 21.26 15.67
## 41 27.65 18.24 20.97 15.44
## 42 27.37 18.90 21.31 15.41
## 43 27.51 18.70 21.40 15.41
## 44 28.03 19.15 22.00 15.47
## 45 27.81 19.74 21.38 15.40
## 46 27.66 18.70 20.84 15.33
## 47 27.54 19.19 21.57 15.42
## 48 27.37 19.15 20.60 15.32
## 49 27.34 19.02 20.84 15.22
## 50 27.93 19.29 21.09 15.36
## white_women_average black_women_median black_women_average
## 1 29.50 19.00 23.99
## 2 29.90 18.85 24.13
## 3 30.30 19.26 24.87
## 4 28.41 18.08 23.17
## 5 28.01 17.34 22.55
## 6 27.71 17.22 21.81
## 7 27.22 17.13 21.86
## 8 26.66 16.64 21.65
## 9 25.87 16.32 21.46
## 10 25.79 16.89 21.42
## 11 25.58 16.52 21.29
## 12 25.64 16.98 21.55
## 13 25.92 17.45 21.90
## 14 25.67 17.54 21.68
## 15 25.13 16.65 21.16
## 16 25.03 17.06 21.33
## 17 24.76 17.40 21.27
## 18 24.71 16.64 20.90
## 19 24.59 17.65 21.16
## 20 24.70 17.53 21.43
## 21 24.56 17.07 20.97
## 22 24.00 16.63 20.48
## 23 23.30 16.92 20.24
## 24 23.01 16.04 19.78
## 25 22.56 16.13 19.52
## 26 21.87 15.33 18.62
## 27 21.43 15.03 18.33
## 28 21.20 15.21 18.76
## 29 21.38 15.18 18.81
## 30 20.90 15.51 18.66
## 31 20.61 15.34 18.44
## 32 20.35 15.27 18.19
## 33 20.05 15.16 17.77
## 34 19.81 15.13 17.94
## 35 19.77 14.98 18.02
## 36 19.49 14.98 17.77
## 37 19.21 15.04 17.57
## 38 18.70 14.62 17.31
## 39 18.40 14.20 16.93
## 40 18.19 14.23 16.95
## 41 18.06 14.44 16.80
## 42 17.73 14.36 16.78
## 43 17.71 14.12 16.85
## 44 17.91 14.46 16.95
## 45 17.68 14.00 16.76
## 46 17.57 14.06 16.91
## 47 17.79 13.97 16.73
## 48 17.45 13.41 16.14
## 49 17.23 13.46 15.68
## 50 17.57 13.38 15.83##Covariance##
S=cov(data)
S## year white_median white_average black_median
## year 212.500000 23.5470408 48.295816 13.1001020
## white_median 23.547041 3.0809930 5.998806 1.8034079
## white_average 48.295816 5.9988059 12.032646 3.4499027
## black_median 13.100102 1.8034079 3.449903 1.1615217
## black_average 27.370102 3.4517564 6.882958 2.0622739
## white_men_median 11.265612 1.7661762 3.339165 1.1101975
## white_men_average 46.580510 5.9337331 11.883959 3.4510219
## black_men_median 2.716429 0.8030235 1.356538 0.5983582
## black_men_average 22.115714 2.9889630 5.928548 1.8346571
## white_women_median 34.144490 4.0454054 8.094272 2.3136569
## white_women_average 55.905816 6.5810633 13.269080 3.7380742
## black_women_median 20.949694 2.5338514 5.009406 1.5425389
## black_women_average 34.249286 4.0751805 8.164374 2.3838976
## black_average white_men_median white_men_average
## year 27.3701020 11.2656122 46.580510
## white_median 3.4517564 1.7661762 5.933733
## white_average 6.8829578 3.3391647 11.883959
## black_median 2.0622739 1.1101975 3.451022
## black_average 4.0228098 1.9789065 6.828708
## white_men_median 1.9789065 1.3358466 3.464049
## white_men_average 6.8287080 3.4640491 11.864141
## black_men_median 0.8781949 0.7739582 1.512264
## black_men_average 3.5011893 1.8847576 6.004177
## white_women_median 4.6243863 2.0710974 7.859000
## white_women_average 7.5640542 3.3618418 12.892778
## black_women_median 2.9486875 1.3613493 4.900234
## black_women_average 4.7348192 2.1364420 7.959902
## black_men_median black_men_average white_women_median
## year 2.7164286 22.1157143 34.144490
## white_median 0.8030235 2.9889630 4.045405
## white_average 1.3565378 5.9285478 8.094272
## black_median 0.5983582 1.8346571 2.313657
## black_average 0.8781949 3.5011893 4.624386
## white_men_median 0.7739582 1.8847576 2.071097
## white_men_average 1.5122643 6.0041774 7.859000
## black_men_median 0.7022949 0.9822408 0.699202
## black_men_average 0.9822408 3.2089585 3.815457
## white_women_median 0.6992020 3.8154572 5.685464
## white_women_average 1.1145602 6.2666607 9.228098
## black_women_median 0.5210439 2.4575479 3.526689
## black_women_average 0.7750153 3.9334318 5.689165
## white_women_average black_women_median black_women_average
## year 55.905816 20.9496939 34.2492857
## white_median 6.581063 2.5338514 4.0751805
## white_average 13.269080 5.0094059 8.1643741
## black_median 3.738074 1.5425389 2.3838976
## black_average 7.564054 2.9486875 4.7348192
## white_men_median 3.361842 1.3613493 2.1364420
## white_men_average 12.892778 4.9002339 7.9599023
## black_men_median 1.114560 0.5210439 0.7750153
## black_men_average 6.266661 2.4575479 3.9334318
## white_women_median 9.228098 3.5266887 5.6891647
## white_women_average 15.085223 5.7049845 9.2717933
## black_women_median 5.704985 2.3317547 3.6077748
## black_women_average 9.271793 3.6077748 5.7943633##Eigen Values,Vectors##
e=eigen(S)
e## eigen() decomposition
## $values
## [1] 2.723861e+02 5.433328e+00 4.407326e-01 2.083011e-01 1.380295e-01
## [6] 8.129111e-02 3.958583e-02 2.773334e-02 2.117545e-02 1.563342e-02
## [11] 1.234423e-02 1.662496e-03 1.304087e-04
##
## $vectors
## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] 0.88152934 0.38781526 0.07982065 -0.172765134 -0.16196464 -0.07702529
## [2,] 0.10014700 -0.23161820 -0.11919585 0.384533860 -0.20352546 -0.11576804
## [3,] 0.20413706 -0.33953610 0.26343301 0.295788206 0.17772328 -0.01510197
## [4,] 0.05632963 -0.19967616 -0.35830028 -0.130204257 -0.06069953 -0.13973344
## [5,] 0.11611839 -0.24252232 -0.10670245 -0.243493435 0.25207653 -0.05361255
## [6,] 0.04968713 -0.32370760 0.02256989 -0.096748429 -0.71998402 0.41789917
## [7,] 0.19788027 -0.44879325 0.44475804 -0.005571248 0.11808079 0.29208177
## [8,] 0.01412298 -0.32574066 -0.13075161 -0.126763398 -0.33909733 -0.68096048
## [9,] 0.09512433 -0.35139194 0.12021290 -0.463452816 0.29491483 -0.13825471
## [10,] 0.14302053 -0.08232654 -0.26681664 0.386015692 0.00101713 0.04663585
## [11,] 0.23406417 -0.12760744 -0.15419918 0.476828161 0.22802280 -0.06204436
## [12,] 0.08816798 -0.09693081 -0.53897630 -0.195436669 0.11176077 0.45334695
## [13,] 0.14373638 -0.11720817 -0.39361066 -0.061119426 0.18645254 0.06096039
## [,7] [,8] [,9] [,10] [,11]
## [1,] 0.05159220 0.01294749 -0.0150221065 0.01518511 -0.018608128
## [2,] 0.28382332 -0.06335228 -0.4709440848 0.45494920 -0.453004905
## [3,] -0.05189996 0.02701682 -0.0773672645 -0.26250457 0.055716115
## [4,] 0.51362252 -0.22530040 -0.2605380888 -0.17158129 0.613539649
## [5,] -0.25990254 -0.14221752 -0.0797603170 0.19564788 0.005527099
## [6,] -0.28754912 -0.30943290 0.0457641649 -0.09190591 0.027630796
## [7,] 0.19263524 0.45250288 0.0002433764 0.09022016 0.198660385
## [8,] -0.10815594 0.41766364 0.2220465245 -0.17917058 -0.111388090
## [9,] 0.09870043 -0.46411358 0.2173904425 0.13695391 -0.281167475
## [10,] 0.08836203 -0.05495831 0.7022699381 0.43502541 0.223665601
## [11,] -0.19927719 -0.29078061 0.0298253805 -0.50662527 -0.117201273
## [12,] 0.25636599 0.31737360 0.1149402536 -0.27012632 -0.404547269
## [13,] -0.57293669 0.21319276 -0.3030131103 0.26426202 0.236139282
## [,12] [,13]
## [1,] 0.022103749 -0.000549223
## [2,] -0.028496636 -0.007937479
## [3,] 0.712523476 0.255402042
## [4,] -0.008067117 0.005450648
## [5,] 0.253382576 -0.770687915
## [6,] 0.010795753 0.001982487
## [7,] -0.396527499 -0.125002013
## [8,] -0.036906684 -0.022751945
## [9,] -0.137916191 0.378037167
## [10,] 0.084027108 0.006855483
## [11,] -0.455794283 -0.136513291
## [12,] 0.140815367 0.003076785
## [13,] -0.119876263 0.403689724##for Separate Eigen Values##
eva=e$values
eva## [1] 2.723861e+02 5.433328e+00 4.407326e-01 2.083011e-01 1.380295e-01
## [6] 8.129111e-02 3.958583e-02 2.773334e-02 2.117545e-02 1.563342e-02
## [11] 1.234423e-02 1.662496e-03 1.304087e-04##for Separate Eigen Vectors##
eve=e$vectors
eve## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] 0.88152934 0.38781526 0.07982065 -0.172765134 -0.16196464 -0.07702529
## [2,] 0.10014700 -0.23161820 -0.11919585 0.384533860 -0.20352546 -0.11576804
## [3,] 0.20413706 -0.33953610 0.26343301 0.295788206 0.17772328 -0.01510197
## [4,] 0.05632963 -0.19967616 -0.35830028 -0.130204257 -0.06069953 -0.13973344
## [5,] 0.11611839 -0.24252232 -0.10670245 -0.243493435 0.25207653 -0.05361255
## [6,] 0.04968713 -0.32370760 0.02256989 -0.096748429 -0.71998402 0.41789917
## [7,] 0.19788027 -0.44879325 0.44475804 -0.005571248 0.11808079 0.29208177
## [8,] 0.01412298 -0.32574066 -0.13075161 -0.126763398 -0.33909733 -0.68096048
## [9,] 0.09512433 -0.35139194 0.12021290 -0.463452816 0.29491483 -0.13825471
## [10,] 0.14302053 -0.08232654 -0.26681664 0.386015692 0.00101713 0.04663585
## [11,] 0.23406417 -0.12760744 -0.15419918 0.476828161 0.22802280 -0.06204436
## [12,] 0.08816798 -0.09693081 -0.53897630 -0.195436669 0.11176077 0.45334695
## [13,] 0.14373638 -0.11720817 -0.39361066 -0.061119426 0.18645254 0.06096039
## [,7] [,8] [,9] [,10] [,11]
## [1,] 0.05159220 0.01294749 -0.0150221065 0.01518511 -0.018608128
## [2,] 0.28382332 -0.06335228 -0.4709440848 0.45494920 -0.453004905
## [3,] -0.05189996 0.02701682 -0.0773672645 -0.26250457 0.055716115
## [4,] 0.51362252 -0.22530040 -0.2605380888 -0.17158129 0.613539649
## [5,] -0.25990254 -0.14221752 -0.0797603170 0.19564788 0.005527099
## [6,] -0.28754912 -0.30943290 0.0457641649 -0.09190591 0.027630796
## [7,] 0.19263524 0.45250288 0.0002433764 0.09022016 0.198660385
## [8,] -0.10815594 0.41766364 0.2220465245 -0.17917058 -0.111388090
## [9,] 0.09870043 -0.46411358 0.2173904425 0.13695391 -0.281167475
## [10,] 0.08836203 -0.05495831 0.7022699381 0.43502541 0.223665601
## [11,] -0.19927719 -0.29078061 0.0298253805 -0.50662527 -0.117201273
## [12,] 0.25636599 0.31737360 0.1149402536 -0.27012632 -0.404547269
## [13,] -0.57293669 0.21319276 -0.3030131103 0.26426202 0.236139282
## [,12] [,13]
## [1,] 0.022103749 -0.000549223
## [2,] -0.028496636 -0.007937479
## [3,] 0.712523476 0.255402042
## [4,] -0.008067117 0.005450648
## [5,] 0.253382576 -0.770687915
## [6,] 0.010795753 0.001982487
## [7,] -0.396527499 -0.125002013
## [8,] -0.036906684 -0.022751945
## [9,] -0.137916191 0.378037167
## [10,] 0.084027108 0.006855483
## [11,] -0.455794283 -0.136513291
## [12,] 0.140815367 0.003076785
## [13,] -0.119876263 0.403689724##for Sorting##
Sort=order(eva,decreasing=TRUE)
Sort## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13##Sort Eigen Values##
eva=eva[Sort]
eva## [1] 2.723861e+02 5.433328e+00 4.407326e-01 2.083011e-01 1.380295e-01
## [6] 8.129111e-02 3.958583e-02 2.773334e-02 2.117545e-02 1.563342e-02
## [11] 1.234423e-02 1.662496e-03 1.304087e-04##Sort Eigen Vector##
eve=eve[,Sort]
eve## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] 0.88152934 0.38781526 0.07982065 -0.172765134 -0.16196464 -0.07702529
## [2,] 0.10014700 -0.23161820 -0.11919585 0.384533860 -0.20352546 -0.11576804
## [3,] 0.20413706 -0.33953610 0.26343301 0.295788206 0.17772328 -0.01510197
## [4,] 0.05632963 -0.19967616 -0.35830028 -0.130204257 -0.06069953 -0.13973344
## [5,] 0.11611839 -0.24252232 -0.10670245 -0.243493435 0.25207653 -0.05361255
## [6,] 0.04968713 -0.32370760 0.02256989 -0.096748429 -0.71998402 0.41789917
## [7,] 0.19788027 -0.44879325 0.44475804 -0.005571248 0.11808079 0.29208177
## [8,] 0.01412298 -0.32574066 -0.13075161 -0.126763398 -0.33909733 -0.68096048
## [9,] 0.09512433 -0.35139194 0.12021290 -0.463452816 0.29491483 -0.13825471
## [10,] 0.14302053 -0.08232654 -0.26681664 0.386015692 0.00101713 0.04663585
## [11,] 0.23406417 -0.12760744 -0.15419918 0.476828161 0.22802280 -0.06204436
## [12,] 0.08816798 -0.09693081 -0.53897630 -0.195436669 0.11176077 0.45334695
## [13,] 0.14373638 -0.11720817 -0.39361066 -0.061119426 0.18645254 0.06096039
## [,7] [,8] [,9] [,10] [,11]
## [1,] 0.05159220 0.01294749 -0.0150221065 0.01518511 -0.018608128
## [2,] 0.28382332 -0.06335228 -0.4709440848 0.45494920 -0.453004905
## [3,] -0.05189996 0.02701682 -0.0773672645 -0.26250457 0.055716115
## [4,] 0.51362252 -0.22530040 -0.2605380888 -0.17158129 0.613539649
## [5,] -0.25990254 -0.14221752 -0.0797603170 0.19564788 0.005527099
## [6,] -0.28754912 -0.30943290 0.0457641649 -0.09190591 0.027630796
## [7,] 0.19263524 0.45250288 0.0002433764 0.09022016 0.198660385
## [8,] -0.10815594 0.41766364 0.2220465245 -0.17917058 -0.111388090
## [9,] 0.09870043 -0.46411358 0.2173904425 0.13695391 -0.281167475
## [10,] 0.08836203 -0.05495831 0.7022699381 0.43502541 0.223665601
## [11,] -0.19927719 -0.29078061 0.0298253805 -0.50662527 -0.117201273
## [12,] 0.25636599 0.31737360 0.1149402536 -0.27012632 -0.404547269
## [13,] -0.57293669 0.21319276 -0.3030131103 0.26426202 0.236139282
## [,12] [,13]
## [1,] 0.022103749 -0.000549223
## [2,] -0.028496636 -0.007937479
## [3,] 0.712523476 0.255402042
## [4,] -0.008067117 0.005450648
## [5,] 0.253382576 -0.770687915
## [6,] 0.010795753 0.001982487
## [7,] -0.396527499 -0.125002013
## [8,] -0.036906684 -0.022751945
## [9,] -0.137916191 0.378037167
## [10,] 0.084027108 0.006855483
## [11,] -0.455794283 -0.136513291
## [12,] 0.140815367 0.003076785
## [13,] -0.119876263 0.403689724##Explained Variance##
Ev=eva/sum(eva)
Ev## [1] 9.769734e-01 1.948784e-02 1.580786e-03 7.471183e-04 4.950736e-04
## [6] 2.915687e-04 1.419834e-04 9.947181e-05 7.595048e-05 5.607274e-05
## [11] 4.427534e-05 5.962914e-06 4.677400e-07##for Scree Plot##
plot(Ev,xlab="Principal Component",ylab="Explained Variance",type="b")
## for Retain Components##
no_comp_to_retain=2
reduced_data=as.matrix(data)%*%eve[,1:no_comp_to_retain]
reduced_data## [,1] [,2]
## [1,] 1823.289 703.7947
## [2,] 1822.480 703.4126
## [3,] 1822.249 701.6662
## [4,] 1818.821 706.2465
## [5,] 1817.282 707.3185
## [6,] 1815.635 708.4780
## [7,] 1814.515 708.1829
## [8,] 1812.968 709.0804
## [9,] 1810.888 711.1361
## [10,] 1810.307 709.7830
## [11,] 1809.293 709.7022
## [12,] 1808.303 709.6200
## [13,] 1808.104 707.5237
## [14,] 1807.304 706.5477
## [15,] 1805.472 708.1912
## [16,] 1804.589 707.9419
## [17,] 1803.499 707.7947
## [18,] 1802.317 708.0239
## [19,] 1801.907 706.2020
## [20,] 1800.988 706.1006
## [21,] 1799.817 706.1021
## [22,] 1798.329 706.8773
## [23,] 1796.831 707.4279
## [24,] 1795.411 707.9019
## [25,] 1793.822 709.1582
## [26,] 1791.833 711.1990
## [27,] 1790.286 712.2032
## [28,] 1789.449 711.5606
## [29,] 1788.655 711.0058
## [30,] 1787.458 711.0495
## [31,] 1786.379 710.9294
## [32,] 1785.412 710.4463
## [33,] 1784.351 710.1190
## [34,] 1783.460 709.6156
## [35,] 1783.161 707.5557
## [36,] 1781.997 707.4866
## [37,] 1780.886 707.2465
## [38,] 1779.281 708.3544
## [39,] 1778.073 708.4015
## [40,] 1777.073 708.1230
## [41,] 1776.084 707.7809
## [42,] 1775.048 707.3188
## [43,] 1774.314 706.5072
## [44,] 1773.881 704.9979
## [45,] 1772.658 705.1882
## [46,] 1771.606 705.5582
## [47,] 1770.834 704.8892
## [48,] 1769.479 705.2704
## [49,] 1768.452 705.0337
## [50,] 1768.026 703.6761