1. 按条件提取某些样本
> data
subj sex age presentation product choice
1 1 M 21 absdiff pillow Y
2 1 M 21 absdiff table Y
3 1 M 21 absdiff helmet Y
4 1 M 21 absdiff net Y
5 2 M 19 absdiff pillow N
6 2 M 19 absdiff table N
7 2 M 19 absdiff helmet N
8 2 M 19 absdiff net N
9 3 M 19 absdiff pillow Y
10 3 M 19 absdiff table Y
11 3 M 19 absdiff helmet Y
12 3 M 19 absdiff net N
13 4 M 21 absdiff pillow Y
14 4 M 21 absdiff table Y
15 4 M 21 absdiff helmet Y
16 4 M 21 absdiff net N
17 5 M 23 absdiff pillow N
18 5 M 23 absdiff table N
##提取product中helmet的信息。
> data[data[,"product"]=="helmet",]
subj sex age presentation product choice
3 1 M 21 absdiff helmet Y
7 2 M 19 absdiff helmet N
11 3 M 19 absdiff helmet Y
15 4 M 21 absdiff helmet Y
##提取product中helmet并且choice是N的信息。
> data[data[,"product"]=="helmet"&data[,"choice"]=="N",]
subj sex age presentation product choice
7 2 M 19 absdiff helmet N