Rのunirootの結果をoptimizeで同じ結果を算出したい

Question

unirootの結果をoptimizeで同じ結果を算出できるか確認したいと思っています。
unirootは0になる解を求め、Optimizeは最大化（または最小化）して最適解を求める関数ですが、
以下のunirootの0になる解（0.0036）をOpitimezeで制約をかけて算出することができるのでしょうか。
（以下のOptimizeでは‘6.924’の項があってもなくても、maximumは0.19999となる）

#uniroot
uniroot(function(x) 2*log(x)+8*log(1-x)+6.924, c(0.01,0.1))
#$`root`
#[1] 0.03638433
#$f.root
#[1] 0.0002636439
#$iter
#[1] 5
#$init.it
#[1] NA
#$estim.prec
#[1] 6.103516e-05

#Optimize
optimize(function(x) 2*log(x)+8*log(1-x)+6.924, c(0.01, 1), maximum=T)
#$`maximum`
#[1] 0.1999945
#$objective
#[1] 1.919976

Answer 1

うまく動くかわかりませんが、１つの案としては、関数をabs()で囲って絶対値にしてしまった上でoptimizeで最小値を求める方法があります。
絶対値をとれば最小値=根(あれば)なので。

それではダメというのであれば、optimizeで根を探すというのはできないと思います。

Comments

[51sep]

できました！。gnbrganchanさん、ご回答をどうもありがとうございました。
以下に実行結果を記載しておきます。
おまけですが、nlm関数でもできました。
皆様にもお役に立ちますように。（注意：いずれの関数も初期値により算出値が変動します）

optimize(function(x) abs(2*log(x)+8*log(1-x)+6.924), c(0.01, 0.1))
#$`minimum`
#[1] 0.03637479
#$objective
#[1] 0.0001814986

nlm(function(x)abs((2*log(x)+8*log(1-x)+6.924)), 0.1)
#$`minimum`
#[1] 5.91723e-07
#$estimate
#[1] 0.03637866
#$gradient
#[1] 45.49106
#$code
#[1] 2
#$iterations
#[1] 9