Cómo crear una línea de presupuesto en excel o R

Estoy interesado en programar una línea presupuestaria o PPF que responda a los cambios en los precios relativos y al efecto en los ingresos.

Sé que la ecuación para la línea presupuestaria es Digamos que tenemos un ingreso de y precios y .

m \geq p_{1} x_{1} + p_{2} x_{2}

$m\geq p_1x_1+p_2x_2$

m = 100

$m=100$

p_{1} = 1

$p_1=1$

p_{2} = 2

$p_2=2$

¿Cómo haría para programar esto en una hoja de cálculo de Excel o R?

microeconomics software

— EconJohn
fuente

¿Puede proporcionar más detalles sobre la teoría de producción en la que está pensando? ¿Es esta una teoría abstracta, usando entradas , o se trata de capital y trabajo? ¿Qué función de producción? Además, ¿has hecho algo? No estoy seguro de que pedir código sea completamente sobre el tema.

n

$n$

x_{i}

$x_i$

— luchonacho

Convenido. Todo lo que has dicho es: "Quiero programar algo sobre la teoría del productor". Eso es absurdamente general.

— TheSaint321

@luchonacho mejor?

— EconJohn

Yo diría que sí. Pero, al final, todo lo que tienes es una función. Todavía tienes dos incógnitas y una ecuación. El sistema es indeterminado. ¿Desea simplemente crear un gráfico de esto, que se mueva de acuerdo con la parametrización elegida? Si pudiera agregar más información a la pregunta, sería genial. Por el momento no creo que sea lo suficientemente claro.

— luchonacho

Sí, solo quiero un gráfico que cambie por parametrización. Estoy volviendo a lo básico, ya que quiero aplicar mi teoría económica a conjuntos de datos reales. Este es un comienzo.

— EconJohn

Otro código R que lo hace ...

m <- 100
p <- c(1, 2) 
curve(m/p[2] - p[1]/p[2]*x, from = 0, to = m/p[1], lwd = 2,
      xlab = expression(x[1]),
      ylab = expression(x[2]))

— snoram
fuente

Si desea dibujar una restricción presupuestaria que toma , y como entradas, este es un código R que lo hace: $m$ $p_1$ $p_2$

# Clear environment
remove(list = ls())

# Enter inputs
m=100
p1=1
p2=2

# Create plot
plot(c(0,(m/p1)*1.1), c(0,(m/p2)*1.1), type = "n", xlab = expression(x[1]), ylab = expression(x[2]), xaxs="i", yaxs="i")
abline(m/p2, -p1/p2, col = 1, lwd = 2)

Usted obtiene:

El límite de los ejes se ajusta de acuerdo a los parámetros, agregando un 10% más a cada punto de cruce del eje.

— luchonacho
fuente