Weather and Severity
weatherSeverity(weather,severity,dates,EmergDate,EndEpidDate,NoReadingsH,
RHthreshold)
"Date","Rainfall","Tmp","HumidHrs","humidtmp"
"Cultivar","ApplSys","dates","nday","MeanSeverity","StDevSeverity"
date
date
object, see example
object, see example
vector dates
date
date
num, 1
num, percentage
Weather and severity
lateblight
library(agricolae)
f <- system.file("external/weather.csv", package="agricolae")
weather <- read.csv(f,header=FALSE)
f <- system.file("external/severity.csv", package="agricolae")
severity <- read.csv(f)
weather[,1]<-as.Date(weather[,1],format = "%m/%d/%Y")
# Parameters dates and threshold
dates<-c("2000-03-25","2000-04-09","2000-04-12","2000-04-16","2000-04-22")
dates<-as.Date(dates)
EmergDate <- as.Date('2000/01/19')
EndEpidDate <- as.Date("2000-04-22")
dates<-as.Date(dates)
NoReadingsH<- 1
RHthreshold <- 90
#--------------------------
WS<-weatherSeverity(weather,severity,dates,EmergDate,EndEpidDate,
NoReadingsH,RHthreshold)
Run the code above in your browser using DataLab