lm(salary~roe, data = ceosal1)

=> kq chỉ có như này 
source("c:\\Users\\linhd\\Downloads\\test R.r", encoding ")