Now, lets get the data into R and plot it.
[For clarity, I'm not showing the R code, but it's available in the source cdoe for this post.]
+[[!sweavealike fig=0 echo=0 code="""
+print(getwd())
+"""]
+
[[!sweavealike fig=1 echo=0 code="""
require(lattice)
print(getwd())