petit programme sous R

[xavier_dcf]

Voila j'ai un tableau de villes avec leurs coordonnées géographiques (46 villes)

tableau : meteo
Voici un extrait :

ville latituderadians longituderadians
ST QUENTIN 0.870046632 0.057304919
CHARLEVILLE-MEZ 0.868592249 0.082321421
AUXERRE 0.834267382 0.062250135

Et j'ai un tableau de points (b_cod_pr) avec leurs coordonnées géographiques où je dois remplir la colonne repère = ville du tableau météo la plus proche du PR.

tableau : prformeteo

b_cod_pr repere latituderadians longituderadians
14796686 NULL 0.855275213 0.044870495
15458884 NULL 0.888723575 0.031789951

J'ai fait un programme moi-même calculant la distance entre deux points qui marche très bien get_distancemetre(lat1,long1,lat2,long2), (je peux vous le transmettre si besoin) et je suis en train de faire la suite qui affecte pour une observation i (un code pr) la ville de météo la plus proche.
Voici mon programme :

Code :

1
2
3
4
5
6
7
8
> villecorr=function(i){ 
  for(j in 2 : 46) {
    if (get_distancemetre(prformeteo[i,3],prformeteo[i,4],meteo[j,2],meteo[j,3]) < get_distancemetre(prformeteo[i,3],prformeteo[i,4],meteo[j-1,2],meteo[j-1,3])) 
      result=meteo[j,1] 
    else result=meteo[j-1,1]
  }
  return(result)
}

Il y a un message d'erreur :

symbole inattendu après meteo[j-1,3]

[ced]

Bonjour,

Avez-vous essayé comme ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
villecorr=function(i){ 
  for(j in 2 : 46) {
    if (get_distancemetre(prformeteo[i,3],prformeteo[i,4],meteo[j,2],meteo[j,3]) < get_distancemetre(prformeteo[i,3],prformeteo[i,4],meteo[j-1,2],meteo[j-1,3])) {
      result=meteo[j,1] 
    }
    else {
      result=meteo[j-1,1]
    }
  }
  return(result)
}

Sinon, le package sp contient bon nombre de fonctions qui permettent de faire ce que vous avez reprogrammé.

[xavier_dcf]

ca donne le même message d'erreur .
Ca m'enerve

[A. D.]

Bonjour,

A la vue du message d'erreur, je dirais que peut-être que le problème se situe dans les données (tableau "meteo") ?

Bonne continuation


Cordialement,

A.D.