Commit a2663688 authored by Chris Holbrook's avatar Chris Holbrook

fix #77; fix collision prob plot in help example

parent 722d2ed5
......@@ -53,8 +53,13 @@
#' #parameters analagous to Vemco tag, global coding, 45 s nominal delay
#' foo <- calc_collision_prob(delayRng = c(45, 90), burstDur = 5.12, maxTags = 50,
#' nTrans = 10000)
#' # plot probability of collision by subtracting detection probability from 1
#'
#' #plot probabilities of detection
#' plot(med~nTags, data=foo, type='p', pch=20, ylim=c(0,1),
#' b
#'
#' #plot probability of collision by subtracting detection probability from 1
#' plot((1 - med)~nTags, data=foo, type='p', pch=20, ylim=c(0,1),
#' xlab="# of transmitters within range", ylab="Probability of collision")
#'
#' @export
......
......@@ -54,8 +54,13 @@ tags are co-located at a receiver for the duration of the simulation.
#parameters analagous to Vemco tag, global coding, 45 s nominal delay
foo <- calc_collision_prob(delayRng = c(45, 90), burstDur = 5.12, maxTags = 50,
nTrans = 10000)
# plot probability of collision by subtracting detection probability from 1
#plot probabilities of detection
plot(med~nTags, data=foo, type='p', pch=20, ylim=c(0,1),
b
#plot probability of collision by subtracting detection probability from 1
plot((1 - med)~nTags, data=foo, type='p', pch=20, ylim=c(0,1),
xlab="# of transmitters within range", ylab="Probability of collision")
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment