## Convert gradient values to angle of inclination:
inc <- atan(bei.extra$grad) * 180/pi
## Make logical image which is TRUE when heat equals 'Moderate':
A <- gorillas.extra$heat == "Moderate"
Run the code above in your browser using DataCamp Workspace