Induction Affective Scenarios Virtual Reality: Assessment of the Sensation of Presence [A Indução Afetiva Em Cenários de Realidade Virtual: Avaliação da Sensação de Presença] [Inducción Afectiva En Escenarios de Realidad Virtual: Evaluación de la Sensación de Presencia]