How to parallelize matrix slicing by conditional indexing in R using DoParallel?

Question

I have trying parallelize for loop in the following code snippet:

t0 <- Sys.time()
x <- matrix(runif(200*1000, 1, 5), nrow =200, ncol = 1000)
print(Sys.time