Update head.r

Add the header of head.r