# Homework: introduction into R
# =============================

# Goal: use RStudio to write the first R script
#       reading documentation for mean function needed

# clear workspace
rm(list = ls())

# read numeric vector income from current directory
load(file = "income_data.RData")

# edit only the following line:
mean_income <- mean()

# save mean_income to current directory
save(mean_income, file = "results.RData")