n <- c(1:10,1:10) r <- c(rep(0,10),rep(1,10)) X <- c(3,2,4,1,4,5,6,1,2,8) Y <- c(1,2,5,9,2,6,8,2,5,3) fit <- lm(log(c(X,Y)) ~ n + I(n*r))
Как записать модель, которая может соответствовать приведенным выше данным? Спасибо