Homework1_Canada

library(readxl)
library(ggplot2)

data <- read_excel("ECON401_Homework1_Canada.xlsx")
data$Baran <- data$GFCF / data$GOSMI

ggplot(data, aes(x = Year, y = Baran, color = Country)) +
  geom_line() +
  geom_point() +
  labs(title = "Baran Ratio: Canada vs Turkey (1995-2024)",
       x = "Year", y = "Baran Ratio")