powered by
Social
str(Social) attach(Social) sign.test(income,md=27500,alternative="less") detach(Social)
Run the code above in your browser using DataLab