根据R中的另一个变量重写方程式

Question

我有一个函数，例如Q = 4000-50P用R编写为 q1 <- function(p_)pmax(0,4000-50*p_)

我想用P来重写等式，以获得P = 80-(1/50)*Q并写成R的{​​{1}}

p1 <- function(q1_)pmax(0,80-(1/50)*q1_)是否可以解决另一个变量的函数/等式？我想告诉R用R解第一个方程。我似乎无法在网上找到任何答案。预先感谢！