Versuchen, eine Funktion für eine 3-Komponenten-Normalverteilung zu erstellen

Question

Ich versuche, eine R-Funktion zu erstellen, Proben aus einer 3-Komponenten-Normalmischung Verteilung mit 3 verschiedenen Parametern zu generieren, aber ich bekomme Fehlermeldungen.

Hier ist meine aktuellen Code

normal.mixture = function(n, mu1, sig1, w1, mu2, sig2, w2, mu3, sig3, w3) { 
    p = c(w1, w2, w3) 
    x=vector(mode="numeric", length=n) 
     for (i in 1:n) { 
      j = sample(c(1,2,3), 1, prob=p) 
      if (j==1) { 
       x[i] rnorm(1, mu1, sig1) 
      } 
      else if (j==2) { 
       x[i] = rnorm(1, mu2, sig2) 
      } 
      else { 
       x[i] = rnorm(1, mu3, sig3) 
      } 
     } 
    x 
} 

Answer 1

denken Sie fehlt ein Gleichheitszeichen

if (j==1) { 
      x[i] = rnorm(1, mu1, sig1) 
    }