Rで行列計算(行列の足し算)

sweepは速いと思っていたが違った。
(環境:Windows 10 64bit、R3.3.3)

> system.time(test1 <- out + matrix(rep(b1,576000),nrow=576000,byrow=T))
   ユーザ   システム       経過  
      0.13       0.03       0.16 
> system.time(test2 <- sweep(out,2,b1,FUN="+",check.margin=F))
   ユーザ   システム       経過  
      0.28       0.00       0.28 
> identical(test1,test2)
[1] TRUE