利用R语言测试电脑的性能如何
同事新配了一个电脑，想用R语言编写一个程序，看一下电脑性能如何，让我写个代码测试一下。
我能怎么样，我也不懂如何测试电脑啊，那就计算一下矩阵的运算吧。因为我理解的电脑运行性能就是矩阵计算了。
编写代码
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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)
})
|
代码解释
- 首先把R中的变量清空
- 设计随机种子数，生成的随机数就是一样的
- 然后生成10000*10000的矩阵
- 测试1：矩阵求逆
- 测试2：矩阵相乘
- 测试结果是运行时间。
个人电脑
我的个人电脑是这个样子滴：
-
矩阵求逆运行了
1011 -
秒矩阵相乘运行了
925秒
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# 个人电脑，16G内存
# > # 测试电脑性能
# > system.time({
# + # 矩阵求逆
# + ainv = solve(mat)
# + })
# 用户 系统 流逝
# 1007.69 0.62 1011.49
# >
# >
# >
# > # 测试电脑性能
# > system.time({
# + # 矩阵相乘
# + re = mat %*% t(mat)
# + })
# 用户 系统 流逝
# 915.02 0.75 925.86
|
服务器对比
-
矩阵求逆运行了
6.4 -
秒矩阵相乘运行了
3.32秒
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# 公司服务器测试结果
# > # 测试电脑性能
# > system.time({
# + # 矩阵求逆
# + ainv = solve(mat)
# + })
# 用户 系统 流逝
# 146.428 10.211 6.405
# > # 测试电脑性能
# > system.time({
# + # 矩阵相乘
# + re = mat %*% t(mat)
# + })
# 用户 系统 流逝
# 79.945 10.179 3.323
|
1011s VS 4s！！！
货比货要扔……
补一刀
同事发过来一个CPU的天梯，我看了自己所在的位置，默默的关上了电脑：
到此这篇关于利用R语言测试电脑的性能如何的文章就介绍到这了,更多相关R语言性能测试内容请搜索服务器之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持服务器之家！
原文链接：https://blog.csdn.net/yijiaobani/article/details/115865488