получить время выполнения в миллисекундах в R

Я прочитал решение этой проблемы, используя Функции tic (), toc ()

tic <- function(gcFirst = TRUE, type=c("elapsed", "user.self", "sys.self"))
{
   type <- match.arg(type)
   assign(".type", type, envir=baseenv())
   if(gcFirst) gc(FALSE)
   tic <- proc.time()[type]         
   assign(".tic", tic, envir=baseenv())
   invisible(tic)
}

toc <- function()
{
   type <- get(".type", envir=baseenv())
   toc <- proc.time()[type]
   tic <- get(".tic", envir=baseenv())
   print(toc - tic)
   invisible(toc)
}




tic();
-----code----
toc();


elapsed 
   0.15 

Но я хотел бы получить большую точность в миллисекундах?

Также я использовал это

ptm <- proc.time()
---code
proc.time() - ptm

и получил это

   user  system elapsed 
   1.55    0.25    1.84 

Как получить больше десятичных знаков или большую точность?