# NOT RUN {
options(digits=15)
wofz(0)
#
# Should give 1+0i
#
wofz(1)
#
# Should give 0.367879441171442+0.607157705841394i
#
wofz(complex(re=1, im=1))
#
# Should give 0.304744205256913+0.208218938202832i
#
# }
Run the code above in your browser using DataLab