В вашем фрейме данных отсутствуют данные:
> pdata = data1[,!(colnames(data1) %in% c('lable')) ]
pdata
имеет 45 строк, но:
> ok = complete.cases(pdata)
> sum(ok)
[1] 43
только 43 имеют полные данные.
В каких строках отсутствуют данные?
> rownames(pdata[!ok,])
[1] "GSM1388233" "GSM1388235"
Предупреждение не выдается, потому что в документации написано:
## S3 method for class 'train'
predict(object, newdata = NULL, type = "raw",
na.action = na.omit, ...)
, который говорит, что пропускает любые строки с отсутствующими данными - молча.