Trying to extract an algorithm from a function

Hi, I'm using package "vars" and I'm trying to extract the algorithm that
function "predict" contained in that package in order to understand how does
it work.

When I type function "VAR" then all its algorithm appears in R, however if I
try to do the same with "predict" nothing happens...Is there any possible
way to extract the algorithm?

Thanks a lot.

Regards

	[[alternative HTML version deleted]]