Решить многопараметрические уравнения с помощью R

Question

Вот уравнение:

f1<-function(x){miu0-(n1*x[1]-n2*x[2]-n3*x[3])/n}

f2<-function(a){sum((data1-x[1])/(1+a*(data1-x[1])))}

f3<-function(b){sum((data2-x[2])/(1+b*(data2-x[2])))}

f4<-function(c){sum((data3-x[3])/(1+c*(data3-x[3])))}

data1=c(0.028742605 0.098977723 0.129229645 0.006230172 0.265617644 0.165758965 0.517863130 0.210410100 0.106577087)

data2=c(0.09818036 0.30264860 0.32248084 0.37043087 0.20969506 0.13279921 0.01236193 0.44709777)

data3=c(0.40935868 0.07743694 0.06754163)

n1=9;n2=8;n3=3;n=20

Вот описание для условия:

Сначала задано miu0, а miu0 является функцией от x[1], x[2] и x[3]. Мне нужно использовать x[1], x[2] и x [3], чтобы решить a, b и c. Тем не менее, у меня есть только 1 уравнение о х [1], х [2] и х [3]. Если я введу f2, f3, f4, то будут задействованы новые неизвестные a, b, c.

Проблема в том, что теперь я понятия не имею, какую функцию / команду мне следует использовать для вычисления x. Я пытался использовать multiroot, но это не похоже на работу в этом случае.