View source: R/weatherSeverity.R
weatherSeverity | R Documentation |
Weather and Severity
weatherSeverity(weather,severity,dates,EmergDate,EndEpidDate,NoReadingsH,
RHthreshold)
weather |
object, see example |
severity |
object, see example |
dates |
vector dates |
EmergDate |
date |
EndEpidDate |
date |
NoReadingsH |
num, 1 |
RHthreshold |
num, percentage |
Weather and severity
Wfile |
"Date","Rainfall","Tmp","HumidHrs","humidtmp" |
Sfile |
"Cultivar","ApplSys","dates","nday","MeanSeverity","StDevSeverity" |
EmergDate |
date |
EndEpidDate |
date |
All format data for date is yyyy-mm,dd, for example "2000-04-22". change with function as.Date()
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.