weatherSeverity {agricolae}

Weather and Severity

Description

Weather and Severity

Usage

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

Details

Weather and severity

Value

Wfile

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

Sfile

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

EmergDate

date

EndEpidDate

date

Note

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

See Also

lateblight

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)