Olá pessoal,

Gostaira de saber se é possível calcular o ponto de intercepção entre das funções/equações não lineares no R?

CMR:
f1=function(x,y){
  x^2 - 3 * y
}

f2=function(x,z){
  4 * z - x^2
}

x=seq(1,10,0.5)
y=3
z=15

plot(x,f1(x,y), type='l', col='red', ylim=c(0,100))
lines(x,f2(x,z), col='blue')

Eu preciso encontrar um função que fazendo f1=f2 possa me retornar o valor em x onde ocorre a intercepção de f1 e f2. Alguém sabe como se resolve esse problema no R?

Obrigado,