Create internetcreate.R