Homework 1

House Prices

This data set includes prices and characteristics of 128 houses. Some of the variables are Price, Size, Bedrooms, Bathrooms, and Neighborhood.

library(lattice)
HP <- read.csv("~/Business Analytics/HousePrices.csv")
summary(HP$Price)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   69100  111325  125950  130427  148250  211200

barchart(Price~Neighborhood, data=HP, xlab="Neighborhood", ylab="Price", col="red")

Direct Marketing

This data set includes data from a direct marketer who sells his products via mail.

DM <- read.csv("~/Business Analytics/DirectMarketing.csv")
barchart(AmountSpent~Age, data=DM, xlab="Age", ylab="Price", col="blue")

bwplot(AmountSpent~Gender,data=DM, xlab="Gender", ylab="Amount Spent")

Gender Discrimination

This data set includes data on gender, work experience, and salary.

GD <- read.csv("~/Business Analytics/GenderDiscrimination.csv")
dotplot(Salary~Gender, data=GD,plot.points=FALSE,col="black")

xyplot(Salary~Experience,data=GD,col="black")

Loan Data

This data set includes data on the outcome of loans.

LD <- read.csv("~/Business Analytics/LoanData.csv")
barchart(LD$Status, xlab="Number of Loans", col="red")

boxplot(LD$Amount~LD$Status,data=LD,ylab="Debt to Income Ratio", xlab="Status", col="blue")

Financial Indicators

This data set lists indicators of financial health of companies.

FI <- read.csv("~/Business Analytics/FinancialIndicators.csv")
histogram(FI$Firm.Value,col="black")

barchart(FI$Country)