MSS <- 10
MAC <- 8
bodymass <- 75
fv <- create_FVP(MSS, MAC, bodymass)
dist <- seq(5, 40, by = 5)
probe_MSS_MAC_profile <- probe_MSS_MAC(
distance = dist,
MSS,
MAC
)[["profile_imb"]]
probe_FV_profile <- probe_FV(
distance = dist,
fv$F0,
fv$V0,
fv$bodymass
)[["profile_imb"]]
plot(x = dist, y = probe_MSS_MAC_profile, type = "l", ylab = "Profile imbalance")
lines(x = dist, y = probe_FV_profile, type = "l", col = "blue")
abline(h = 100, col = "gray", lty = 2)
Run the code above in your browser using DataLab