My "r" code is not working can u help me?

My dataset and my code is on the below. It didnt work i dont understand why it doesnt work. Could you help me for that.

Sıra|Adres|Laty|Lngy|Statusy|Accuracyy|Latg|Lngg|Statusg|Accuracyg|Lata|Lnga|Statusa 6118|England, Newcastle, South park st.|34.738|40.528|OK|exact|34.131|40.123|OK|RANGE_INTERPOLATED|34.742|40.123|OK

laty<-as.numeric(kordinatlar$Laty)
latg<-as.numeric(kordinatlar$Latg)
lata<-as.numeric(kordinatlar$Lata)

lngy<-as.numeric(kordinatlar$Lngy)
lngg<-as.numeric(kordinatlar$Lngg)
lnga<-as.numeric(kordinatlar$Lnga)


kordinatlar$Uzaklıkgy<-sqrt((lngg-lngy)^2+(latg-laty)^2)
kordinatlar$Uzaklıkga<-sqrt((lngg-lnga)^2+(latg-lata)^2)
kordinatlar$Uzaklıkya<-sqrt((lnga-lngy)^2+(lata-laty)^2)
kordinatlar$Uzaklıkysa<-sqrt((lnga-lngy)^2+(lata-laty)^2)


Statusy<-kordinatlar$Statusy
Statusg<-kordinatlar$Statusg

Uzaklıkga<-kordinatlar$Uzaklıkga
Uzaklıkya<-kordinatlar$Uzaklıkya
Uzaklıkgy<-kordinatlar$Uzaklıkgy


if (Statusy=='OK'&Statusg=='OK')
  {if(Uzaklıkga>Uzaklıkya)
    {if (Uzaklıkya>=Uzaklıkgy){paste(kordinatlar$Latenyakin<-((latg+laty)/2))}
  else {paste(kordinatlar$Latenyakin<-((lata+laty)/2))}}
else if (Uzaklıkya>=Uzaklıkga) 
  {if(Uzaklıkga>=Uzaklıkgy){paste(kordinatlar$Latenyakin<-((latg+laty)/2))}
  else{paste(kordinatlar$Latenyakin<-((lata+latg)/2))}}
else if (kordinatlar$Statusy=='OK'&!Statusg=='OK')
  {paste(kordinatlar$Latenyakin<-((lata+laty)/2))}
else if (Statusg=='OK'&!Statusy=='OK')
  {paste(kordinatlar$Latenyakin<-((lata+latg)/2))}
else 
  {paste(kordinatlar$Latenyakin<-lata)}