如何同时运行多个循环？

Question

上下文：这实际上是another question I had posted的后续活动。我们声明以下函数：

iterations_per_minute = function() {
    counter = 0
    end <- Sys.time() + 60
    while( Sys.time() < end )  {
        counter = counter + 1
    }
    return(counter)
}

我注意到，每次执行该函数时，此函数的输出都会发生变化（尽管略有变化）。根据执行它的计算机的不同，也许它也会有所不同（并且不会略有变化）。关于这些观察，我有两个问题。

首先：哪些因素可以解释这些差异（尤其是同一台计算机执行的内部差异很小）？

第二：我想将此函数的输出视为随机变量，并对其进行一些统计。但是，为了这样做，我需要收集它的样本。现在，由于对该随机变量的单次观察需要花费一整分钟的时间才能生成，因此逐个生成每个观察值并不是很明智。我想立即产生各种看法。 这可能需要并行处理多个While循环，而我对并行化一无所知。