Если вы хотите просто напечатать его, используйте print("Model<-lm(Sales~(a+b+c,data)")
, как предлагает dshkol, или cat("Model<-lm(Sales~(a+b+c,data)")
, если вы не хотите кавычек.
Если вам нужно использовать выход в другой функции, вы можете использовать substitute("Model<-lm(Sales~(a+b+c,data)")
Если вам нужен результат, чтобы быть персонажем, вы всегда можете обернуть его в as.character(substitute("Model<-lm(Sales~(a+b+c,data)"))
.
Это помогает?