怎么在stata中取出两个变量（A和B）的相关系数，并存在到一个新的变量New中。数据结构如下：比如两只股票，代码分别为2和6，分别是从2001-2006年的数据，现在我想求出这两只股票在这六年中A和B的相关系数，并分别中它们的相关系数保存到新生变量New中。比如，代码为2的股票相关系数stata命令为：pwcorr A B if stkcd==2  得出他们的相关系数为0.2（假设）；pwcorr A B if stkcd==6 得出他们的相关系数为0.3（假设）；

stkcd	A	B	year
2	-0.01321	0.0649455	2001
2	-0.17586	0.1972809	2002
2	-0.15283	0.3979636	2003
2	0.103938	-0.215786	2004
2	0.077891	0.100931	2005
2	-0.05099	-0.0849801	2006
6	0.080194	6.26E+08	2001
6	0.035823	-1.42E+08	2002
6	-0.06987	-5.34E+08	2003
6	0.041957	-4.57E+08	2004
6	-0.01533	-8.77E+07	2005
6	0.011217	-4.21E+08	2006

现在的问题是，我怎么把这些相关系数取出，放到变量New中，即将上述变成如下形式：

stkcd	A	B	new	year
2	-0.01321	0.0649455	0.2	2001
2	-0.17586	0.1972809	0.2	2002
2	-0.15283	0.3979636	0.2	2003
2	0.103938	-0.215786	0.2	2004
2	0.077891	0.100931	0.2	2005
2	-0.05099	-0.0849801	0.2	2006
6	0.080194	6.26E+08	0.2	2001
6	0.035823	-1.42E+08	0.3	2002
6	-0.06987	-5.34E+08	0.3	2003
6	0.041957	-4.57E+08	0.3	2004
6	-0.01533	-8.77E+07	0.3	2005
6	0.011217	-4.21E+08	0.3	2006