data("und_intnet_chicago")
sub_intnet_chicago <- ApplyWindow(und_intnet_chicago,
x_coords = c(300, 900),
y_coords = c(500, 1000))
Run the code above in your browser using DataLab