1st basic r code for s2snet data