Grexter Question 2

First we assume that about 44 % of Bangalores population are from the working class.

1. Data Collecting

library(ggplot2)
setwd("C:\\Users\\mahe\\Desktop")
bang <- read.csv("bangalore.csv", header = T, stringsAsFactors = F)
bang$Population <- as.integer(bang$Population)
class(bang$Year)

## [1] "integer"

class(bang$Population)

## [1] "integer"

2. Data Processing

names(bang) <- c("Year", "Population")

c)Plotting

initial <- qplot(data = bang, Year, Population)
initial

d)Fitting a linear regression model for prediction

initial + geom_smooth(method = "lm")

e)Calculating the predicted population

prediction <- bang[which(bang$Year == 2018), 2]
print(prediction)

## [1] 11465343

6. Final Calculation

final <- prediction * 0.44
print(final)

## [1] 5044751