Information Technology Reference
In-Depth Information
points(x = calibrations.x, y = calibrations.y, pch = 16,
cex = 0.65)
text(x = calibrations.x, y = calibrations.y, text = markers.x,
pos = 4, cex = 0.70)
# calculate 1sd marker
marker.sd.v <- sds[1]
calibrations.sd.x <- (marker.sd.v / sum(V[1,1:2]^2)) * V[1,1]
calibrations.sd.y <- (marker.sd.v / sum(V[1,1:2]^2)) * V[1,2]
points(x = calibrations.sd.x, y = calibrations.sd.y, pch = 16,
cex = 0.65)
text(x = calibrations.sd.x, y = calibrations.sd.y, text = "1sd",
pos = 4, cex = 0.70, col = "green")
# orthogonal to projection of point 11 on axis y
abline(a = UDelta[11,2] + 1/eq.line$gradient*UDelta[11,1],
b = -1/eq.line$gradient, col = "blue", lty = 2)
}
Ta b l e 2 . 1
The first four columns of the reaction-kinetic data set.
Va r i a b l e
y
is a response variable; variables
x1
,
x2
and
x3
are
explanatory variables.
ID
y
x1
x2
x3
1
0.0000
0.0755
0.0758
0.0000
2
0.0430
0.0701
0.0672
0.0042
3
0.0687
0.0638
0.0552
0.0096
4
0.0756
0.0594
0.0463
0.0136
5
0.0789
0.0580
0.0430
0.0150
6
0.0795
0.0570
0.0408
0.0159
7
0.0794
0.0553
0.0369
0.0177
8
0.0761
0.0541
0.0332
0.0191
9
0.0679
0.0532
0.0310
0.0201
10
0.0585
0.0528
0.0296
0.0207
11
0.0490
0.0517
0.0278
0.0219
12
0.0369
0.0516
0.0274
0.0220
13
0.0247
0.0513
0.0272
0.0222
14
0.0150
0.0516
0.0271
0.0221
15
0.0134
0.0515
0.0272
0.0221
16
0.0124
0.0511
0.0270
0.0224
17
0.0120
0.0513
0.0271
0.0222
18
0.0105
0.0513
0.0271
0.0223
19
0.0090
0.0515
0.0271
0.0222
20
0.0074
0.0517
0.0273
0.0220
21
0.0060
0.0512
0.0271
0.0223
22
0.0045
0.0514
0.0270
0.0222
23
0.0030
0.0513
0.0271
0.0223
24
0.0015
0.0515
0.0271
0.0222
