Create usefulfunctions.r