my splendid work for R course