# R-programming-statistics

R is a programming language possesses an extensive catalog of statistical and graphical methods. It includes machine learning algorithm, linear regression, time series, statistical inference to name a few. Most of the R libraries are written in R,but many large companies also use R programming language, including Uber, Google, Airbnb, Facebook and so on

## Email subscriptions

Delivered by FeedBurner

## How to calculate assets & market value in the world's biggest companies.

data("Forbes2000", package = "HSAUR3")
> summary(Forbes2000)
rank            name
Min.   :   1.0   Length:2000
1st Qu.: 500.8   Class :character
Median :1000.5   Mode  :character
Mean   :1000.5
3rd Qu.:1500.2
Max.   :2000.0

country                      category
United States :751   Banking               : 313
Japan         :316   Diversified financials: 158
United Kingdom:137   Insurance             : 112
Germany       : 65   Utilities             : 110
France        : 63   Materials             :  97
Canada        : 56   Oil & gas operations  :  90
(Other)       :612   (Other)               :1120
sales            profits
Min.   :  0.010   Min.   :-25.8300
1st Qu.:  2.018   1st Qu.:  0.0800
Median :  4.365   Median :  0.2000
Mean   :  9.697   Mean   :  0.3811
3rd Qu.:  9.547   3rd Qu.:  0.4400
Max.   :256.330   Max.   : 20.9600
NA's   :5
assets          marketvalue
Min.   :   0.270   Min.   :  0.02
1st Qu.:   4.025   1st Qu.:  2.72
Median :   9.345   Median :  5.15
Mean   :  34.042   Mean   : 11.88
3rd Qu.:  22.793   3rd Qu.: 10.60
Max.   :1264.030   Max.   :328.54

