library(readr)
data_1_ <- read_csv("~/OneDrive/DataDownload/data (1).csv")
## Parsed with column specification:
## cols(
##   `roll 1` = col_double(),
##   `roll 2` = col_double(),
##   `roll 3` = col_double(),
##   `roll 4` = col_double(),
##   `roll 5` = col_double(),
##   `roll 6` = col_double(),
##   `roll 7` = col_double(),
##   `roll 8` = col_double(),
##   `roll 9` = col_double(),
##   `roll 10` = col_double()
## )
library(dplyr)
## Warning: package 'dplyr' was built under R version 3.6.2
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Analysis

  1. The dice roll is believed to be [fair] because the distribution is binomial. It is skewed to the right because the probability of achieving successis small (0.25)
  2. The distribution observed in the plot appears to be a binomial distribution.

Find the maximum dice size: 12

## [1] 12

Find the group size: 10

## [1] 10

Considering a roll of 1/2/3 to be a success, find the number of successes per grouping.

##               1    2    3    4    5   6  7 8 9 10
## successes  5087 7634 6786 3998 1604 437 80 8 1  0

Number of successes when rolling a 12 sided dice in groups of 10.