0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
vroom
/
bench
/
taxi
/
[
Home
]
File: data.table-data.table.R
library(data.table) x <- fread(file, 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]