"geometric.mean" <- 
function(x)
{ 
exp(mean(log(x))) }