为了方便，下面以excel中的数据为例。其中database列数据为一组按顺序排列的数，cdsStart列数据即将在database列中查找并得到与其最接近的数。
excel中部分数据
下面介绍两种方法实现：
法一：(有点难理解)
install.packages("readxl") #安装读取excel的包
library(readxl) #载入readxl包
x<-read_excel("/Users/bcl/Desktop/reference/kinase/compare.xlsx",sheet=1) //读取excel(第一个参数为excel所在的地址加文件名，第二个参数为sheet参数，指定sheet名或者数字)
x
a <-as.vector(x$cdsStart) #将excel中cdsStrart列转换为向量
b <-as.vector(x$database) #将excel中database列转换为向量
cuts <- c(-Inf, b[-1]-diff(b)/2, Inf)#INF代表无穷大。
#b[-1]代表b中去掉第一个数。
#diff()计算b所有连续值之间的差异(后一个数减去前一个)
#b[-1]-diff(b)/2:b中去掉第一个数的每个数减去b的每个连续值差的一半
#cuts从-INF----------+INF，分成很多区间
index = findInterval(a, cuts) #findInterval(a,cuts)函数在cuts中(区间)查找a的索引。a为数字，cuts为数字矢量
#简单理解就是在cuts区间中查找a，然后返回a的位置
b[index] #显示向量b的第index个数。
method 1
法二：
install.packages("readxl")
library(readxl)
x<-read_excel("/Users/bcl/Desktop/reference/kinase/compare.xlsx",sheet=1)
x
a <-as.vector(x$cdsStart)
b <-as.vector(x$database)
index<-vector() #创建一个空向量(index)
for(num in a){
index = c(index,which(abs(b-num)==min(abs(b-num))))
} #min(abs(b-num))函数求b中数减去a中数的绝对值最小值(最接近)。
#which(abs(b-num)==min(abs(b-num))):左边与右边相同时返回行号(indices)。此时的index为一个索引向量
b[index]
讲一下which：给出逻辑对象的真正索引，允许数组索引。
method 2
