Bonjour !
Dans le cadre d'une analyse de données dans une rechercher en biologie, un collègue m'a transféré un de ces scripts qui tourne très bien sous Windows... Cependant sur mon mac , il fonctionne sur certains fichiers mais pas sur d'autres. Pourtant tous les fichiers ont la même origine et sont organisés de la même manière ...
RSTUDIO m'annonce cette erreur : Error in matrix(if (is.null(value)) logical() else value, nrow = nr, dimnames = list(rn, :
data is too long
Voici les lignes de script où ca coince
-----------------------------------------------------------------------------------------
path <- "/Users/dylancolson/Desktop/profish perso/Rothenfels_2020"
setwd(path)
#definition chemin d'accès
library("RColorBrewer")
####variables entree####
delayTAG <- 1 #tags émettent toutes les secondes
frequences <- c(150.795,150.800,150.805,150.755, 150.760, 150.765) #frequences utilisées
nbdetection_min <- 3
int_tps_max <- 5 * delayTAG
#besoin de 3 détections minimums dans un laps de temps de 3*temps émissions des tags
date_debut_suivi <- "2020-09-01 00:00:00"
Code <- read.table('ID_TAG.txt', h=T) #importation des codes utilisés
#Tri des fausses détections
###compil des fichiers #####
Data <- do.call ( rbind, lapply(dir(paste(path,'/Download 03092020/', sep='')), function (x) {
tmp <-read.table(paste(path,'/Download 03092020/',x, sep=''), h=T)
tmp <- tmp[ tmp$Code %in% Code$Lotek_code, ]
tmp <- tmp[ tmp$Freq %in% frequences, ]
#do.call rbind vient coller ensemble plusieurs dataframes. Lapply repete le bind sur plusieurs fichier via dir(paste).
# la fonction importe les differents dataframes dans "tmp".
# tmp <- tmp[ tmp$Code %in% Code$Lotek_code, ] selectionne les codes utilisés (code<- ID_TAG)
# tmp <- tmp[ tmp$Freq %in% frequences, ] selectionne les frequences utilisées
if (dim( tmp[1]>0) ) {
tmp$Ant <- sub('.txt','',tail(strsplit(x ,split ='_')[[1]], n=1) ) }
# pas tout compris mais cette partie du code sert a remplacé la donnée dans antenne (=1) par le numéro de l'antenne provenant du nom de fichier
return(tmp)
})
)
---------------------------------------------------------------------------------
voici un lien avec les données utilisées https://we.tl/t-RWvlbv5602
Merci pour vos réponses