Create house.R