[code language=”R”]

data = read.csv(‘flag_data.csv’, header = T, stringsAsFactors = F)

gsub(‘Asia’,5,data$landmass, fixed = TRUE)
data$landmass = gsub(‘Asia’,5, data$landmass, fixed = TRUE)

gsub(‘N.America’,1,data$landmass, fixed = TRUE)
data$landmass = gsub(‘N.America’,1, data$landmass, fixed = TRUE)

gsub(‘S.America’,2,data$landmass, fixed = TRUE)
data$landmass = gsub(‘S.America’,2, data$landmass, fixed = TRUE)

gsub(‘Europe’,3,data$landmass, fixed = TRUE)
data$landmass = gsub(‘Europe’,3, data$landmass, fixed = TRUE)

gsub(‘Africa’,4,data$landmass, fixed = TRUE)
data$landmass = gsub(‘Africa’,4, data$landmass, fixed = TRUE)

gsub(‘Oceania’,6,data$landmass, fixed = TRUE)
data$landmass = gsub(‘Oceania’,6, data$landmass, fixed = TRUE)

 

grep(‘5’,data$landmass,fixed = TRUE)

grep(‘Puerto-Rico’,data$name, fixed = TRUE)

guess = data[141,]
guess

grep(‘Hong-Kong’,data$name)

grep(‘-‘,data$name)

[/code]

x  Powerful Protection for WordPress, from Shield Security
This Site Is Protected By
Shield Security