** Mortgage Interest Rate

##Method 3

library(ggplot2)
library(readxl)

df <- read_excel

Descriptive statistics

summary(df)
 #On average the number of interest rates is 4.86.

Construct a time series plot

ggplot(df,aes(x = Period, y = Interest_Rate)) +
  geom_line() +
  geom_point() +
  xlab("Period")
ylab("Interest Rate")
ggtitle("Time Series Plot Average interest rate")

#Decreasing gradually, then suddently spikes back up at the 22 period.

#Develop a linear trend equation

#model <- lm(Interest_Rate ~ Period, data = df) summary(model)

#Regression equation- estimated #Interest Rate = 6.70 - 0.13*Period