##Load the data
data(fluxes)
## Find the percent of each QC flag for CO2 before cleaning
percentQC(fluxes)
## Do the same for sensible heat
percentQC(fluxes,var="H")
## Clean data
fluxes=cleanFluxes(fluxes,sdCor=TRUE,sdTimes=3,timesList=3,distCor=TRUE,
thresholdList=list(H=c(-100,1000),LE=c(-100,1000)))
## Find the percent of each QC flag for CO2 after cleaning
percentQC(fluxes)
## Do the same for latent heat
percentQC(fluxes,var="H")
Run the code above in your browser using DataLab