R make: Constructor sketch,to be updated