请教R语言编写程序上的问题

R语言中如何表示G(w)=(pt+(1-p))(pt^2+(1-p))...(pt^n+(1-p))
并且求G的高阶导数值，当t=0时的导数值
还有怎么表示出当t=0时，G的值