MTurkR Sample

-- MTurkR code --
> credentials(c("<from AWS>","<from AWS>"))
> AccountBalance()
Balance: $X.00
>newHIT = CreateHIT(hitlayoutid="3YNXD5PU8V8KZWMHG1FI6PX1GP6X4C",sandbox=T,
+ title="foo",
+ description="bar",
+ reward=".05",
+ duration=seconds(hours=4),
+ expiration=seconds(days=7))
HITType Registered: 3PS3UFWQYK3H94A2L7H9ZOACJ0FRYV
HIT 3W5PY7V3UO6GLPJ7JA3KDHVS0T9YJ2 created
> newHIT$HITId
[1] "3W5PY7V3UO6GLPJ7JA3KDHVS0T9YJ2"
> HITStatus(hit="3W5PY7V3UO6GLPJ7JA3KDHVS0T9YJ2")
0 HITs Retrieved
NULL