Added initialize.R file

Corrected dist.fn to correctly call dist