added new r script for single node sw and sr