further tidying up

DistanceDevelopment · Jul 14, 2015 · 5f893ed · 5f893ed
1 parent c73068b
commit 5f893ed
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/R/logisticbyz.R b/R/logisticbyz.R
@@ -14,7 +14,7 @@ logisticbyz <- function (x, distance, models, beta){
 
   #  Functions used: g0, setcov
 
-  x$distance <- rep(distance,length(x$distance))
+  x$distance <- rep(distance, length(x$distance))
   zlist <- setcov(x, models$g0model)
   return(g0(beta,zlist))
 }
diff --git a/R/setcov.R b/R/setcov.R
@@ -32,9 +32,6 @@ setcov <- function(dmat, model){
   }else{
     #x <- model.matrix(eval(parse(text=model)), data = dmat)
     x <- model.matrix(as.formula(model), data = dmat)
-    #if(!is.matrix(x))
-    #  x <- as.matrix(x)
-    #n <- dim(x)[2]
   }
   return(x)
 }