Description Usage Arguments Details Value References See Also Examples
Summarize acoustic survey data by interval and layer.
1 | AcSmry(AcTarg, LakeInfo, SurvParam)
|
AcTarg |
A data frame with information on fish detected in an acoustics survey,
specifically the |
LakeInfo |
A list with the lake inputs supplied as arguments to |
SurvParam |
A named vector with the survey inputs supplied as arguments to
|
Acoustic intervals are identified by the easting (in m) of their midpoint. Acoustic layers are identified by the water depth (in m) of their midpoint.
A weighting variable, range weight (Yule 2000), is used to account for
different volumes of water sampled in the acoustic survey as a function of
the distance from the transducer (in m) and the transducer half angle
(AcAngle/2
).
The sum of the range weights is reported as sum.rw
in the
AcCell
and AcColumn
data frames.
A list with 2 elements.
AcCell
a data frame with information on
the acoustic survey summarized by acoustic interval and layer.
AcColumn
a data frame with information on
the acoustic survey summarized by acoustic interval.
Yule, DL. 2000. Comparison of horizontal acoustic and purse-seine estimates of salmonid densities and sizes in eleven Wyoming waters. North American Journal of Fisheries Management 20:759-775. http://www.tandfonline.com/doi/abs/10.1577/1548-8675(2000)020%3C0759%3ACOHAAP%3E2.3.CO%3B2
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | # parameters for small (a) and large (A) alewife as input to the simulator
fishp <- data.frame(
G = c("a", "A", "A"),
Z = c(50, 140, 140), ZE = c(0.25, 0.2, 0.2),
LWC1 = 0.000014, LWC2 = 2.8638, LWCE = 0.18,
TSC1 = -64.2, TSC2 = 20.5, TSCE = c(0.02, 0.07, 0.07),
PropN = c(0.55, 0.25, 0.20),
E = c(NA, 900, 2800), EE = c(NA, 4.5, 0.3),
N = NA, NE = NA,
WD = c(5, 15, 15), WDE = c(0.5, 0.7, 0.7),
D2B = NA, D2BE = NA
)
# simulate the fish population
res <- SimFish(LakeName="Clear Lake", LkWidth=3000, LkLength=2000,
BotDepMin=20, BotDepMax=100, FishParam=fishp, TotNFish=50000, Seed=667)
# survey the population
surv <- SampFish(SimPop=res, NumEvents=2, AcNum=5, AcInterval=3000,
AcLayer=10, AcAngle=7, MtNum=25, MtHt=10, MtWd=10, MtLen=200, Seed=545)
AcSmry(AcTarg=surv$Targets, LakeInfo=res$LakeInfo, SurvParam=surv$SurvParam)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.