testpackage包数据定位
search <- function(data, str) {
a <- which(data == str)
row <- a %% dim(data)[1]
col <- ceiling(a / dim
testpackage包数据定位
search <- function(data, str) {
a <- which(data == str)
row <- a %% dim(data)[1]
col <- ceiling(a / dim