Recitation Week1

Week 1 reci

Question1

data("wage1")
summary(wage1$educ)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.00   12.00   12.00   12.56   14.00   18.00

the average education level is 12.56 years.

Question2

summary(wage1$wage)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.530   3.330   4.650   5.896   6.880  24.980

Question3 4

2.73*mean(wage1$wage)

## [1] 16.09636

Question5

print("Number of men")

## [1] "Number of men"

sum(wage1$female == 0)

## [1] 274

print("Number of women")

## [1] "Number of women"

sum(wage1$female == 1)

## [1] 252

number of women: 252 number of men: 274