plot_target_with_shots: Plot target with shots

Description Usage Arguments Examples

Description

Plot target with shots

Usage

1

Arguments

data

archery data

Examples

 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) 

zzawadz/aRchery documentation built on May 18, 2019, 3:40 a.m.