Create seminar10.R