教你利用R语言测试电脑的性能

rm(list=ls())
set.seed(123)

# 设置矩阵的行数
n = 10000

# 生成一个矩阵
value = rnORM(n*n, 10,3)
mat = matrix(value,n,n)

# 测试电脑性能
system.time({
  # 矩阵求逆
  ainv = solve(mat)
})

# 测试电脑性能
system.time({
  # 矩阵相乘
  re = mat %*% t(mat)
})

# 个人电脑，16G内存

# > # 测试电脑性能
#   > system.time({
#     +   # 矩阵求逆
#       +   ainv = solve(mat)
#       + })
# 用户    系统    流逝 
# 1007.69    0.62 1011.49 
# > 
#   > 
#   > 
#   > # 测试电脑性能
#   > system.time({
#     +   # 矩阵相乘
#       +   re = mat %*% t(mat)
#       + })
# 用户   系统   流逝 
# 915.02   0.75 925.86 

# 公司服务器测试结果
# > # 测试电脑性能
#   > system.time({
#     +   # 矩阵求逆
#       +   ainv = solve(mat)
#       + })
# 用户    系统    流逝 
# 146.428  10.211   6.405 
# > # 测试电脑性能
#   > system.time({
#     +   # 矩阵相乘
#       +   re = mat %*% t(mat)
#       + })
# 用户   系统   流逝 
# 79.945 10.179  3.323