# NOT RUN {
# read the BASE from a csv file
base <- amf_read_base(file = system.file("extdata",
"AMF_US-CRT_BASE_HH_2-5.csv",
package = "amerifluxr"),
unzip = FALSE,
parse_timestamp = FALSE)
# filter data, using default physical range +/- 5% buffer
base_f <- amf_filter_base(data_in = base)
# filter data, using default physical range without buffer
base_f <- amf_filter_base(data_in = base, loose_filter = 0)
# }
Run the code above in your browser using DataLab