x <- rnorm(10000000, 0, 1)

pc<-proc.time()
cmax <- x[1]

for (i in 2:10000000)
{
  if (x[i] > cmax) cmax <- x[i]
}
proc.time() - pc