R语言性能测试 教你利用R语言测试电脑的性能
育种数据分析之放飞自我 人气:0想了解教你利用R语言测试电脑的性能的相关内容吗，育种数据分析之放飞自我在本文为您仔细讲解R语言性能测试的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：R语言性能测试,R语言电脑性能测试，下面大家一起来学习吧。
利用R语言测试电脑的性能如何
同事新配了一个电脑，想用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)
})
代码解释
- 首先把R中的变量清空
- 设计随机种子数，生成的随机数就是一样的
- 然后生成10000*10000的矩阵
- 测试1：矩阵求逆
- 测试2：矩阵相乘
- 测试结果是运行时间。
个人电脑
我的个人电脑是这个样子滴：
- 矩阵求逆运行了
1011 - 秒矩阵相乘运行了
925秒
# 个人电脑，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秒
# 公司服务器测试结果
# > # 测试电脑性能
# > 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的天梯，我看了自己所在的位置，默默的关上了电脑：
加载全部内容