教你利用R語(yǔ)言測(cè)試電腦的性能
更新時(shí)間：2021年04月22日 11:41:51 作者：育種數(shù)據(jù)分析之放飛自我
這篇文章主要介紹了利用R語(yǔ)言測(cè)試電腦的性能如何,通過矩陣的運(yùn)算來計(jì)算，本文通過代碼講解的非常詳細(xì)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
利用R語(yǔ)言測(cè)試電腦的性能如何
同事新配了一個(gè)電腦，想用R語(yǔ)言編寫一個(gè)程序，看一下電腦性能如何，讓我寫個(gè)代碼測(cè)試一下。
我能怎么樣，我也不懂如何測(cè)試電腦啊，那就計(jì)算一下矩陣的運(yùn)算吧。因?yàn)槲依斫獾碾娔X運(yùn)行性能就是矩陣計(jì)算了。
編寫代碼
rm(list=ls())
set.seed(123)
# 設(shè)置矩陣的行數(shù)
n = 10000
# 生成一個(gè)矩陣
value = rnorm(n*n, 10,3)
mat = matrix(value,n,n)
# 測(cè)試電腦性能
system.time({
# 矩陣求逆
ainv = solve(mat)
})
# 測(cè)試電腦性能
system.time({
# 矩陣相乘
re = mat %*% t(mat)
})
代碼解釋
- 首先把R中的變量清空
- 設(shè)計(jì)隨機(jī)種子數(shù)，生成的隨機(jī)數(shù)就是一樣的
- 然后生成10000*10000的矩陣
- 測(cè)試1：矩陣求逆
- 測(cè)試2：矩陣相乘
- 測(cè)試結(jié)果是運(yùn)行時(shí)間。
個(gè)人電腦
我的個(gè)人電腦是這個(gè)樣子滴：
- 矩陣求逆運(yùn)行了
1011 - 秒矩陣相乘運(yùn)行了
925秒
# 個(gè)人電腦，16G內(nèi)存
# > # 測(cè)試電腦性能
# > system.time({
# + # 矩陣求逆
# + ainv = solve(mat)
# + })
# 用戶 系統(tǒng) 流逝
# 1007.69 0.62 1011.49
# >
# >
# >
# > # 測(cè)試電腦性能
# > system.time({
# + # 矩陣相乘
# + re = mat %*% t(mat)
# + })
# 用戶 系統(tǒng) 流逝
# 915.02 0.75 925.86
服務(wù)器對(duì)比
- 矩陣求逆運(yùn)行了
6.4 - 秒矩陣相乘運(yùn)行了
3.32秒
# 公司服務(wù)器測(cè)試結(jié)果
# > # 測(cè)試電腦性能
# > system.time({
# + # 矩陣求逆
# + ainv = solve(mat)
# + })
# 用戶 系統(tǒng) 流逝
# 146.428 10.211 6.405
# > # 測(cè)試電腦性能
# > system.time({
# + # 矩陣相乘
# + re = mat %*% t(mat)
# + })
# 用戶 系統(tǒng) 流逝
# 79.945 10.179 3.323
1011s VS 4s?。?！
貨比貨要扔……
補(bǔ)一刀
同事發(fā)過來一個(gè)CPU的天梯，我看了自己所在的位置，默默的關(guān)上了電腦：
到此這篇關(guān)于利用R語(yǔ)言測(cè)試電腦的性能如何的文章就介紹到這了,更多相關(guān)R語(yǔ)言性能測(cè)試內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！
相關(guān)文章
R語(yǔ)言作圖之density plot(密度圖)的制作步驟
這篇文章主要介紹了R語(yǔ)言作圖之density plot(密度圖)的制作步驟,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-03-03
這篇文章主要介紹了R語(yǔ)言中aggregate?函數(shù)的相關(guān)資料,aggregate函數(shù)是數(shù)據(jù)處理中常用到的函數(shù)，具有強(qiáng)大的功能，可以按照要求把數(shù)據(jù)打組聚合，然后對(duì)聚合以后的數(shù)據(jù)進(jìn)行加和、求平均等各種操作，需要的朋友可以參考下2023-04-04
本文主要介紹了R語(yǔ)言向量下標(biāo)和子集的使用，文中通過示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2022-03-03
這篇文章主要介紹了R語(yǔ)言-有負(fù)下標(biāo)里才能有零的實(shí)例講解，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04
本文將結(jié)合實(shí)例代碼，介紹R語(yǔ)言的Dataframe常用操作使用，文中通過示例代碼介紹的非常詳細(xì)，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2021-06-06
R語(yǔ)言dplyr包之高效數(shù)據(jù)處理函數(shù)（filter、group_by、mutate、summarise）詳解
這篇文章主要介紹了R語(yǔ)言dplyr包之高效數(shù)據(jù)處理函數(shù)（filter、group_by、mutate、summarise）的相關(guān)知識(shí)，本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-03-03
這篇文章主要介紹了R語(yǔ)言-如何給直方圖加標(biāo)簽，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04
大數(shù)據(jù)分析R語(yǔ)言RStudio使用超詳細(xì)教程
RStudio是用于R編程的開源工具，這篇文章主要介紹了大數(shù)據(jù)分析R語(yǔ)言RStudio使用教程和一些RStudio的重要技巧，竅門和快捷方式，可快速將您變成RStudio高級(jí)用戶，感興趣的朋友跟隨小編一起看看吧2021-03-03
這篇文章主要介紹了基于R語(yǔ)言賦值符號(hào)的區(qū)別說明，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04
R語(yǔ)言-使用ifelse進(jìn)行數(shù)據(jù)分組
這篇文章主要介紹了R語(yǔ)言-使用ifelse進(jìn)行數(shù)據(jù)分組，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04