Versão curta: Como criar modelos separados para cada categoria (sem dividir os dados). (Eu sou novo no R)

Versão longa: considere os seguintes dados sintéticos

housetype,ht1,ht2,age,price
O,0,1,1,1000
O,0,1,2,2000
O,0,1,3,3000
N,1,0,1,10000
N,1,0,2,20000
N,1,0,3,30000

Podemos modelar o acima usando dois modelos separados

if(housetype=='o')
    price = 1000 * age
else
    price = 10000 * age

ou seja, um modelo separado com base no tipo de categoria?

Isto é o que eu tentei

model=lm(price~housetype+age, data=datavar)

e

model=lm(price~ht1+ht2+age, data = datavar)

Ambos os modelos acima (que são essencialmente os mesmos) não produzem o resultado que procuro.

Qualquer ajuda é apreciada