回复 第2楼 的 suckbunny：如何插入图片
数据是
[data]
x y
1 0.108643662453
2 0.11800486618
3 0.155855855856
4 0.151785714286
5 0.184
6 0.175675675676
7 0.171936758893
8 0.177242888403
9 0.176966292135
10 0.171091445428
11 0.164874551971
12 0.189300411523
13 0.185520361991
14 0.147465437788
15 0.214659685864
16 0.167567567568
17 0.208333333333
18 0.2109375
19 0.111111111111
20 0.288888888889
21 0.25
22 0.185567010309
23 0.255555555556
24 0.157303370787
25 0.238636363636
26 0.116279069767
27 0.13698630137
28 0.192307692308
29 0.176470588235
30 0.125
31 0.163636363636
32 0.24
33 0.188679245283
34 0.159090909091
35 0.176470588235
36 0.157894736842
37 0.181818181818
38 0.166666666667
39 0.186046511628
40 0.179487179487
41 0.25641025641
42 0.242424242424
43 0.12
44 0.2
45 0.184210526316
46 0.176470588235
47 0.24
48 0.153846153846
49 0.272727272727
50 0.285714285714
51 0.315789473684
52 0.24
53 0.272727272727
54 0.222222222222
55 0.0714285714286
56 0.1875
57 0.0555555555556
58 0.25
59 0.1875
60 0.333333333333
61 0.3
62 0.384615384615
63 0.3125
64 0.0246913580247
65 0.307692307692
66 0.0833333333333
67 0.111111111111
68 0.25
71 0.2
72 0.333333333333
73 0.416666666667
74 0.333333333333
75 0.2
76 0.1
77 0.2
78 0.181818181818
80 0.272727272727
81 0.222222222222
82 0.222222222222
83 0.230769230769
84 0.181818181818
85 0.142857142857
86 0.3125
87 0.2
88 0.1
89 0.125
90 0.5
91 0.357142857143
92 0.25
95 0.25
96 0.125
97 0.375
98 0.125
101 0.2
102 0.333333333333
103 0.2
104 0.4
106 0.142857142857
108 0.333333333333
109 0.4
111 0.4
112 0.25
113 0.2
114 0.166666666667
118 0.5
121 0.5
126 0.25
127 0.333333333333
132 0.5
135 0.333333333333
139 0.2
145 0.333333333333
147 0.5
150 0.5
152 0.5
155 0.5
156 0.5
159 1.0
164 0.333333333333
177 0.666666666667
182 0.5
193 1.0
196 1.0
203 0.5
207 0.5
216 0.5
218 0.5
226 0.5
227 1.0
231 1.0
232 1.0
246 1.0
268 1.0
271 1.0
283 1.0
311 1.0
313 1.0
314 1.0
318 0.5
329 1.0
331 1.0
367 0.5
407 1.0
435 1.0
472 1.0
489 1.0
532 1.0
573 1.0
638 1.0
846 1.0
[/data]
程序是
<br />
rt<-read.table("..\\result\\test.txt",header=T)<br />
fit<-lm(rt$y~rt$x)<br />
plot(rt$x,rt$y)<br />
abline(fit)<br />
</p>
