Create CanopyProfile.r