Update plot500.R