# NOT RUN {
print_table(airquality, file="airquality.doc")
unlink("airquality.doc") # delete file for test
model=lm(Temp ~ Month + Day + Wind + Solar.R, data=airquality)
print_table(model)
print_table(model, file="model.doc")
unlink("model.doc") # delete file for test
# }
Run the code above in your browser using DataLab