weatherSeverity {agricolae} | R Documentation

## 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)

[Package agricolae version 1.2-9 Index]