R 如何循环遍历数据集

我试图遍历数据集的每一行，找到每一行中所选数字的最小距离公式，并将其放入

向量（acc）

我做了一些其他问题的研究，这是我得到的代码

a=1
b=1
n=1

for(i in 1:nrow(satest_tDCS_01_split)){

    while(a==b){
        d=100000
        t=1
        e=9
        f=10

        while(t< 5){
            c<-sqrt(((satest_tDCS_01_split[n,22]-satest_tDCS_01_split[n,e])^2)
            +((satest_tDCS_01_split[n,23]-satest_tDCS_01_split[n,f])^2))

            if(c<d){
                d<-c
            }

            e=as.numeric(e)+3
            f=as.numeric(f)+3
            t=t+1
        }

        acc<-c()
        acc<-append(acc,d)
        n=as.numeric(n)+1
        a<-satest_tDCS_01[n,4]
        b<-satest_tDCS_01[n+1,4]
    }
}

a=1
b=1
n=1
适用于（i/1:nrow（satest\U tDCS\U 01\U分割））{
while（a==b）{
d=100000
t=1
e=9
f=10
而（t<5）{
c脚本
acc