测量R-studio中选定代码的运行时间

1. 将system.time()函数放在代码段的前后来测量运行时间

# 示例代码段
# 开始测量运行时间
start_time <- system.time()

for (i in 1:1000000) {
  x <- i^2
}

# 结束测量运行时间
end_time <- system.time()

# 计算经过的时间
elapsed_time <- end_time - start_time

# 从结果中提取经过的时间
elapsed_time <- elapsed_time["elapsed"]

# 打印经过的时间
cat("经过的时间：", elapsed_time, "秒\n")

 

2. 放在函数中测量

# 示例代码段
my_code_segment <- function() {
  # 将你想要测量运行时间的代码段放在这里
  for (i in 1:1000000) {
    x <- i^2
  }
}

# 测量代码段的运行时间
start_time <- system.time({
  my_code_segment()
})

# 从结果中提取经过的时间
elapsed_time <- start_time["elapsed"]

# 打印经过的时间
cat("经过的时间：", elapsed_time, "秒\n")