Create harusds.R