"“,”gdp“,”energy" “Austria”,45451,30633 “Belgium”,62049,58894 “Cyprus”,2003,1211 “Denmark”,34540,27049 “Finland”,28388,26405 “France”,358675,233907 “Greece”,38039,20119 “Iceland”,1331,1124 “Ireland”,11788,11053 “Italy”,265863,192453 “Malta”,1251,456 “Netherlands”,82804,84416 “Norway”,27914,26086 “Portugal”,30642,12080 “Spain”,159602,88148 “Sweden”,59350,45132 “Switzerland”,42238,23234 “Turkey”,91946,32619 “UK”,279191,268056 “WGermany”,428888,352677 > summary (EuroEnergy) …1 gdp
Length:20 Min. : 1251
Class :character 1st Qu.: 28270
Mode :character Median : 43844
Mean :102598
3rd Qu.:108860
Max. :428888
energy
Min. : 456
1st Qu.: 18109
Median : 28841
Mean : 76788
3rd Qu.: 85349
Max. :352677
> > mean = mean(EuroEnergy&gdp)

[1] 76787.6 > mean = mean(EuroEnergy&energy) > print(mean)

[1] 76787.6 > median = median(EuroEnergy&gdp) > print(median)

[1] 43844.5 > median = median(EuroEnergy&energy) > print(median)

[1] 43844.5

subset.data.frame(EuroEnergy, gdp & energy) # A tibble: 20 × 3 …1 gdp energy 1 Austria 45451 30633 2 Belgium 62049 58894 3 Cyprus 2003 1211 4 Denmark 34540 27049 5 Finland 28388 26405 6 France 358675 233907 7 Greece 38039 20119 8 Iceland 1331 1124 9 Ireland 11788 11053 10 Italy 265863 192453 11 Malta 1251 456 12 Netherlands 82804 84416 13 Norway 27914 26086 14 Portugal 30642 12080 15 Spain 159602 88148 16 Sweden 59350 45132 17 Switzerland 42238 23234 18 Turkey 91946 32619 19 UK 279191 268056 20 WGermany 428888 352677

save.image(“~/Dropbox/Mac/Downloads/hw 2.RData”) data.frame(…1=1:20, gdp=1:20, energy=1:20) …1 gdp energy 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 5 5 5 5 6 6 6 6 7 7 7 7 8 8 8 8 9 9 9 9 10 10 10 10 11 11 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 15 15 15 16 16 16 16 17 17 17 17 18 18 18 18 19 19 19 19 20 20 20 20

“…1” “gdp” “energy” Error: unexpected string constant in "“…1” “gdp”" d <- data.frame(…1=1:20, gdp=1:20, energy=1:20) d …1 gdp energy 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 5 5 5 5 6 6 6 6 7 7 7 7 8 8 8 8 9 9 9 9 10 10 10 10 11 11 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 15 15 15 16 16 16 16 17 17 17 17 18 18 18 18 19 19 19 19 20 20 20 20 names(d) [1] “…1” “gdp” “energy”

EuroEnergy # A tibble: 20 × 3 …1 gdp energy 1 Austria 45451 30633 2 Belgium 62049 58894 3 Cyprus 2003 1211 4 Denmark 34540 27049 5 Finland 28388 26405 6 France 358675 233907 7 Greece 38039 20119 8 Iceland 1331 1124 9 Ireland 11788 11053 10 Italy 265863 192453 11 Malta 1251 456 12 Netherlands 82804 84416 13 Norway 27914 26086 14 Portugal 30642 12080 15 Spain 159602 88148 16 Sweden 59350 45132 17 Switzerland 42238 23234 18 Turkey 91946 32619 19 UK 279191 268056 20 WGermany 428888 352677

SubsetEuroEnergy <-EuroEnergy[c (1, 2, 1:3)] "“,”gdp“,”energy"

colnames(SubsetEuroEnergy) <- c("“,”gdp“,”energy") SubsetEuroEnergy # A tibble: 20 × 5 gdp energy `` 1 Austria 45451 Austria 45451 30633 2 Belgium 62049 Belgium 62049 58894 3 Cyprus 2003 Cyprus 2003 1211 4 Denmark 34540 Denmark 34540 27049 5 Finland 28388 Finland 28388 26405 6 France 358675 France 358675 233907 7 Greece 38039 Greece 38039 20119 8 Iceland 1331 Iceland 1331 1124 9 Ireland 11788 Ireland 11788 11053 10 Italy 265863 Italy 265863 192453 11 Malta 1251 Malta 1251 456 12 Netherlands 82804 Netherlands 82804 84416 13 Norway 27914 Norway 27914 26086 14 Portugal 30642 Portugal 30642 12080 15 Spain 159602 Spain 159602 88148 16 Sweden 59350 Sweden 59350 45132 17 Switzerland 42238 Switzerland 42238 23234 18 Turkey 91946 Turkey 91946 32619 19 UK 279191 UK 279191 268056 20 WGermany 428888 WGermany 428888 352677

summary2 <- summary(SubsetEuroEnergy) summary2 gdp energy NA
Length:20 Min. : 1251 Length:20 Min. : 1251
Class :character 1st Qu.: 28270 Class :character 1st Qu.: 28270
Mode :character Median : 43844 Mode :character Median : 43844
Mean :102598 Mean :102598
3rd Qu.:108860 3rd Qu.:108860
Max. :428888 Max. :428888
NA
Min. : 456
1st Qu.: 18109
Median : 28841
Mean : 76788
3rd Qu.: 85349
Max. :352677

newdata <- subset(SubsetEuroEnergy, gdp >= “ma” & gdp <= “na”) newdata [newdata >= “Ma” & newdata <= “Na”] <- “excellent” SubsetEuroEnergy # A tibble: 20 × 5 gdp energy `` 1 Austria 45451 Austria 45451 30633 2 Belgium 62049 Belgium 62049 58894 3 Cyprus 2003 Cyprus 2003 1211 4 Denmark 34540 Denmark 34540 27049 5 Finland 28388 Finland 28388 26405 6 France 358675 France 358675 233907 7 Greece 38039 Greece 38039 20119 8 Iceland 1331 Iceland 1331 1124 9 Ireland 11788 Ireland 11788 11053 10 Italy 265863 Italy 265863 192453 11 Malta 1251 Malta 1251 456 12 Netherlands 82804 Netherlands 82804 84416 13 Norway 27914 Norway 27914 26086 14 Portugal 30642 Portugal 30642 12080 15 Spain 159602 Spain 159602 88148 16 Sweden 59350 Sweden 59350 45132 17 Switzerland 42238 Switzerland 42238 23234 18 Turkey 91946 Turkey 91946 32619 19 UK 279191 UK 279191 268056 20 WGermany 428888 WGermany 428888 352677 print(newdata) # A tibble: 0 × 5 # … with 5 variables: , gdp , energy , ,

gitHubUrl <- getURL(https://github.com/Gunduzhazal) EuroEnergy <- read.csv(text = gutHubUrl) print(head(EuroEnergy))