编写R函数，找出一元函数在给定区间的何处取得最小值。并以f（x）=2/x +lnx在区间[1, 3]为例，输出结果。（不能用optimize()函数）