Added slave network r script