## First we load the RUE function

source("RUEmod.r")

## Second we load the weather data file

cmi <- read.table("cmiWet-1990.txt" , header=TRUE)

## What are the arguments of the RUEmod function?

args(RUEmod)

res <- RUEmod(cmi$Rad, cmi$Temp)

class(res)

names(res)

library(lattice)

## First plot of AG 
xyplot(AG.cum ~ doy, data = res)

## Second plot of LAI

xyplot(lai.cum ~ doy, data = res)