Create PCGandSCGrelationship.R