0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
vroom
/
bench
/
taxi_multiple
/
[
Home
]
File: data.table-data.table.R
library(data.table) x <- rbindlist(idcol = "path", lapply(stats::setNames(file, file), fread, sep = ",", quote = "", strip.white = FALSE, na.strings = NULL) ) print(x) a <- head(x) b <- tail(x) c <- x[sample(NROW(x), 100), ] d <- x[payment_type == "UNK", ] e <- x[ , .(mean(tip_amount)), by = payment_type]