Make synchrony(metric = "Gross") vectorized

[dflynn-volpe]

make it faster!

[aammd]

in addition, it seems to me that this line isn't quite right. Shouldn't metric be a length one vector, and match.arg() should compare it to c("Loreau", "Gross") ?