Графический набор уровней в R

Question

Любая идея, как нарисовать это уравнение в R? Мне было предложено сделать это и не знаю, как построить это без каких-либо цифр.

p(x, y) = xy - max(.008x, .00075xy) 

ограничение:

x = exp(-y)/(1+exp(-y)) 

Любая помощь будет здорово, спасибо!

Answer 1

Можно определить две функции, как это:

#first you create the second equation i.e. x 
f_x <- function(x) exp(-x)/(1+exp(-x)) 

#and then you rewrite the first function where you replace x with exp(-y)/(1+exp(-y)) 
f_y <- function(y) f_x(y) * y - max(.008 * f_x(y), .00075 * y * f_x(y)) 

А затем построить его с помощью curve:

curve(f_y) 

Выход: