我想在特定行之后结束set.seed()的范围,以便对其余代码进行实际随机化.这是一个例子,我希望set.seed()用于"rnorm"(第4行),但不是"nrow"(第9行)
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")
真的感谢您的建议!