Ich möchte den Bereich von set.seed() nach einer bestimmten Zeile beenden, um eine echte Randomisierung für den Rest des Codes zu haben. Hier ist ein Beispiel, in dem ich set.seed() will für "rnorm" (Linie 4) arbeiten, aber nicht für "nrow" (Linie 9)Wie stoppe ich set.seed() nach einer bestimmten Codezeile?
set.seed(2014)
f<-function(x){0.5*x+2}
datax<-1:100
datay<-f(datax)+rnorm(100,0,5)
daten<-data.frame(datax,datay)
model<-lm(datay~datax)
plot(datax,datay)
abline(model)
a<-daten[sample(nrow(daten),20),]
points(a,col="red",pch=16)
modela<-lm(a$datay~a$datax)
abline(modela, col="red")
Dank für Anregungen, in der Tat!
Schöne Lösung! Immer glücklich zu lernen. Danke. – user3451767