Code : Tout sélectionner
> library(lubridate)
> library(hms)
> hms::as.hms(hms::as.hms("10:45:00") + dminutes(20))
11:05:00
Code : Tout sélectionner
x <- "3037//1922 3038//1921 3039//1924"
unlist(strsplit(gsub("//\\d{4}", "", x), " "))
[1] "3037" "3038" "3039"
Code : Tout sélectionner
summary(lm( B ~ A + I(A ^ 2), data = df))
Code : Tout sélectionner
summary(lm( B ~ poly(A, 2, raw = TRUE), data = df))
Code : Tout sélectionner
library(tidyverse)
df <- fill(df, nom_proteine)