Marihuana and shock induced aggression in rats