fixing warning on travis build about length1 vector array arithmetic

jonathan-taylor · jonathan-taylor · commit 86ff82031e37 · 2019-09-04T11:26:32.000-07:00
diff --git a/selectiveInference/R/funs.sampler.R b/selectiveInference/R/funs.sampler.R
@@ -54,7 +54,7 @@ log_concave_sampler = function(negative_log_density,
   
   update_velocity = function(){
     Z=rnorm(dim)
-    return(Z/sqrt(t(Z)%*%Z))
+    return(Z/sqrt(sum(Z^2)))
   }
   
   compute_next = function(state){

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,7 @@ log_concave_sampler = function(negative_log_density,`
`54`	`54`
`55`	`55`	`update_velocity = function(){`
`56`	`56`	`Z=rnorm(dim)`
`57`		`- return(Z/sqrt(t(Z)%*%Z))`
	`57`	`+ return(Z/sqrt(sum(Z^2)))`
`58`	`58`	`}`
`59`	`59`
`60`	`60`	`compute_next = function(state){`