# 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
# find mean and std deviation of income
mean(cc.df$income)
## [1] 33516.98
sd(cc.df$income)
## [1] 13336.64
# find mean and std deviation of balance
mean(cc.df$balance)
## [1] 835.3749
sd(cc.df$balance)
## [1] 483.715
#Mean of income is 33516.98 while standard deviation of income is 13336.64 #Mean of balance is 835.3749 while standard deviation of balance is 483.715