怎么用R语言解决一道应用题？

We often describe our emotional reaction to social rejection as “pain.”  A clever study suggests that the “pain” caused by social rejection really is pain, in the sense that it causes activity in brain areas known to be activated by physical pain. Here are data for 13 subjects on degree of social distress and extent of brain activity：

Make a scatterplot of brain activity against social distress. There is a positive linear association, with correlation r = 0.878. Is this correlation significantly greater than 0? Use a permutation test using 1000 permuted samples.  Construct a histogram of all the permuted correlation statistics.

请会的帮忙做一下。

用DAAG包里的twot.permutation，试试看？