## Not run:
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab