added performance.R