Brian Knaus knausb

## apstest.R

myFile <- "apstest.txt"

writeLines(capture.output(sessionInfo()), myFile)
writeLines(capture.output(sessionInfo()))
cat("\n", file = myFile, append = TRUE)
cat("\n", file = myFile, append = TRUE)
cat("\n")
cat("\n")

## .gitignore
.Rproj.user
.Rhistory
.RData
.Ruserdata
*.html

	myFile <- "apstest.txt"

	writeLines(capture.output(sessionInfo()), myFile)
	writeLines(capture.output(sessionInfo()))
	cat("\n", file = myFile, append = TRUE)
	cat("\n", file = myFile, append = TRUE)
	cat("\n")
	cat("\n")