Part 1: Read the data

# reading external data and storing into a dataframe called "airline.df"
cc.df <- read.csv("cc.csv")

Part 2: Column names

# Display the column names
colnames(cc.df)

## [1] "default" "student" "balance" "income"

# Display the Data Dimensions
dim(cc.df)

## [1] 10000     4

# Dispaly the Mean of income and balance
mean(cc.df$income)

## [1] 33516.98

mean(cc.df$balance)

## [1] 835.3749

#Display the Standard Deviation of income and balance
sd(cc.df$income)

## [1] 13336.64

sd(cc.df$balance)

## [1] 483.715

#Done