Bonjour, Parce que ce sont des logiques différentes. Quand tu fais test %>% mutate("DTIR-101" = as.integer("DTIR-101")) tu ne fais pas appel à la variable (colonne) DTIR-101 mais à la chaîne de caractère "DTIR-101", et transformer cette chaîne de caractères en nombre, c...
Question bête mais est-ce que les versions de R (et non R-studio) sont les mêmes entre les deux ordis ? Sinon est-ce que sur le W10 tu as essayé de changer le serveur pour la gestion des packages (options - packages - management) ?
Bonjour, Le souci vient de l'utilisation du ifelse sur un tibble. Normalement c'est plutôt fait pour un vecteur, donc plutôt l'appliquer colonne par colonne (il est toujours plus efficace en R de travailler par colonne que par ligne). jo <- o %>% mutate_all(~ifelse(. > 0, 0 , .)) Mais le plus simple...
Bonjour, Le code renvoie un warning qui dit que les longueurs d'objets ne sont pas les mêmes. Par rapport aux codes précédents, il semble manquer un sapply dans myf. Pour ce qui est des valeurs initiales, non je ne connais pas de technique idéale, a part essayer dans la mesure du possible que mettre...
Bonjour, Il semble qu'il te manque une accolade pour ta boucle : for (index in 1:length(Dseq)) { D_value <- Dseq[index] result <- sapply(t, function(t) f(t, D_value)) datatemp=cbind(data,result) res[index]=mean((datatemp$y-datatemp$result)^2) } Si tu ne la mets pas seule la première ligne sera exécu...
Juste pour signaler que le code que j'ai fourni est entièrement basé sur lubridate pour la gestion du temps (date, heure, etc.), avec des fonctions comme ymd_hms, as_date, interval et %within%. Le reste ce sont des fonctions de dplyr déjà mentionnées pour la plupart.
Bonjour, je ne suis pas très familier avec lubridate, mais voilà une possibilité : # pour l'exemple : dta <- data.frame(time = seq(ymd_hms("20230201 000000"), ymd_hms("20230205 230000"), by = "hour")) # si on définit une nuit comme allant de 22h00 à 08h00 auxi <- dta %>...
Bonjour, Il te manque une virgule après la parenthèse : DATA_WO=DATA[c(-outlier_inj_WT_idx), ] D'ailleurs tu n'as pas besoin de c(-outlier...), tu peux directement mettre -outlier_inj_WT_idx. Autre remarque en passant, il est souvent conseillé d'effectuer tes affectations avec une flèche plutôt qu'u...
Bonjour, Là ou je pensait que cela pourrait poser problème, serait si l'utilisateur charge caret, puis mon package, et ensuite ferait appel à predict() avec une méthode du package caret, est-ce que cela ne pose pas de problème à ce moment là ? Tu as raison, ça poserait problème parce que dans ce cas...
re, Peut-être que le plus simple dans un cas comme celui-ci était de définir une fonction qui fasse exactement ce que tu cherchais : f <- function(x) { mn <- mean(x, na.rm = TRUE) s <- sd(x, na.rm = TRUE) al <- algA(x, na.rm = TRUE) res <- data.frame(mn = mn, s = s, mur = al$mu, sr = al$s) res } dta...
Bonjour, Il y a quelque chose d'ambigu dans ce que tu cherches à faire. D'une part tu crées une fonction pour une classe d'objet dédiée à la fonction générique du package caret, mais dans le même temps tu ne veux pas importer le package parce que les utilisateurs n'en ont pas nécessairement besoin. ...