data("Forbes2000", package = "HSAUR2")
summary(Forbes2000)
### number of countries
length(levels(Forbes2000$country))
### number of industries
length(levels(Forbes2000$category))
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(HSAUR2)
Loading required package: tools
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/HSAUR2/Forbes2000.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Forbes2000
> ### Title: The Forbes 2000 Ranking of the World's Biggest Companies (Year
> ### 2004)
> ### Aliases: Forbes2000
> ### Keywords: datasets
>
> ### ** Examples
>
> data("Forbes2000", package = "HSAUR2")
> summary(Forbes2000)
rank name country
Min. : 1.0 Length:2000 United States :751
1st Qu.: 500.8 Class :character Japan :316
Median :1000.5 Mode :character United Kingdom:137
Mean :1000.5 Germany : 65
3rd Qu.:1500.2 France : 63
Max. :2000.0 Canada : 56
(Other) :612
category sales profits
Banking : 313 Min. : 0.010 Min. :-25.8300
Diversified financials: 158 1st Qu.: 2.018 1st Qu.: 0.0800
Insurance : 112 Median : 4.365 Median : 0.2000
Utilities : 110 Mean : 9.697 Mean : 0.3811
Materials : 97 3rd Qu.: 9.547 3rd Qu.: 0.4400
Oil & gas operations : 90 Max. :256.330 Max. : 20.9600
(Other) :1120 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
> ### number of countries
> length(levels(Forbes2000$country))
[1] 61
> ### number of industries
> length(levels(Forbes2000$category))
[1] 27
>
>
>
>
>
> dev.off()
null device
1
>