How can I solve this function in R?

Fran?ois Aucoin <frank.aucoin <at> gmail.com> writes:

I would like to solve the following function in R:

G <- function(k)  (2*(1 - k)*(1 + 2*k)^.5)/(1+3*k)

G <- function(k)  (2*(1 - k)*(1 + 2*k)^.5)/(1+3*k)
GZero <-function(k,G0) G(k)-G0
plot(1:100,G(1:100))
uniroot(GZero,c(0,100),G=-5)


Dieter