added small.R