用R解方程
比如方程是
y<- function(x, y0, y1, xmid, s2){
    y0 + (y1 - y0) * exp(-(x - xmid)^2/(2 * s2))
}

其中，估计出的参数y0 = 4.618755e-07,   
                             y1 = 3.995935e-02
                         xmid = 9.746333
                            s2 = 5.986636

请教大牛，假设在知道  y =  4.618755e-07   的时候，怎么求出相应的x???




有人说可以使用uniroot，但是一直没有成功，不知道哪里用错了...