# Set location,
southernfrance <- setLocation(lat=44)
# A daily weather object, use a constant beam fraction of 0.4.
sunnyday <- setMet(southernfrance, month=6, day=21, nsteps=12, Tmin=9, Tmax=29, PARday=22,
fbeamday=0.4, fbeammethod="constant")
# Light response curve:
toonalrc <- setPhy("lightresponse",
leafpars=list(Amax=14.5, Rd=1.4, phi=0.05, theta=0.5, reflec=0.1, transmit=0.05))
# Run YplantQMC for a day. Use the built-in 'largegap' hemiphoto.
toonarun <- YplantDay(toona, sunnyday, toonalrc, largegap)Run the code above in your browser using DataLab