fix

alfredgalichon · alfredgalichon · commit 302c3cfea083 · 2017-02-14T14:27:34.000-05:00
diff --git a/R/0_estimation.R b/R/0_estimation.R
@@ -57,7 +57,7 @@ dtheta_mu_default <- function(model, market, theta, dtheta=diag(length(theta)))
   num3 = dvPsivec * dtheta_NablaGstar(arumsH,t(mu),market$m,dthetaH,xFirst=FALSE)
   #
   dmu = -solve(denom, num1)
-  num = cbind(num1, num2, num3)
+  #num = cbind(num1, num2, num3)
   #
   return(list(mu= c(mu),mux0s=mux0s, mu0ys=mu0ys,dmu=dmu))
 }

Original file line number	Diff line number	Diff line change
`@@ -57,7 +57,7 @@ dtheta_mu_default <- function(model, market, theta, dtheta=diag(length(theta)))`
`57`	`57`	`num3 = dvPsivec * dtheta_NablaGstar(arumsH,t(mu),market$m,dthetaH,xFirst=FALSE)`
`58`	`58`	`#`
`59`	`59`	`dmu = -solve(denom, num1)`
`60`		`- num = cbind(num1, num2, num3)`
	`60`	`+ #num = cbind(num1, num2, num3)`
`61`	`61`	`#`
`62`	`62`	`return(list(mu= c(mu),mux0s=mux0s, mu0ys=mu0ys,dmu=dmu))`
`63`	`63`	`}`