## 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)))
## Input
PPFD=2500
swc=0.35
## Parameters
k = 0.5
Topt = 12
Tmin = -2
Tmax = 35
lai = 6
StandAge = 41
fullCanAge = 15
gamma = 0.0003
kappa = -0.0006
alpha = 0.3
v = 0.5
thetaWP = 0.4
thetaFC = 0.7
A = 200
epsilon = 0.0164 ## umol C / umol APAR
model<-lue_model( fluxes$air_temperature, 2500, fluxes$VPD, swc=0.35,
Topt, Tmin, Tmax, StandAge, fullCanAge, k, lai, gamma, kappa, thetaWP,
thetaFC, alpha, v, A, epsilon )
par(mfrow=c(3,1))
plot(model$NEE,type='l')
plot(model$GPP,type='l')
plot(model$Re,type='l')
Run the code above in your browser using DataLab