Correct the error in R code please$9-$cdots

$\{r\}$ Skating", "Nordic Combined", $"($urling$"),$ each $=10)$

legend $=$ rownames$($table$($winter$\_$sports$\_$data$Age, winter$\_$sports$\_$data$Sport$)),$ args.legend $=$ list$($title $=$ "Sport",$x=$ "topright", cex $=0\mathrm{.}7),$ cex.axis $=0\mathrm{.}8,$ cex.names $=0\mathrm{.}8)$

legend $=$ rownames$($table$($winter$\_$sports$\_$data$Age, winter$\_$sports$\_$data$Sport$)),$ args.legend $=$ list$($title $=$ "Sport", $x=$ "topright", cex $=0\mathrm{.}7),$ cex.axis $=0\mathrm{.}8,$ cex.names $=0\mathrm{.}8)$

$14$

$15$

$16.$

Error: unexpected symbol in:

$=c(25,30,35,40,45,50,55,60,65,70),$ Sport $=$ rep$($c$("$Alpine Skiing", "Cross Country Skiing", "Biathlon", "Short Track Speed Skating", "Ski Jumping", "Figure Skating", "Bobsleigh", "Spe barplot"