Boa tarde,

Poderia tentar:

pos1 <- locator(1)

pos2 <- locator(1)

pos3 <- locator(1)

text(pos1, expression('Z'[cal]~'= 3.53'))

text(pos2, expression('Z'[tab]~'= 1.64'))

text(pos3, expression('P('-infinity~'<z<0.72)=0,7642'))

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]