A<-matrix(c(1:9)/10, ncol=1)
A_mat<-list2derivs(list(A, A^0, A^2, A^3, A^4), deriv_order=4)
derivs_transform(f =derivs_transform(f = A, type="exp", par=0,
tri=trind_generator(1), deriv_order=4),
type="log", par=0, tri=trind_generator(1), deriv_order=4)
Run the code above in your browser using DataLab