added GPL header to R file