R/get_start_date.R

get_start_date <- function(expID){
data(Planting)
result <- Planting [Planting$ExpID == expID,]
date <-result$PlantingDate[1]
 if(date =="") { date <- result$PlantingDate[2]}
return(date)
}
ebimodeling/sugarbag documentation built on May 15, 2019, 7:32 p.m.