Description Usage Arguments Examples
Plot target with shots
1 |
data |
archery data |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | data(archeryData)
dates <- unique(archeryData$Date)
dates <- dates[c(1, length(dates))]
firstDay <- archeryData[archeryData[["Date"]] == dates[1],]
lastDay <- archeryData[archeryData[["Date"]] == dates[2],]
oldPar <- par(
no.readonly = TRUE, mfrow = c(1,2),
mar = c(1,1,1,1), xpd = NA)
plot_target_with_shots(firstDay)
title(dates[1])
plot_target_with_shots(lastDay)
title(dates[2])
par(oldPar)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.