Changed R Charts Example