added SnatchSAS function

calls SAS in normal R code