title: “Introduction to R Syntax”
output: html_notebook
calculate_annual_growth <- function(year_one,year_two,pop_y1, pop_y2,city) {
annual_growth <- (((pop_y2 - pop_y1) / pop_y1) * 100) / (year_two-year_one)
message <- paste("From", year_one, "to", year_two, "the population of", city, "grew by approximately", annual_growth, "% each year.")
print(message)
return(annual_growth)
}
# Write your code starting here:
city_name <- "Istanbul, Turkey"
pop_year_one <- 691000
pop_year_two <- 983000
#pop_year_three <- 8831800
pop_year_four <- 15029231
pop_change <- pop_year_four - pop_year_one
percent_gr <- ((pop_year_one - pop_year_four)/pop_year_four) * 100
annual_gr <- percent_gr - pop_change
print(annual_gr)