Update repmat.R

ericstrobl · Sep 1, 2018 · 7f95f84 · 7f95f84
1 parent 7a8e117
commit 7f95f84
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/repmat.R b/R/repmat.R
@@ -8,7 +8,7 @@
 
 repmat = function(X,m,n){
  ##R equivalent of repmat (matlab)
- if (!is.matrix(X)){X=matrix(X);}
+ X=matrix2(X);
  mx = dim(X)[1]
  nx = dim(X)[2]
  matrix(t(matrix(X,mx,nx*n)),mx*m,nx*n,byrow=T)