my R setting and functions