利用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
