#1
data(longley)

#2
head(longley,5)

#3
str(longley)

#4
summary(longley$Unemployed)

#5
mean_unemployment = summary(longley$Unemployed)['Mean']

#6
class(mean_unemployment)