forbes <-
structure(list(Company = c("AirProducts", "AlliedSignal", "AmericanElectricPower", 
"AmericanSavingsBankFSB", "AmericanAirlines", "AppleComputer", 
"ArmstrongWorldIndustries", "BallyManufacturing", "BankSouth", 
"BellAtlantic", "H&RBlock", "BrooklynUnionGas", "CaliforniaFirstBank", 
"CBIIndustries", "CentralIllinoisPublicService", "Cigna", "ClevelandElectricIlluminating", 
"ColumbiaGasSystem", "CommunityPsychiatricCenters", "ContinentalTelecom", 
"CrownCork&Seal", "Dayton-Hudson", "DigitalEquipment", "DillardDepartmentStores", 
"Dreyfus", "Eg&G", "Ex-Cell-O", "FirstAmerican", "FirstEmpireState", 
"FirstTennesseeNational", "FloridaProgress", "Fruehauf", "GeneralElectric", 
"GiantFood", "GreatA&PTea", "Halliburton", "Hewlett-Packard", 
"HospitalCorpofAmerica", "IdahoPower", "IBM", "IUInternational", 
"KansasPower&Light", "Kroger", "LizClaiborne", "LTV", "MarineCorp", 
"MayDepartmentStores", "MellonBank", "MesaPetroleum", "MontanaPower", 
"NationalCity", "NCR", "NorstarBancorp", "Norwest", "Owens-CorningFiberglas", 
"PanAm", "PeoplesEnergy", "PhillipsPetroleum", "PPGIndustries", 
"PublicServiceCoofNewMexico", "RepublicAirlines", "AHRobins", 
"SanDiegoGas&Electric", "SharedMedicalSystems", "SoutheastBanking", 
"SovranFinancial", "Stop&ShoCos", "SupermarketsGeneral", "Telex", 
"Textron", "TWA", "Turner", "UnitedFinancialGroup", "UnitedTechnologies", 
"ValeroEnergy", "WarnerCommunications", "WesternAirLines", "WickesCos", 
"FWWoolworth"), Assets = c(2687L, 13271L, 13621L, 3614L, 6425L, 
1022L, 1093L, 1529L, 2788L, 19788L, 327L, 1117L, 5401L, 1128L, 
1633L, 44736L, 5651L, 5835L, 278L, 5074L, 866L, 4418L, 6914L, 
862L, 401L, 430L, 799L, 4789L, 2548L, 5249L, 3494L, 1804L, 26432L, 
623L, 1608L, 4662L, 5769L, 6259L, 1654L, 52634L, 999L, 1679L, 
4178L, 223L, 6307L, 3720L, 3442L, 33406L, 1257L, 1743L, 12505L, 
3940L, 8998L, 21419L, 2366L, 2448L, 1440L, 14045L, 4084L, 3010L, 
1286L, 707L, 3086L, 252L, 11052L, 9672L, 1112L, 1104L, 478L, 
10348L, 2769L, 752L, 4989L, 10528L, 1995L, 2286L, 952L, 2957L, 
2535L), Sales = c(1870L, 9115L, 4848L, 367L, 6131L, 1754L, 1679L, 
1295L, 271L, 9084L, 542L, 1038L, 550L, 1516L, 701L, 16197L, 1254L, 
4053L, 205L, 2557L, 1487L, 8793L, 7029L, 1601L, 176L, 1155L, 
1140L, 453L, 264L, 527L, 1653L, 2564L, 28285L, 2247L, 6615L, 
4781L, 6571L, 4152L, 451L, 50056L, 1878L, 1354L, 17124L, 557L, 
8199L, 356L, 5080L, 3222L, 355L, 597L, 1302L, 4317L, 882L, 2516L, 
3305L, 3484L, 1617L, 15636L, 4346L, 749L, 1734L, 706L, 1739L, 
312L, 1097L, 1037L, 3689L, 5123L, 672L, 5721L, 3725L, 2149L, 
518L, 14992L, 2662L, 2235L, 1307L, 2806L, 5958L), Market_Value = c(1890L, 
8190L, 4572L, 90L, 2448L, 1370L, 1070L, 444L, 304L, 10636L, 959L, 
478L, 376L, 430L, 679L, 4653L, 2002L, 1601L, 853L, 1892L, 944L, 
4459L, 7957L, 1093L, 1084L, 1045L, 683L, 367L, 181L, 346L, 1442L, 
483L, 33172L, 797L, 829L, 2988L, 9462L, 3090L, 779L, 95697L, 
393L, 687L, 2091L, 1040L, 598L, 211L, 2673L, 1413L, 181L, 717L, 
702L, 3940L, 988L, 930L, 1117L, 1036L, 639L, 2754L, 3023L, 1120L, 
361L, 275L, 1507L, 883L, 606L, 829L, 542L, 910L, 866L, 1915L, 
663L, 101L, 53L, 5377L, 341L, 2306L, 309L, 457L, 1921L), Profits = c(145.7, 
-279, 485, 14.1, 345.8, 72, 100.9, 25.6, 23.5, 1092.9, 54.1, 
59.7, 25.6, -47, 74.3, -732.5, 310.7, -93.8, 44.8, 239.9, 71.7, 
283.6, 400.6, 66.9, 55.6, 55.7, 57.6, 40.2, 22.2, 37.8, 160.9, 
70.5, 2336, 57, 56.1, 28.7, 482, 283.7, 84.8, 6555, -173.5, 93.8, 
180.8, 60.6, -771.5, 26.6, 235.4, 201.7, 167.5, 121.6, 108.4, 
315.2, 93, 107.6, 131.2, 48.8, 81.7, 418, 302.7, 146.3, 69.2, 
61.4, 202.7, 41.7, 64.9, 92.6, 30.3, 63.7, 67.1, 223.6, -208.4, 
11.1, -3.1, 312.7, 34.7, 195.3, 35.4, 40.6, 177), Cash_Flow = c(352.2, 
83, 898.9, 24.6, 682.5, 119.5, 164.5, 137, 28.9, 2576.8, 72.5, 
91.7, 37.5, 26.7, 135.9, -651.9, 407.9, 173.8, 50.5, 578.3, 115.4, 
456.5, 754.7, 106.8, 57, 70.8, 89.2, 51.4, 26.2, 56.2, 320.3, 
164.9, 3562, 93.8, 134, 371.5, 792, 524.5, 130.4, 9874, -108.1, 
154.6, 390.4, 63.7, -524.3, 34.8, 361.5, 246.7, 304, 172.4, 131.4, 
566.3, 119, 164.7, 256.5, 257.1, 126.4, 1462, 521.7, 209.2, 145.7, 
77.8, 335.2, 60.6, 97.6, 118.2, 96.9, 133.3, 101.6, 322.5, 12.4, 
15.2, -0.3, 710.7, 100.7, 219, 92.8, 93.5, 288), Employees = c(18.2, 
143.8, 23.4, 1.1, 49.5, 4.8, 20.8, 19.4, 2.1, 79.4, 2.8, 3.8, 
4.1, 13.2, 2.8, 48.5, 6.2, 10.8, 3.8, 21.9, 12.6, 128, 87.3, 
16, 0.7, 22.5, 15.4, 3, 2.1, 4.1, 6.4, 26.6, 304, 18.6, 65, 66.2, 
83, 62, 1.6, 400.2, 23.3, 4.6, 164.6, 1.9, 57.5, 2.4, 77.3, 15.8, 
0.6, 3.5, 9, 62, 7.4, 15.6, 25.2, 25.4, 3.5, 27.3, 37.5, 3.4, 
14.3, 6.1, 4.9, 3.3, 7, 8.2, 43.5, 48.5, 5.4, 49.5, 29.1, 2.6, 
0.8, 184.8, 2.3, 8, 10.3, 50, 118.1), Sector = c("Other", "Other", 
"Energy", "Finance", "Transportation", "HiTech", "Manufacturing", 
"Other", "Finance", "Communication", "Finance", "Energy", "Finance", 
"Manufacturing", "Energy", "Finance", "Energy", "Energy", "Medical", 
"Communication", "Other", "Retail", "HiTech", "Retail", "Finance", 
"HiTech", "Other", "Finance", "Finance", "Finance", "Energy", 
"Manufacturing", "HiTech", "Retail", "Retail", "Manufacturing", 
"HiTech", "Medical", "Energy", "HiTech", "Transportation", "Energy", 
"Retail", "Other", "Manufacturing", "Finance", "Retail", "Finance", 
"Energy", "Energy", "Finance", "HiTech", "Finance", "Finance", 
"Manufacturing", "Transportation", "Energy", "Energy", "Manufacturing", 
"Energy", "Transportation", "Medical", "Energy", "Medical", "Finance", 
"Finance", "Retail", "Retail", "HiTech", "Manufacturing", "Transportation", 
"Manufacturing", "Finance", "Manufacturing", "Energy", "Other", 
"Transportation", "Retail", "Retail")), .Names = c("Company", 
"Assets", "Sales", "Market_Value", "Profits", "Cash_Flow", "Employees", 
"Sector"), class = "data.frame", row.names = c(NA, -79L))