## Close any previously open graphic devices
graphics.off()
## Load the data
data(fluxes)
## Clean the fluxes
fluxes=cleanFluxes(fluxes,sdCor=TRUE,sdTimes=3,timesList=3,distCor=TRUE,
thresholdList=list(H=c(-100,1000),LE=c(-100,1000)))
## Plot the fingerprint plot
plotFingerprint(fluxes$co2_flux,fluxes$yday,fluxes$hour,step=1,main='CO'[2]~' flux',
key.title=title(main="umol m"^2~"s"^-1~"",adj=0.2))
Run the code above in your browser using DataLab