Should give a better warning, or do something to avoid this:
data(hyper)
colnames(hyper$geno[[1]]$data)[2] <- colnames(hyper$geno[[1]]$data)[3]
names(hyper$geno[[1]]$map)[2] <- names(hyper$geno[[1]]$map)[3]
out <- est.rf(hyper)
pull.rf(out)
Error in `.rowNamesDF<-`(x, value = value) :
duplicate 'row.names' are not allowed
In addition: Warning message:
non-unique value when setting 'row.names': ‘D1Mit156’
Should give a better warning, or do something to avoid this: