# Load necessary data from FIESTA
## Point data
icepntfn <- system.file("extdata",
"PB_data/icepnt_utco1135.csv",
package = "FIESTA")
icepnt <- read.csv(icepntfn)
# Convert to percent
percent <- datPBpnt2pct(pnt = icepnt,
uniqueid = "plot_id",
tvar = "cover_1")
head(percent)
Run the code above in your browser using DataLab