PontoBisserial: Calcula o Ponto Bisserial por alternativa

In leandromarino/CesgTools: Educational Assessment Toolkit (Cesgranrio Foundation)

Calcula o Ponto Bisserial por alternativa

Description

sum returns the sum of all the values present in its arguments.

Usage

PontoBisserial(
  respostas,
  scores,
  itempos,
  resposta_possivel,
  CodNaoAp,
  Peso,
  mostra_napres
)

Arguments

respostas	Objeto do tipo data.frame com duas colunas nesta ordem: caderno e respostas
scores	Vetor numerico com os escores dos estudantes
itempos	Objeto do tipo ItemPos(...,tipo='integer')
resposta_possivel	Respostas possiveis (por exemplo: resp_possible = c(LETTERS[1:5],' ','*')).
CodNaoAp	Codigo para o item nao apresentado
gabarito	Objeto do tipo data.frame com duas colunas nesta ordem: caderno e gabarito
itematual	indice do numero do item atual

Details

This is a generic function: methods can be defined for it directly or via the Summary group generic. For this to work properly, the arguments ... should be unnamed, and dispatch is on the first argument.

Value

If all inputs are integer and logical, then the output will be an integer. If integer overflow http://en.wikipedia.org/wiki/Integer_overflow occurs, the output will be NA with a warning. Otherwise it will be a length-one numeric or complex vector.

Zero-length vectors have sum 0 by definition. See http://en.wikipedia.org/wiki/Empty_sum for more details.

Examples

data("quest_dados")
data("gabpar05P")

item_prova <- matrix(c(1:36,13:36,1:12,25:36,1:24),byrow = T,ncol=36)
colnames(item_prova) <- paste('it',sprintf("%02d",1:36),sep='')
rownames(item_prova) <- 1:nrow(item_prova)

dadosP <- quest_dados[nchar(quest_dados$rsp_por)==36,]
dadosP <- quest_dados[nchar(quest_dados$rsp_por)==36 & !is.na(quest_dados$cad_por),]

Gabarito <- data.frame(caderno = 1:nrow(item_prova),
                       gabarito=apply(matrix(gabpar05P$gab[item_prova],nrow=nrow(item_prova)),1,paste0,collapse=''),
                       stringsAsFactors = F)
                       
Respostas <- data.frame(caderno = dadosP$cad_por,respostas = dadosP$rsp_por,stringsAsFactors = F)

escore_por <- Escore(respostas = Respostas,
                     gabarito = Gabarito,
                     NumCad = 3,
                     NumItens = 36,
                     CodAcer = '1',
                     CodErro = '0',
                     CodNaoAp = '9',
                     nbl = 3 ,
                     tbl = 12)
                     
posicao_item_por <- ItemPos(itens = itens_teste, nitens = 36,tipo='integer')  

pbise_por <- PontoBisserial(respostas = Respostas, gabarito = Gabarito, scores = escore_por$nacer,
itempos = posicao_item_por[[i]],resposta_possivel = c(LETTERS[1:4]," ","*"),  itematual = 5,
CodNaoAp = '9')

leandromarino/CesgTools documentation built on May 25, 2022, 5:03 a.m.