计算时间比较

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

现在有自编的程序，与R语言内置的程序，想比较两个程序执行同样的任务的时间，用system.time函数怎么编写呢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：System STEM time 程序执行 Sys 程序

1. a <- Sys.time()
   
2. 
   
3. 程序
   
4. 
   
5. b <- Sys.time()
   
6. b-a

复制代码

运行不对哦，但是不管怎样，谢谢你

万人往LVR 发表于 2015-7-26 13:48

这个似乎不对，[1] "2015-07-26 18:25:01 CST"
[1] "2015-07-26 18:26:08 CST"
这是a与b的结果，显示的是你做这个的时间呢，不是运行程序的时间哦

Nelsh--Deng 发表于 2015-7-26 18:30
这个似乎不对，[1] "2015-07-26 18:25:01 CST"
[1] "2015-07-26 18:26:08 CST"
这是a与b的结果，显示的 ...

程序最后一行。。。

没有记错的话，按照你的B-A，最后得出的就是前两行的时间差，而不是运行时间差

1. > a<-Sys.time();sum(as.numeric(1:100000000));b<-Sys.time();b-a
   
2. [1] 5e+15
   
3. Time difference of 2.124121 secs

复制代码

U=runif(3*10^4)
U=matrix(data=U,nrow=3)
X=-log(U)
X=2* apply(X,2,sum)
与运行X=rchisq(10^4,df=6)的时间，我要两个的运行时间，谢谢了

万人往LVR 发表于 2015-7-27 09:31

程序U=runif(3*10^4)
     U=matrix(data=U,nrow=3)
     X=-log(U)
     X=2* apply(X,2,sum)
与运行X=rchisq(10^4,df=6)的时间，我要两个的运行时间，谢谢了