R_package_StrucDiv