rownames(X_train) <- seq(1,nrow(X_train)) ---------------------------------------------------------------- Daniel Tiezzi, MD, PhD Oncologia / Mastologia Professor Associado - Livre Docente Departamento de Ginecologia e Obstetrícia Setor de Mastologia e Oncologia Ginecológica Faculdade de Medicina de Ribeirão Preto - USP Tel.: 16 3602-2488 e-mail: dtiezzi@usp.br <mailto:dtiezzi@usp.br> https://github.com/dtiezzi <https://github.com/dtiezzi>
On 25 Nov 2020, at 16:03, ASANTOS por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:
library(dplyr) RES_F<-read.csv("https://raw.githubusercontent.com/Leprechault/trash/main/cnn_ds.csv" <https://raw.githubusercontent.com/Leprechault/trash/main/cnn_ds.csv>,sep=",",h=T) RES_train<-RES_F%>% group_by(status) %>% sample_n(1280) X_train <- RES_train %>% select(-status) %>% as.matrix(nrow = length(RES_train[,2]), ncol = ncol(RES_train)-1, byrow = TRUE) str(X_train)