Plot 3D-Ebene (true regression Oberfläche)

Ich versuche zu simulieren, die einige Daten (x1-und x2 - my erklärende Variablen), berechnen y, die mithilfe einer angegebenen Funktion + Rauschen, und zeichnen Sie die daraus resultierenden Beobachtungen UND die wahre regression Oberfläche. Hier ist, was ich habe, so weit:

   set.seed(1)
   library(rgl)

   # Simulate some data 

   x1 <- runif(50)
   x2 <- runif(50)
   y <- sin(x1)*x2+x1*x2 + rnorm(50, sd=0.3)
   # 3D scatterplot of observations 
   plot3d(x1,x2,y, type="p", col="red", xlab="X1", ylab="X2", zlab="Y", site=5, lwd=15)

Ich bin mir jetzt nicht sicher, wie ich hinzufügen kann, die "wahre" regression Flugzeug. Ich bin im Grunde auf der Suche nach etwas wie Kurve() wo kann ich plug in meine (wahre) Modell der Formel.

Dank!

InformationsquelleAutor user2249626 | 2013-08-09
Schreibe einen Kommentar