# NOT RUN {
data("wheatChl")
## Create a TD object.
wheatTD <- createTD(data = wheatChl, genotype = "trt", repId = "rep",
subBlock = "bl", rowCoord = "row", colCoord = "col")
## Get meta data from wheatTD
(wheatMeta <- getMeta(wheatTD))
## Add location names and latitude/longitude to meta data.
wheatMeta$trLocation <- c("Cauquenes", rep("Santa Rosa", times = 4))
wheatMeta$trLat <- c(-35.58, rep(-36.32, times = 4))
wheatMeta$trLong <- c(-72.17, rep(-71.55, times = 4))
## Add back meta data to wheatTD.
wheatTD <- setMeta(wheatTD, wheatMeta)
# }
Run the code above in your browser using DataCamp Workspace