```
# NOT RUN {
### Generate 10 random R Squared values
### with 2 predictors and 100 participants
rRsq(10, 2, 100);
### Probability of finding an R Squared of
### .15 with 4 predictors and 100 participants
pRsq(.15, 4, 100, lower.tail = FALSE);
### Probability of finding an R Squared of
### .15 with 15 predictors and 100 participants
pRsq(.15, 15, 100, lower.tail=FALSE);
# }
```

Run the code above in your browser using DataLab