> length(levels(Forbes2000\$country))
[1] 61
> length(levels(Forbes2000\$category))
[1] 27
> ls()
[1] "a"          "b"          "bench"
[4] "BS_surface" "c"          "CIR_pdf"
[7] "delta"      "dnt1"       "fga2008"
[10] "Forbes2000" "gamma"      "Gamma"
[13] "GetGreeks"  "i"          "KO"
[16] "m1"         "n"          "passData"
[19] "rho"        "server"     "theta"
[22] "ui"         "v"          "vanilla"
[25] "vega"       "w"          "x"
[28] "y"          "z"
> x
[1] 0.9202000 0.9203990 0.9205980 0.9207970
[5] 0.9209960 0.9211950 0.9213940 0.9215930
[9] 0.9217920 0.9219910 0.9221899 0.9223889
[13] 0.9225879 0.9227869 0.9229859 0.9231849
[17] 0.9233839 0.9235829 0.9237819 0.9239809
[21] 0.9241799 0.9243789 0.9245779 0.9247769
[25] 0.9249759 0.9251749 0.9253739 0.9255729
[29] 0.9257719 0.9259709 0.9261698 0.9263688
[33] 0.9265678 0.9267668 0.9269658 0.9271648
[37] 0.9273638 0.9275628 0.9277618 0.9279608
[41] 0.9281598 0.9283588 0.9285578 0.9287568
[45] 0.9289558 0.9291548 0.9293538 0.9295528
[49] 0.9297518 0.9299508 0.9301497 0.9303487
[53] 0.9305477 0.9307467 0.9309457 0.9311447
[57] 0.9313437 0.9315427 0.9317417 0.9319407
[61] 0.9321397 0.9323387 0.9325377 0.9327367
[65] 0.9329357 0.9331347 0.9333337 0.9335327
[69] 0.9337317 0.9339307 0.9341296 0.9343286
[73] 0.9345276 0.9347266 0.9349256 0.9351246
[77] 0.9353236 0.9355226 0.9357216 0.9359206
[81] 0.9361196 0.9363186 0.9365176 0.9367166
[85] 0.9369156 0.9371146 0.9373136 0.9375126
[89] 0.9377116 0.9379106 0.9381095 0.9383085
[93] 0.9385075 0.9387065 0.9389055 0.9391045
[97] 0.9393035 0.9395025 0.9397015 0.9399005
[101] 0.9400995 0.9402985 0.9404975 0.9406965
[105] 0.9408955 0.9410945 0.9412935 0.9414925
[109] 0.9416915 0.9418905 0.9420894 0.9422884
[113] 0.9424874 0.9426864 0.9428854 0.9430844
[117] 0.9432834 0.9434824 0.9436814 0.9438804
[121] 0.9440794 0.9442784 0.9444774 0.9446764
[125] 0.9448754 0.9450744 0.9452734 0.9454724
[129] 0.9456714 0.9458704 0.9460693 0.9462683
[133] 0.9464673 0.9466663 0.9468653 0.9470643
[137] 0.9472633 0.9474623 0.9476613 0.9478603
[141] 0.9480593 0.9482583 0.9484573 0.9486563
[145] 0.9488553 0.9490543 0.9492533 0.9494523
[149] 0.9496513 0.9498503 0.9500492 0.9502482
[153] 0.9504472 0.9506462 0.9508452 0.9510442
[157] 0.9512432 0.9514422 0.9516412 0.9518402
[161] 0.9520392 0.9522382 0.9524372 0.9526362
[165] 0.9528352 0.9530342 0.9532332 0.9534322
[169] 0.9536312 0.9538302 0.9540291 0.9542281
[173] 0.9544271 0.9546261 0.9548251 0.9550241
[177] 0.9552231 0.9554221 0.9556211 0.9558201
[181] 0.9560191 0.9562181 0.9564171 0.9566161
[185] 0.9568151 0.9570141 0.9572131 0.9574121
[189] 0.9576111 0.9578101 0.9580090 0.9582080
[193] 0.9584070 0.9586060 0.9588050 0.9590040
[197] 0.9592030 0.9594020 0.9596010 0.9598000
> print(Forbes2000)
rank                       name
1      1                  Citigroup
2      2           General Electric
3      3        American Intl Group
4      4                 ExxonMobil
5      5                         BP
6      6            Bank of America
7      7                 HSBC Group
8      8               Toyota Motor
9      9                 Fannie Mae
10    10            Wal-Mart Stores
11    11                        UBS
12    12                  ING Group
13    13    Royal Dutch/Shell Group
14    14         Berkshire Hathaway
15    15            JP Morgan Chase
16    16                        IBM
17    17                      Total
18    18                BNP Paribas
19    19     Royal Bank of Scotland
20    20                Freddie Mac
21    21            DaimlerChrysler
22    22               Altria Group
23    23              ChevronTexaco
24    24                     Pfizer
25    25                Wells Fargo
26    26             Verizon Commun
27    27                   Barclays
28    28             Morgan Stanley
29    29             General Motors
30    30           Nippon Tel & Tel
31    31                  Microsoft
32    32                     Nestle
33    33         SBC Communications
34    34        Deutsche Bank Group
35    35              Siemens Group
36    36                       HBOS
37    37                        ENI
38    38             ConocoPhillips
39    39    Banco Santander Central
40    40              Merrill Lynch
41    41                   Wachovia
42    42                Time Warner
43    43            Hewlett-Packard
44    44           Procter & Gamble
45    45        Samsung Electronics
46    46          Johnson & Johnson
47    47           Lloyds TSB Group
48    48           ABN-Amro Holding
49    49                Honda Motor
50    50           American Express
51    51               Nissan Motor
52    52                   Bank One
53    53                  AXA Group
54    54     Societe Generale Group
55    55                 PetroChina
56    56        Goldman Sachs Group
57    57  BBVA-Banco Bilbao Vizcaya
58    58                      Intel
59    59                    MetLife
60    60                 Home Depot
61    61                     Viacom
62    62                   Allstate
63    63                 Merck & Co
64    64             Novartis Group
65    65                       ENEL
66    66                   Unilever
67    67          Washington Mutual
68    68            Credit Agricole
69    69              Deutsche Post
70    70                    Comcast
71    71           Volkswagen Group
72    72       Tokyo Electric Power
73    73                  Munich Re
74    74       BMW-Bayerische Motor
75    75                 Ford Motor
76    76         Tyco International
77    77                 US Bancorp
78    78                Roche Group
79    79       Royal Bank of Canada
80    80            GlaxoSmithKline
81    81 China Petroleum & Chemical
82    82                       Sony
83    83                      Nokia
84    84                  BellSouth
85    85                Walt Disney
86    86        Natl Australia Bank
87    87                    Gazprom
88    88            Carrefour Group
89    89              Cisco Systems
90    90           FleetBoston Finl
91    91                  RWE Group
92    92        UniCredito Italiano
93    93                   BT Group
94    94      United Parcel Service
95    95        United Technologies
96    96                     Fortis
97    97               Dow Chemical
98    98      Aegon Insurance Group
99    99                      Dexia
100  100              Renault Group
101  101                     Target
102  102                  Coca-Cola
103  103       Lehman Bros Holdings
104  104                    PepsiCo
105  105                 Prudential
106  106        Bank of Nova Scotia
107  107                     Boeing
108  108                    Aventis
109  109                 Repsol-YPF
110  110                  News Corp
111  111                 BASF Group
112  112     China Mobile (HK) Hong
113  113                       Dell
114  114             Peugeot Groupe
115  115               Endesa Group
116  116                       AT&T
117  117              Statoil Group
118  118       Bristol-Myers Squibb
119  119                AstraZeneca
120  120                      Tesco
121  121        Abbott Laboratories
122  122               BHP Billiton
123  123                Bayer Group
124  124       Prudential Financial
125  125                       MBNA
country
1                 United States
2                 United States
3                 United States
4                 United States
5                United Kingdom
6                 United States
7                United Kingdom
8                         Japan
9                 United States
10                United States
11                  Switzerland
12                  Netherlands
13  Netherlands/ United Kingdom
14                United States
15                United States
16                United States
17                       France
18                       France
19               United Kingdom
20                United States
21                      Germany
22                United States
23                United States
24                United States
25                United States
26                United States
27               United Kingdom
28                United States
29                United States
30                        Japan
31                United States
32                  Switzerland
33                United States
34                      Germany
35                      Germany
36               United Kingdom
37                        Italy
38                United States
39                        Spain
40                United States
41                United States
42                United States
43                United States
44                United States
45                  South Korea
46                United States
47               United Kingdom
48                  Netherlands
49                        Japan
50                United States
51                        Japan
52                United States
53                       France
54                       France
55                        China
56                United States
57                        Spain
58                United States
59                United States
60                United States
61                United States
62                United States
63                United States
64                  Switzerland
65                        Italy
66  Netherlands/ United Kingdom
67                United States
68                       France
69                      Germany
70                United States
71                      Germany
72                        Japan
73                      Germany
74                      Germany
75                United States
76                      Bermuda
77                United States
78                  Switzerland
80               United Kingdom
81                        China
82                        Japan
83                      Finland
84                United States
85                United States
86                    Australia
87                       Russia
88                       France
89                United States
90                United States
91                      Germany
92                        Italy
93               United Kingdom
94                United States
95                United States
96                  Netherlands
97                United States
98                  Netherlands
99                      Belgium
100                      France
101               United States
102               United States
103               United States
104               United States
105              United Kingdom
107               United States
108                      France
109                       Spain
110                   Australia
111                     Germany
112                  Kong/China
113               United States
114                      France
115                       Spain
116               United States
117                      Norway
118               United States
119              United Kingdom
120              United Kingdom
121               United States
122   Australia/ United Kingdom
123                     Germany
124               United States
125               United States

