rename test.R to dorling.R
pull the functions out
add a function "border_summary" to compute the ratios of shared border for each polygon
add the border information to the states
add the parameter shared.border to control the attract force