# DATA READ FROM A GITHUB FILE.
# The data set used
SmokeBan <- read.csv("https://raw.githubusercontent.com/GitHub-Vlad/Data-Science/main/SmokeBan.csv", header = TRUE)
#Display the first 20 rows of the data set
head(SmokeBan, 20)
## X smoker ban age education afam hispanic gender
## 1 1 yes yes 41 hs no no female
## 2 2 yes yes 44 some college no no female
## 3 3 no no 19 some college no no female
## 4 4 yes no 29 hs no no female
## 5 5 no yes 28 some college no no female
## 6 6 no no 40 some college no no male
## 7 7 yes yes 47 some college no no female
## 8 8 yes no 36 some college no no male
## 9 9 no yes 49 some college no no female
## 10 10 no no 44 some college no no male
## 11 11 no no 33 some college no no female
## 12 12 no no 49 hs no no female
## 13 13 no yes 28 some college no no male
## 14 14 no yes 32 some college no no male
## 15 15 no yes 29 some college no no female
## 16 16 no no 47 hs no no male
## 17 17 no yes 36 some college no no female
## 18 18 no yes 48 some college no no female
## 19 19 yes yes 28 some college no no female
## 20 20 yes yes 24 some college no no male