#Read Creditcard data into dataframe
cc.df <- read.csv("DefaultData.csv")
#List the column names of cc.df
colnames(cc.df)

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

#Display the Data dimensions
dim(cc.df)

## [1] 10000     4

#Calculate the mean and standard deviation of income and Balance
mean(cc.df$income)

## [1] 33516.98

sd(cc.df$income)

## [1] 13336.64

mean(cc.df$balance)

## [1] 835.3749

sd(cc.df$balance)

## [1] 483.715

#Output comments
#Displayed column names and dimensions of the dataframe
#Mean of income is 33516.98
#Standard deviation of income is 13336.64
#Mean of balance is 835.3749
#Standard deviation of balance is 483.715