Untitled

 avatar
unknown
r
a year ago
1.1 kB
5
Indexable
resultados <- list()

for(i in 1:11){
  m0 <- enfocadora(i)
  foo <- list()
  for(j in 1:6){
    m0 <- enfocadora2(j)  
    foo[[j]] <- m0  
  }
  foo2 <- list()
  for(j in 1:6){
    foo2[[j]] <- parametrizadora(foo[[j]])
  }
  resultados[[i]] <- foo2
}

TP <- c()
FP <- c()
TN <- c()
FN <- c()

extract_values <- function(result) {
  TP_value <- ifelse(is.na(result$resultados_TP), NA, result$resultados_TP)
  FP_value <- ifelse(is.na(result$resultados_FP), NA, result$resultados_FP)
  TN_value <- ifelse(is.na(result$resultados_TN), NA, result$resultados_TN)
  FN_value <- ifelse(is.na(result$resultados_FN), NA, result$resultados_FN)
  return(c(TP_value, FP_value, TN_value, FN_value))
}

for (i in seq_along(resultados)) {
  for (j in seq_along(resultados[[i]])) {
    values <- extract_values(resultados[[i]][[j]])
    TP <- c(TP, values[1])
    FP <- c(FP, values[2])
    TN <- c(TN, values[3])
    FN <- c(FN, values[4])
  }
}

resultados_df <- data.frame(TP, FP, TN, FN)

enf1 <- rep(1:11, each = 6)
enf2 <- rep(1:6, times = 11)

resultados_df <- cbind(resultados_df, enf1, enf2)
Editor is loading...
Leave a Comment