### category            sales    profits

1                           Banking  94.71   17.85
2                     Conglomerates 134.19   15.59
3                         Insurance  76.66    6.46
4              Oil & gas operations 222.88   20.96
5              Oil & gas operations 232.57   10.27
6                           Banking  49.01   10.81
7                           Banking  44.33    6.66
8                 Consumer durables 135.82    7.99
9            Diversified financials  53.13    6.48
10                        Retailing 256.33    9.05
11           Diversified financials  48.95    5.15
12           Diversified financials  94.72    4.73
13             Oil & gas operations 133.50    8.40
14                        Insurance  56.22    6.95
15                          Banking  44.39    4.47
16  Technology hardware & equipment  89.13    7.58
17             Oil & gas operations 131.64    8.84
18                          Banking  47.74    4.73
19                          Banking  35.65    4.95
20           Diversified financials  46.26   10.09
21                Consumer durables 157.13    5.12
22             Food drink & tobacco  60.70    9.20
23             Oil & gas operations 112.94    7.43
24            Drugs & biotechnology  40.36    6.20
25                          Banking  31.80    6.20
26      Telecommunications services  67.75    2.57
27                          Banking  33.69    4.90
28           Diversified financials  33.00    3.64
29                Consumer durables 185.52    3.82
30      Telecommunications services  92.41    2.17
31              Software & services  34.27    8.88
32             Food drink & tobacco  64.56    5.48
33      Telecommunications services  39.16    5.97
34           Diversified financials  58.85    1.53
35                    Conglomerates  86.62    2.81
36                          Banking  32.68    3.09
37             Oil & gas operations  53.29    4.82
38             Oil & gas operations  90.49    4.83
39                          Banking  28.70    3.28
40           Diversified financials  26.64    3.47
41                          Banking  24.47    4.25
42                            Media  38.08    2.65
43  Technology hardware & equipment  73.06    2.54
44    Household & personal products  46.99    5.81
45                   Semiconductors  50.22    5.95
46            Drugs & biotechnology  40.01    6.74
47                          Banking  24.48    2.87
48                          Banking  23.64    3.98
49                Consumer durables  67.44    3.61
50           Diversified financials  24.17    3.00
51                Consumer durables  57.77    4.19
52                          Banking  21.04    3.40
53                        Insurance  90.10    1.00
54                          Banking  35.52    1.61
55             Oil & gas operations  29.53    5.67
56           Diversified financials  22.84    2.54
57                          Banking  24.10    2.81
58                   Semiconductors  30.14    5.64
59                        Insurance  35.79    2.24
60                        Retailing  62.90    4.04
61                            Media  25.85    2.47
62                        Insurance  32.15    2.73
63            Drugs & biotechnology  30.78    7.33
64            Drugs & biotechnology  26.77    5.40
65                        Utilities  38.99    2.11
66             Food drink & tobacco  50.70    2.24
67                          Banking  18.01    3.88
68                          Banking  31.77    1.12
69                   Transportation  41.23    1.64
70                            Media  18.35    3.24
71                Consumer durables  91.33    2.71
72                        Utilities  41.62    1.40
73                        Insurance  45.85    1.14
74                Consumer durables  52.23    2.12
75                Consumer durables 164.20    0.76
76                    Conglomerates  37.57    1.19
77                          Banking  14.57    3.73
78            Drugs & biotechnology  25.18    2.48
79                          Banking  18.82    2.28
80            Drugs & biotechnology  34.16    6.34
81             Oil & gas operations  39.16    1.94
82                Consumer durables  63.23    0.98
83  Technology hardware & equipment  37.05    4.52
84      Telecommunications services  22.58    3.59
85                            Media  28.44    1.92
86                          Banking  15.34    2.69
87             Oil & gas operations  19.21    3.81
88                     Food markets  96.94    1.45
89  Technology hardware & equipment  19.82    4.35
90                          Banking  14.22    2.13
91                        Utilities  45.68    1.10
92                          Banking  16.53    1.89
93      Telecommunications services  29.58    4.24
94                   Transportation  32.81    3.54
95                    Conglomerates  31.03    2.36
96           Diversified financials  52.51    0.56
97                        Chemicals  32.63    1.74
98                        Insurance  17.75    1.63
99                          Banking  19.62    1.36
100               Consumer durables  38.17    2.05
101                       Retailing  46.65    1.70
102            Food drink & tobacco  21.03    4.35
103          Diversified financials  17.10    1.47
104            Food drink & tobacco  26.97    3.49
105                       Insurance  38.22    0.72
106                         Banking  13.09    1.88
107             Aerospace & defense  50.49    0.70
108           Drugs & biotechnology  21.66    2.29
109            Oil & gas operations  29.14    2.05
110                           Media  20.16    1.22
111                       Chemicals  33.84    1.58
112     Telecommunications services  15.53    3.96
113 Technology hardware & equipment  41.44    2.65
114               Consumer durables  68.23    1.89
115                       Utilities  20.43    1.65
116     Telecommunications services  34.53    1.85
117            Oil & gas operations  35.02    2.36
118           Drugs & biotechnology  19.89    2.90
119           Drugs & biotechnology  20.46    3.29
120                    Food markets  41.48    1.49
121           Drugs & biotechnology  18.99    2.44
122                       Materials  17.86    2.13
123                       Chemicals  30.42    1.11
124                       Insurance  27.73    0.50
125          Diversified financials  11.38    2.17

