通过语句得到一个结果：
lm.sol<-lm(S~D,data=rd,)
fitvalue = fitted(lm.sol)
fitvalue
        1         2         3         4         5         6         7
0.9940819 1.1498030 1.4923893 1.4923893 1.5858219 2.5512925 2.5201483
        8         9        10        11        12        13        14
2.4267157 2.5201483 2.5201483 3.2053210 3.1741768 3.0495999 3.3298978
       15        16        17        18        19        20        21
2.4890041 2.7381578 3.6724842 3.4544747 4.1085031 1.9595525 2.7381578
       22        23        24        25        26        27        28
2.4267157 3.6413400 3.4233305 3.7347726 4.2330800 4.3265126 4.0150705
       29        30        31        32        33        34        35
3.7659168 4.2642242 4.2642242 4.7313874 4.8871084 5.1362621 5.5411369
       36        37        38        39        40        41        42
5.4165601 5.4788485 4.5756663 4.9493969 5.9771559 4.6690990 5.3231274
       43        44        45
4.6379547 5.1985506 5.7902906
fitvalue是成行排列，怎么可以让它依次成列：
如下：

0.994082
1.149803
1.492389
1.492389
1.585822
2.551293
2.520148
2.426716
2.520148
2.520148
3.205321
3.174177
3.0496
3.329898
2.489004
2.738158
3.672484
3.454475
4.108503
1.959553
2.738158
2.426716
3.64134
3.423331
3.734773
4.23308
4.326513
4.015071
3.765917
4.264224
4.264224
4.731387
4.887108
5.136262
5.541137
5.41656
5.478849
4.575666
4.949397
5.977156
4.669099
5.323127
4.637955
5.198551
5.790291