SlopeBearing working now; ChannelMorphology still having formating issues, seems to be due to different subsetting around "wadezerobw <- rbind(wadezerobw1, bwidnox1)" in metsChannelMorphology.1 despite formatting improvements (column removal and TRANSDIR ifelse)