### assets marketvalue

1   1264.03      255.30
2    626.93      328.54
3    647.66      194.87
4    166.99      277.02
5    177.57      173.54
6    736.45      117.55
7    757.60      177.96
8    171.71      115.40
9   1019.17       76.84
10   104.91      243.74
11   853.23       85.07
12   752.49       54.59
13   100.72      163.45
14   172.24      141.14
15   792.70       81.94
16   104.46      171.54
17    87.84      116.64
18   745.09       59.29
19   663.45       90.21
20   752.25       44.25
21   195.58       47.43
22    96.18      111.02
23    82.36       92.49
24   120.06      285.27
25   387.80       97.53
26   165.97      103.97
27   791.54       61.33
28   580.63       64.81
29   450.00       27.47
30   150.87       73.00
31    85.94      287.02
32    62.15      106.55
33   100.17       82.93
34   792.49       50.23
35    85.47       75.77
36   571.76       52.87
37    67.91       76.13
38    81.95       46.72
39   442.24       56.78
40   485.77       57.52
41   400.87       62.35
42   121.78       77.95
43    74.71       70.20
44    53.86      131.89
45    54.58       72.72
46    46.66      160.96
47   406.99       48.11
48   704.95       39.29
49    63.09       40.61
50   175.00       68.89
51    60.56       41.71
52   290.01       58.38
53   456.13       41.39
54   526.54       40.61
55    58.36       90.49
56   394.14       50.12
57   288.80       44.67
58    47.14      196.87
59   326.84       26.34
60    35.37       82.29
61    90.94       68.66
62   134.14       32.90
63    42.59      108.76
64    46.92      116.43
65    71.36       46.84
66    45.49       72.19
67   275.18       39.69
68   531.01       38.80
69   169.33       26.83
70   109.16       67.30
71   112.87       17.42
72   116.68       30.63
73   191.33       26.63
74    58.11       29.03
75   312.56       26.29
76    62.80       58.41
77   189.29       52.88
78    45.77       95.38
79   305.01       31.82
80    29.19      124.79
81    45.32       50.09
82    68.04       38.00
83    29.15      104.30
84    49.62       54.08
85    51.52       55.06
86   269.94       36.51
87    77.15       36.28
88    40.11       37.19
89    36.59      166.09
90   196.40       47.19
91    97.35       23.76
92   223.60       33.53
93    44.42       28.73
94    28.37       79.62
95    34.65       48.77
96   507.98       30.19
97    41.89       39.85
98   266.59       23.49
99   368.37       21.64
100   54.04       19.64
101   31.42       37.52
102   27.34      125.37
103  291.64       23.01
104   25.33       86.73
105  242.97       18.84
106  216.00       26.46
107   52.99       35.54
108   31.06       62.98
109   39.34       26.22
110   45.65       55.43
111   35.59       30.00
112   34.36       67.08
113   19.31       88.46
114   58.34       12.36
115   57.92       21.10
116   47.99       15.84
117   29.01       23.55
118   26.53       56.05
119   23.57       83.03
120   25.90       33.99
121   26.15       69.27
122   28.43       57.43
123   42.78       21.90
124  325.77       24.92
125   58.71       35.71
[ reached 'max' / getOption("max.print") -- omitted 1875 rows ]

