Init R Sourcecode for assigment GCD WK3