Create delete3.R