[R-br] Ponto de intercepção entre duas funções no R

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,