如何遍历数据集

Question

我试图遍历数据集的每一行，并为每一行中选择的数字找到最小的距离公式，并将其放在vector(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]
    }
}

我期望的是vector(acc)的数字d，但是运行acc时我什至都没有。我认为这是错误的，因为for循环是错误的。

Answer 1

循环中的脚本acc <- c()将在每次迭代中重置acc。将其移出循环可能会有所帮助。