multivariate analysis code snippets in r

do a variation partioning using vegan package in r