fixed R
finished CGR
worked on cgr