#simulate a time series
m <- zoo_simulate(seed = 1)
#sample some rows
rows <- sample(
x = nrow(m),
size = 10
) |>
sort()
#subset by rows
m_subset <- subset_matrix_by_rows_cpp(
m = m,
rows = rows
)
#compare with original
m[rows, ]
Run the code above in your browser using DataLab