the result is unproducible when select features

[DrZhaoJie]

Hi, my code is as below, to select the best set of features. but every time I run the code, the result was different. As you see, I have set the seed. Then, what's the reason? How can I solve it to reproduce the result?

set.seed(3333)
lrn = makeFeatSelWrapper("regr.gausspr", resampling = makeResampleDesc("CV", iters = 10),
control = makeFeatSelControlSequential(method = "sbs"), show.info = FALSE)
mod = train(lrn, task = train.task)
sfeats = getFeatSelResult(mod)
sfeats