Fix/rm select_ct

[robitalec]

Removing select_ct until an alternative structure is developed which is more useful than simply sorting and selecting eg. as shown in the vignette:

# Selection criteria
max_road_dist_m <- 3000
max_elev_m <- 300
ls_lc_classes <- c(1, 2, 5, 6)

# Select out of candidate points
select_pts <- pts[
  pts$road_dist < max_road_dist_m &
	elev_pt < max_elev_m &
	lc_pt %in% ls_lc_classes,]

plot(select_pts)


# Sorting criteria
ordered <- order(select_pts$wetland_dist, -select_pts$hydro_dist)

order_select_pts <- select_pts[ordered,]
print(order_select_pts)