Online training class for Clinical R programming batch starts on Monday, 02Feb2026.
Click here for details.
library(tidyverse)
library(lubridate)
dates <- tribble(
~dob,
"2000-01-01",
"1995-02-15",
"2010-12-20"
) %>%
mutate(dob = ymd(dob)) %>%
mutate(
day = day(dob),
month = month(dob),
year = year(dob),
weekday = wday(dob, label = TRUE)
) dates <- data.frame(
dob = c("2000-01-01", "1995-02-15", "2010-12-20")
, stringsAsFactors = FALSE
)
dates$dob <- as.Date(dates$dob)
dates$day <- as.integer(format(dates$dob, "%d"))
dates$month <- as.integer(format(dates$dob, "%m"))
dates$year <- as.integer(format(dates$dob, "%Y"))
dates$weekday <- weekdays(dates$dob)
print(dates)