faq.R

library("dplyr")

# average number of bedrooms in the houses priced over 1 million
bedrooms.average <- toString(round(filter(house.data, price > 1000000) %>% 
  summarise(mean = mean(bedrooms))))

# average number of bathrooms in the houses with 3 or more bedrooms
bathrooms.average <- toString(round(filter(house.data, bedrooms >= 3) %>% 
  summarise(mean = mean(bathrooms))))

# average price of the houses in the best condition
best.condition.price <- toString(round(filter(house.data, condition == max(condition)) %>% 
  summarise(mean = mean(price))))

# price of the house with max/min total area
specific.price <- toString(filter(house.data, total_area == max(total_area)) %>% 
  select(price))

# average price of th houses with a watefront
waterfront.price <-  toString(round(filter(house.data, waterfront ==1) %>% 
                                summarise(mean = mean(price))))