Weather and Severity — weatherSeverity • agricolae

Weather and Severity

weatherSeverity(
  weather,
  severity,
  dates,
  EmergDate,
  EndEpidDate,
  NoReadingsH,
  RHthreshold
)

Arguments

weather	object, see example
severity	object, see example
dates	vector dates
EmergDate	date
EndEpidDate	date
NoReadingsH	num, 1
RHthreshold	num, percentage

Value

Wfile

"Date","Rainfall","Tmp","HumidHrs","humidtmp"

Sfile

"Cultivar","ApplSys","dates","nday","MeanSeverity","StDevSeverity"

EmergDate

date

EndEpidDate

date

Details

Weather and severity

Note

All format data for date is yyyy-mm,dd, for example "2000-04-22". change with function as.Date()

See also

Examples


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)