Update socialperception.R

Inclui o carregamento da mirt e comecei um pequeno código para roda a fatorial confirmatória pelo bfactor. Vou mexer mais depois
Inclusão bfactor()