> median(Forbes2000[,"sales"])
[1] 4.365
> mean(Forbes2000[,"sales"])
[1] 9.69701
> range(Forbes2000[,"sales"])
[1]   0.01 256.33
>
> summary(Forbes2000[,"sales"])
Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
0.010   2.018   4.365   9.697   9.547 256.330
> summary(Forbes2000)
rank            name
Min.   :   1.0   Length:2000
1st Qu.: 500.8   Class :character
Median :1000.5   Mode  :character
Mean   :1000.5
3rd Qu.:1500.2
Max.   :2000.0

country                      category
United States :751   Banking               : 313
Japan         :316   Diversified financials: 158
United Kingdom:137   Insurance             : 112
Germany       : 65   Utilities             : 110
France        : 63   Materials             :  97
Canada        : 56   Oil & gas operations  :  90
(Other)       :612   (Other)               :1120
sales            profits
Min.   :  0.010   Min.   :-25.8300
1st Qu.:  2.018   1st Qu.:  0.0800
Median :  4.365   Median :  0.2000
Mean   :  9.697   Mean   :  0.3811
3rd Qu.:  9.547   3rd Qu.:  0.4400
Max.   :256.330   Max.   : 20.9600
NA's   :5
assets          marketvalue
Min.   :   0.270   Min.   :  0.02
1st Qu.:   4.025   1st Qu.:  2.72
Median :   9.345   Median :  5.15
Mean   :  34.042   Mean   : 11.88
3rd Qu.:  22.793   3rd Qu.: 10.60
Max.   :1264.030   Max.   :328.54