```
`{r}
fair_coin_multi_toss_prob_space<-function(tosses,replications)
{outcomes<-c("H", "T")
sample_space <- expand.grid(replicate(tosses, outcomes, simplify = FALSE))|
probabilities<-numeric(replications)
colnames(sample_space)<-paste0("Toss",1:tosses)
sample_space$num_heads<-rowSums(sample_space=="H")}
successful_replications<-sum(sample_space$num_heads<=56)
probabilities[i]<-successfu1_replications/nrow(sample_space)
estimated_probability<-fair_coin_multi_toss_prob_space(100,10000)
```
Error: object 'sample_space' not found