if (FALSE) {
#A single unmatched combination
kdata <- data.frame(Expt="D197-5",
Row=8,
Column=20, stringsAsFactors=FALSE)
index <- fac.match(kdata, D197.dat, c("Expt", "Row", "Column"))
# A matched and an unmatched combination
kdata <- data.frame(Expt=c("D197-5", "D197-4"),
Row=c(8, 10),
Column=c(20, 8), stringsAsFactors=FALSE)
index <- fac.match(kdata, D197.dat, c("Expt", "Row", "Column"))
}
Run the code above in your browser using DataLab