# Part 1: Read the data
# reading external data and storing into a dataframe called "cc.df"
cc.df <- read.csv("DefaultData.csv")
# Display the column names
colnames(cc.df)
## [1] "default" "student" "balance" "income"
# Display the Data Dimensions
dim(cc.df)
## [1] 10000 4
# Display the Mean & Standard Deviation of Income
mean(cc.df$income)
## [1] 33516.98
sd(cc.df$income)
## [1] 13336.64
# Display the Mean & Standard Deviation of Balance
mean(cc.df$balance)
## [1] 835.3749
sd(cc.df$balance)
## [1] 483.715
#Basic Statistics are as above