Untitled
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