Discussion :

[Serpentard]

Bonjour,
je souhaite coder cette partie d'un algorithme en R.
Voilà ce que j'ai fait, mais ça ne marche pas. Pouvez-vous m'aider?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
E_maxWth=80
#Function RandUni
RandUni <- function (S)
{
S= sample(1:E_maxWth, 1, replace=FALSE)
}
print(S)
#{Add initial within edges}
for (v in C)
{
  for (i in 1:E_maxWth)
  {
  E_wth[i] <- RandUni(S)
  print(E_wth)
  }
  for(i in 1:E_wth) 
{
  C<-C[-which(C==v)]
  v_prim <- RandUni(C)
 
  #vec<-c(v,v_prim) # il y a un pb
  #epsilon <- c(epsilon, vec) #il y a un pb
}
print(v_prim)
}

Ps: RandUni(S) est une fonction qui retourne un élément de S sélectionné aléatoirement et uniformément.
C c'est un cluster
v est un entier tiré aléatoirement d'un Sample V

Je vous remercie