library(caret)
library(randomForest)
data(GermanCredit)

GermanCredit <- GermanCredit[, -nearZeroVar(GermanCredit)]
GermanCredit$CheckingAccountStatus.lt.0 <- NULL
GermanCredit$SavingsAccountBonds.lt.100 <- NULL
GermanCredit$EmploymentDuration.lt.1 <- NULL
GermanCredit$EmploymentDuration.Unemployed <- NULL
GermanCredit$Personal.Male.Married.Widowed <- NULL
GermanCredit$Property.Unknown <- NULL
GermanCredit$Housing.ForFree <- NULL

set.seed(100)
inTrain <- createDataPartition(GermanCredit$Class, p = .8)[[1]]
GermanCreditTrain <- GermanCredit[ inTrain, ]
GermanCreditTest  <- GermanCredit[-inTrain, ]

set.seed(1056)
credit.rf <- randomForest(Class~., data = GermanCreditTrain, ntree = 500)

credit.pred1 <- predict(credit.rf, GermanCreditTest)
credit.pred2 <- predict(credit.rf, GermanCreditTest)
credit.pred3 <- predict(credit.rf, GermanCreditTest)

credit.pred1 == credit.pred2
credit.pred2 == credit.pred3
credit.pred1 == credit.pred3

R version 3.1.1 (2014-07-10)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252       LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base

other attached packages:
[1] randomForest_4.6-10 pmml_1.2.30         XML_3.98-1.1        caret_6.0-35        ggplot2_1.0.0       lattice_0.20-29

loaded via a namespace (and not attached):
 [1] BradleyTerry2_1.0-5 brglm_0.5-9         car_2.0-21          codetools_0.2-8       colorspace_1.2-4    digest_0.6.4
 [7] foreach_1.4.2       grid_3.1.1          gtable_0.1.2        gtools_3.4.1        iterators_1.0.7     lme4_1.1-7
[13] MASS_7.3-33         Matrix_1.1-4        minqa_1.2.4         munsell_0.4.2       nlme_3.1-117        nloptr_1.0.4
[19] nnet_7.3-8          plyr_1.8.1          proto_0.3-10        Rcpp_0.11.3         reshape2_1.4        scales_0.2.4
[25] splines_3.1.1       stringr_0.6.2       tools_3.1.1

all.equal(credit.pred1, credit.pred2)
all.equal(credit.pred2, credit.pred3)
all.equal(credit.pred1, credit.pred3)

credit.rf <- randomForest(Class~., data = GermanCreditTrain, ntree = 500)