R/Get_Variable_from_ExpID_2.R

In ebimodeling/sugarbag: R version of Sugarbag database of sugarcane traits and yields

Get_Variable_from_ExpID <-function(expID, varname){
  data(HarvestData)
  harvestdata <- subset(HarvestData,select = c("ExpID","Plot", "Date", varname))
  result <- harvestdata[(harvestdata$ExpID == expID),]
  return (result)
}