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

[Rodolfo Marcondes Silva Souza]

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,