Create Highway_Roadbed_Susceptibility。R