Version corta: Cómo construir modelos separados para cada categoría (sin dividir los datos). (Soy nuevo en R)

Versión larga: considere los siguientes datos 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 lo anterior usando dos modelos separados

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

es decir, un modelo separado basado en el tipo de categoría?

Esto es lo que he intentado

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

y

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

Los dos modelos anteriores (que es esencialmente el mismo) no producen el resultado que busco.

Cualquier ayuda es apreciada