link = paste("https://raw.githubusercontent.com/",
    "go95/big_data_intro/master/Abdulkadiroglou.csv",
    sep = "")

articles <- read.csv(url(link))
citations <- articles[,9]
citations <- citations[!is.na(citations)]

n <- length(citations)
h_index <- 0
for(i in 1:n) {
  if(citations[i] > i) {
    h_index <- h_index + 1
  }
}
print(h_index)