library(lidR)
library(CrownScorchTLS)
#download external data from github repo
url <- paste0(
"https://raw.githubusercontent.com/jbcannon/CrownScorchTLS-data/main/data/manual-clip-trees/",
"M-04-15549_post.laz")
las_file = tempfile(fileext = paste0(".", tools::file_ext(url)))
download.file(url, las_file, mode = "wb", quiet = TRUE)
las <- readLAS(las_file)
# or load your own data
#las <- readLAS('C:/path/to/your/file.laz')
predict_scorch(las) #using default model from Cannon et al. 2025
Run the code above in your browser using DataLab