Using r studio answer this question please:

c$)$Simulate an experiment of generating $\backslash ($n$=10000\backslash )$coin tossing sequences of length $200$by using a for loop. Use the function runs$\_$all$()$to extract the combined list of the run lengths from each sequence. Find the length of the longest run by using the max function for each coin flip sequence, and collect these values in an array named longest$\_$runs.