R_code1

rows <- 30000
columns <- 100

dataSet <- matrix(runif(rows*columns), ncol=columns)
oldColumns=rep(T, ncol(dataSet))
euclidianDistances  <- rep(0, nrow(dataSet))

for (i in 1:rows){ # memory usage goes up
  TestPackage:::calculateEuclidianDistances(dataSet, oldColumns, euclidianDistances)
}

for (cycle in 1:rows){ # no problems here
  calculateEuclidianDistances(dataSet, oldColumns, euclidianDistances)
}