Create seeclickfix.R

this script is rough around the edges but works.