Nothing

```
#' @export
CD_mA <- function(alpha, Beta, p) {
# computing Cobb-Douglas demand structure matrix in a monetary economy
nonnegative_Beta <- Beta
nonnegative_Beta[Beta < 0] <- 0
A <- CD_A(alpha, nonnegative_Beta, p)
tmpA <- A
Indx <- which(Beta < 0, arr.ind = T)
for (k in 1:nrow(Indx)) {
A[Indx[k, 1], Indx[k, 2]] <- t(p) %*% tmpA[, Indx[k, 2]] / (-Beta[Indx[k, 1], Indx[k, 2]])
}
A
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.