CreditCard1

Part 1: Read the data

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

Part 2: Column names

# Display the column names
colnames(cc.df)

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

Part 3: Data Dimensions

# Display the Data Dimensions
dim(cc.df)

## [1] 10000     4

Part 4: Income Data Summary

# Display the Income mean and standard deviation
paste("Income mean=",mean(cc.df$income))

## [1] "Income mean= 33516.9818759574"

paste("Income standard deviation=",sd(cc.df$income))

## [1] "Income standard deviation= 13336.6395627319"

Part 5: Balance Data Summary

# Display the Income mean and standard deviation
paste("Balance mean=",mean(cc.df$balance))

## [1] "Balance mean= 835.374885614944"

paste("Balance standard deviation=",sd(cc.df$balance))

## [1] "Balance standard deviation= 483.71498521033"