Update graf.r