Olá pessoal, bom dia!
<div> </div>

<div>Preciso rodar um código, mas estou com um erro.</div>

<div>Poderiam me ajudar,por favor?</div>

<div> </div>

<div> </div>

<div>
<div>library(MASS)</div>

<div>library(class)</div>

<div>library(caret) </div>

<div>library(e1071)</div>
</div>

<div> </div>

<div>
<div>biopsyX = na.omit(biopsy[,-c(1)]) # Removi a coluna ID</div>

<div>is.na(biopsyX$V6)</div>

<div>biopsyX <- na.omit(biopsyX)    # Omitir os valores NA</div>

<div>str(biopsyX)</div>
</div>

<div> </div>

<div> </div>

<div>
<div>set.seed(1984)</div>
</div>

<div> </div>

<div>
<div>ctrl <- trainControl(method="repeatedcv", number=683)</div>

<div>nn_grid <- expand.grid(k=c(1:12))</div>

<div>best_knn <- train(class ~ ., data=biopsyX, method="knn", trControl=ctrl, preProcess = c("center", "scale"), tuneGrid=nn_grid)</div>
</div>

<div>print(best_knn) </div>

<div> </div>

<div> </div>

<div>O meu código trava na linha de treinar o modelo, e me retorna o seguinte erro:</div>

<div>"Warning message:</div>

<div>In nominalTrainWorkflow(x = x, y = y, wts = weights, info = trainInfo,  :</div>

<div>  There were missing values in resampled performance measures."</div>

<div> </div>

<div>Eu não tenho valores NA na minha base... não estou entendendo o erro.</div>

<div> </div>

<div>Outra dúvida: Está correto o ordem do código? O seed deveria ficar após a linha do ctrl?</div>

<div> </div>

<div>Obrigada</div>

<div>Juliana</div>

<div> </div>

<div> </div>

<div> </div>

<div> </div>