Create credibility.R