data(linetran)
(dbreaksLine <- c(0, 5, 10, 15, 20))
lengths <- linetran$Length * 1000
calcAreas(dbreaksLine, lengths, "line", "density", M=nrow(linetran),
J = length(dbreaksLine) - 1, "m", "ha")
data(pointtran)
(dbreaksPt <- seq(0, 25, by=5))
calcAreas(dbreaksPt, survey="point", output="density", M=nrow(pointtran),
J = length(dbreaksPt) - 1, unitsIn = "m", unitsOut = "ha")
Run the code above in your browser using DataLab