source("app/bootstrap.R")

library(mirt)

provaId <- 2281

areas <- provaAreas(provaId)

dados <- provaId %>% 
  respostasPorProvaAndArea(areas[1, 1], usar_parametros = FALSE)

n_questoes <-  dados %>% 
  distinct(codigo_questao) %>% nrow()

d <- dados %>% 
  group_by(codigo_usuario) %>% 
  summarise(semresposta = sum(status == -1)) %>%
  arrange(semresposta) 

n_alunos <- nrow(d)

n_questoes <- 30

d1 <- d %>% 
  group_by(semresposta) %>% 
  summarise(cont = n()) %>% 
  mutate(p = round(cont/sum(cont)*100,2)) %>% 
  arrange(desc(semresposta)) %>% 
  mutate(acumulado = round(cumsum(p),2)) %>% 
  rename(porcentagem = p) %>% 
  mutate(nrespostas = n_questoes - semresposta) %>% 
  select(nrespostas,everything())

names(d1) <- c("Questões Respondidas", "Questões não respondidas",
               "N de Alunos", "%", "% Acumulado" )

formattable::formattable(d1)

Questões Respondidas	Questões não respondidas	N de Alunos	%	% Acumulado
1	29	67	9.84	9.84
2	28	34	4.99	14.83
3	27	24	3.52	18.35
4	26	23	3.38	21.73
5	25	22	3.23	24.96
6	24	19	2.79	27.75
7	23	6	0.88	28.63
8	22	11	1.62	30.25
9	21	7	1.03	31.28
10	20	7	1.03	32.31
11	19	2	0.29	32.60
12	18	4	0.59	33.19
13	17	1	0.15	33.34
14	16	5	0.73	34.07
15	15	2	0.29	34.36
16	14	5	0.73	35.09
17	13	3	0.44	35.53
18	12	3	0.44	35.97
19	11	3	0.44	36.41
20	10	4	0.59	37.00
22	8	1	0.15	37.15
23	7	1	0.15	37.30
24	6	1	0.15	37.45
25	5	5	0.73	38.18
26	4	3	0.44	38.62
27	3	2	0.29	38.91
28	2	5	0.73	39.64
29	1	17	2.50	42.14
30	0	394	57.86	100.00

`