# NOT RUN {
if(interactive()){
# Extract daily data for durum wheat
durum <- getAccessions(crop = 'Durum wheat', coor = TRUE)
daily <- getDaily(sites = levels(as.factor(durum$SiteCode)),
var = c('tavg', 'prec', 'rh'), cv = TRUE)
# Get data frame with coefficient of variation from list object
# returned (when cv = TRUE)
daily.cv <- daily[[2]]
}
# }
Run the code above in your browser using DataLab