Using the Rds data to answer all 5 questions

---
title: 'Regression economics'
author: 'Tarun'
date: "10/30/2021"
output: word_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE,cache = TRUE,warning = FALSE,message = FALSE,dpi = 180,fig.width = 8,fig.height = 5)
```
```{r}
library(readr)
library(magrittr)
library(dplyr)
library(ggplot2)
library(rmarkdown)
library(MASS)
library(skimr)
library(ggeffects)
```
```{r}
abc <- readRDS("~/data/lfs21.rds")
skim(abc)
```
#1a) Generate a scatterplot
```{r}
age=abc$age_12
wage=abc$hrlyearn
plot(age,wage,main="Scatterplot of Wages and...