Я хочу построить график этой функции, но получаю «Ошибка в uniroot(L, lower = 0, upper = 1e+05): значения f() в конечных точках не противоположного знака»

Question

      find.c<-function(p){
  L<- function(Q,x=p){
    Const <- log(16.1)
    ConstP <- log(15.1+Q)*(0.144)+log(14.1+Q)*(0.0064)+log(8.1+Q)*(0.0032)
    X <- log(16.1+Q)*(0.81+x)+log(2.1+Q)*(0.0004+x)
    X + ConstP - Const #This is derived from the principle of zero utility. 
  }
  P<-uniroot(L,lower=0,upper=100000)$root
  c=P/0.44
  return(c)
}
find.c(p=0.005)
find.c(p=0.015)

Эта функция отлично работает при нахождении одиночных значений p. Но когда я пытаюсь

      curve(find.c, from = 0, to=1)

Я получаю ошибку в заголовке. Я очень новичок в R или кодировании в целом, поэтому я действительно потерялся здесь.