variation partitioning code snippets in r

do a variation partioning in r

do a variation partioning using vegan package in r