Create small.R