<commit_before>####################################################################################################
## source('~/Master_Thesis/Code/locate_jetstream_2d.r')


####
## DATEN EINLESEN ####
####



locate.jetstream.disc <- function(array, axis, n.cpu) {
  

  ## VARIABLEN PARAMETER PAKETE
  
  library(parallel) # Paralleles Rechnen m Apply

  
  ## SUCHE DES MAXIMAS MITTELS APPLY
  
  cl <- makeCluster(getOption("cl.cores", n.cpu)) ## Variante für paralleles Rechnen
  array.max.y <- parApply(cl, array, c(1,3), max)
  stopCluster(cl)
  
  ##
  array.max.x <- matrix(NA, nrow = nrow(array.max.y), ncol = ncol(array.max.y))
  
  for (i in 1:nrow(array.max.y)) {
    for (j in 1:ncol(array.max.y)) {
      array.max.x[i,j] <- if (!is.na(array.max.y[i,j])) axis[which(array.max.y[i,j] == array[i,,j])]
    }
  }
  
  # Vorbereiten der Liste für Übergabe
  list.max <- list(model.max.lat = array.max.x, model.max.u = array.max.y)
  return(list.max)
  
}

<commit_msg>Fehlerabfrage eingebaut.<commit_after>####################################################################################################
## source('~/Master_Thesis/Code/locate_jetstream_2d.r')


####
## DATEN EINLESEN ####
####



locate.jetstream.disc <- function(array, axis, n.cpu) {
  

  ## VARIABLEN PARAMETER PAKETE
  
  library(parallel) # Paralleles Rechnen m Apply

  
  ## SUCHE DES MAXIMAS MITTELS APPLY
  
  cl <- makeCluster(getOption("cl.cores", n.cpu)) ## Variante für paralleles Rechnen
  array.max.y <- parApply(cl, array, c(1,3), max)
  stopCluster(cl)
  
  ##
  array.max.x <- matrix(NA, nrow = nrow(array.max.y), ncol = ncol(array.max.y))
  
  for (i in 1:nrow(array.max.y)) {
    for (j in 1:ncol(array.max.y)) {
      array.max.x[i,j] <- if (!is.na(array.max.y[i,j])) axis[which(array.max.y[i,j] == array[i,,j])][1]
    }
  }
  
  # Vorbereiten der Liste für Übergabe
  list.max <- list(model.max.lat = array.max.x, model.max.u = array.max.y)
  return(list.max)
  
}


{'fraction_non_alphanumeric': 0.26926977687626774, 'fraction_numerical': 0.005578093306288032, 'mean_word_length': 3.7088305489260143, 'pattern_counts': {'":': 0, '<': 15, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2114190', 'n_tokens_mistral': 807, 'n_tokens_neox': 771, 'n_words': 129}