LIM Chee Kong
25 August 2015
hotel <- read.csv('hotelDb1.csv', header=T)
colnames(hotel)
[1] "STR.Number" "Hotel.Name"
[3] "Address.1" "Address.2"
[5] "City" "State"
[7] "Country" "Postal.Code"
[9] "Market" "Tract"
[11] "Continent" "Sub.Continent"
[13] "Open.Date" "Original.Affiliation"
[15] "Rooms" "Chain.Scale"
[17] "Class" "Affiliation"
[19] "Telephone" "Fax"
[21] "Region" "County"
[23] "Mailing.Address.1" "Mailing.Address.2"
[25] "Mailing.City" "Mailing.State"
[27] "Mailing.Country" "Mailing.Postal.Code"
[29] "Floors" "Indoor.Corridors..Y.N."
[31] "MSA" "Location"
[33] "Restaurant..Y.N." "Convention..Y.N."
[35] "Conference..Y.N." "Largest.Meeting.Space"
[37] "Total.Meeting.Space" "Resort..Y.N."
[39] "Ski..Y.N." "Spa..Y.N."
[41] "Golf..Y.N." "Boutique..Y.N."
[43] "All.Suites..Y.N." "Casino..Y.N."
[45] "Price" "Single.Low.Rate"
[47] "Single.High.Rate" "Double.Low.Rate"
[49] "Double.High.Rate" "Suite.Low.Rate"
[51] "Suite.High.Rate" "Operation"
[53] "Parent.Company" "Chain.ID"
[55] "Year.Affiliated" "Ex.Affiliation"
[57] "Ex.Affiliation.2" "Ex.Affiliation.3"
[59] "Management.Company" "Management.Contact.Name"
[61] "Management.Contact.Title" "Management.Address.1"
[63] "Management.Address.2" "Management.City"
[65] "Management.State" "Management.Country"
[67] "Management.Postal.Code" "Management.Phone"
[69] "Management.Email" "Management.Website"
[71] "Owner.Company" "Owner.Contact.Name"
[73] "Owner.Contact.Title" "Owner.Address.1"
[75] "Owner.Address.2" "Owner.City"
[77] "Owner.State" "Owner.Country"
[79] "Owner.Postal.Code" "Owner.Phone"
[81] "Owner.Email" "Owner.Website"
[83] "Latitude" "Longitude"
colnames(hotel.req)
[1] "Hotel.Name" "Rooms"
[3] "Floors" "Restaurant..Y.N."
[5] "Convention..Y.N." "Conference..Y.N."
[7] "Largest.Meeting.Space" "Total.Meeting.Space"
[9] "Single.Low.Rate" "Single.High.Rate"
[11] "Double.Low.Rate" "Double.High.Rate"
[13] "Suite.Low.Rate" "Suite.High.Rate"
[15] "Operation"
par(mfrow=c(1,3))
pie(table(hotel.req$Restaurant..Y.N.), main='Restaurant')
pie(table(hotel.req$Convention..Y.N.), main='Convention')
pie(table(hotel.req$Conference..Y.N.), main='Conference')
par(mfrow=c(1,2))
hist(hotel.req$Rooms, breaks=3, density=10) # not more than 200 rooms
hist(hotel.req$Floors, breaks=3, density=10) # not more than 10 floors