я написал следующий код: в этой программе у вас есть набор точек, и он возвращает самые близкие два `
proche<-function(x,y){
xy=[0][0];
val=100000
for(i in 1:length(y)-1)
for(j in 2:length(x)){
dist=sqrt((x[i]-x[j])^2+(y[i]+y[j])^2)
if(dist<val){
xy[1,]=c(x[i],x[j])
xy[2,]=c(y[i],y[j])
val=dist
}
}
return(xy)
}
proche(x,y)
`
, и он генерирует следующую ошибку:
Ошибка в if (dist
, пожалуйста, помогите мне