plot the results of the PCA analysis:
biplot(pc)
```
2. Alternatively, we can also do this more easily in provenance:

```
library(provenance)