by code snippets in r

calculate the mean with a data.table in r