Разный перехват другой наклон

ченная версия: Как построить отдельные модели для каждой категории (без разделения данных). (Я новичок в R)

Длинная версия: рассмотрим следующие синтетические данные

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

Мы можем смоделировать выше, используя две отдельные модели

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

то есть отдельная модель, основанная на типе категории?

Это то, что я пытался

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

а также

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

Обе вышеупомянутые модели (которые по сути одинаковы) не дают желаемого результата.

Любая помощь приветствуется