classify_transmissiontowers: Classify the transmission towers

In Jean-Romain/lidRplugins: Extra functions and algorithms for lidR package

Classify the transmission towers

Description

Attribute the class 15 to points that correspond to transmission towers using the positionning of the towers given by find_transmissiontowers. Using the transmission towers types and their orientation it computes the spatial box that emcompasses the towers and classify points within this rectangle as 'transmission tower'.

Usage

classify_transmissiontowers(las, towers, dtm, threshold = 2)

Arguments

las	An object of class LAS
towers	SpatialPointsDataFrame returned by find_transmissiontowers.
dtm	A RasterLayer. The digital terrain model is useful to find the bottom of the towers
threshold	numeric. Height above ground. Points below this elevation are not classified as transmission towers.

Value

A LAS object with an updated classification.

References

Roussel J, Achim A, Auty D. 2021. Classification of high-voltage power line structures in low density ALS data acquired over broad non-urban areas. PeerJ Computer Science 7:e672 https://doi.org/10.7717/peerj-cs.672

See Also

Other electrical network: classify_wires(), get_tower_spec(), track_wires()

Examples

# A simple file with wires already clipped from 4 files + shapefile
# of the network
LASfile <- system.file("extdata", "wires.laz", package="lidRplugins")
wireshp <- system.file("extdata", "wires.shp", package="lidRplugins")
dtmtif  <- system.file("extdata", "wire-dtm.tif", package="lidRplugins")
las <- readLAS(LASfile, select = "xyzc")
network <- sf::st_read(wireshp)
dtm <- raster::raster(dtmtif)

towers <- find_transmissiontowers(las, network, dtm, "waist-type")
las <- classify_transmissiontowers(las, towers, dtm)

plot(las, color = "Classification")

Jean-Romain/lidRplugins documentation built on Feb. 8, 2023, 5:39 a.m.