求教，用R该如何生成具有概率密度f(x)的随机数
f(x)=(x^-1)*(exp(-x)-exp(-2x))/ln2