s1 <- 1:10
s2 <- seq(1, 10, 1)
s3 <- seq.int(1, 10, 1)
# Benchmarking
library(microbenchmark)
library(ggplot2)
n <- 1000
mb <- microbenchmark(
seq(1, n, 1),
1:n,
times = 100
)
mb
Unit: nanoseconds
expr min lq mean median uq max neval
seq(1, n, 1) 16971 17798.5 19162.03 18474 18785 57627 100
1:n 100 120.0 187.54 180 211 1162 100