Create nsch.R