built in 'slider' for between species transmission

parameter = w (for betWeen species)

made a loop function to calculate over range of between species and
within
fixed nested for loop

created a data frame for each species and populated resulting data
instead of infinite vectors