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",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)