我想在特定行之后结束 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")
确实感谢您的建议！
set.seed(NULL)
查看帮助文档——?set.seed:
“如果使用seed = NULL调用，它会重新初始化（参见‘注意’），就好像尚未设置种子一样。”
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
