R script for evaluation.