> head(hhmin)
x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 y
1 19.19 6992 74.02 191.9 145.8 120 22.02 18.66 1.08 13.40 13.12
2 20.09 6902 75.67 188.8 152.5 125 27.68 21.53 12.92 13.51 13.25
3 20.09 6952 75.26 188.8 152.5 125 27.12 21.53 12.86 13.51 13.22
4 17.70 6997 74.03 186.6 148.0 125 25.65 18.66 11.19 13.40 13.22
5 20.09 6875 75.70 188.8 152.5 125 27.68 21.53 12.92 13.51 13.24
6 19.72 6995 73.60 185.7 148.9 125 27.68 18.66 12.53 13.51 13.22
> new_data=data.frame(x1=19.03,x2=7000,x3=71.83,x4=195,x5=137,x6=125,x7=22,x8=195)
> new_data
x1 x2 x3 x4 x5 x6 x7 x8
1 19.03 7000 71.83 195 137 125 22 195
> subset(hhmin,x6=new_data$x6)
x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 y
1 19.19 6992 74.02 191.9 145.8 120 22.02 18.66 1.08 13.40 13.12
2 20.09 6902 75.67 188.8 152.5 125 27.68 21.53 12.92 13.51 13.25
3 20.09 6952 75.26 188.8 152.5 125 27.12 21.53 12.86 13.51 13.22
4 17.70 6997 74.03 186.6 148.0 125 25.65 18.66 11.19 13.40 13.22
5 20.09 6875 75.70 188.8 152.5 125 27.68 21.53 12.92 13.51 13.24
6 19.72 6995 73.60 185.7 148.9 125 27.68 18.66 12.53 13.51 13.22
7 18.82 6986 70.09 189.9 136.6 125 24.94 19.23 0.00 13.40 13.33
8 19.67 6979 74.69 182.8 145.8 120 24.13 18.66 12.69 13.40 13.22
9 20.09 6927 75.60 188.8 152.4 125 27.00 21.53 12.86 13.51 13.22
10 19.61 6991 73.86 165.2 149.7 125 29.79 20.29 12.76 13.51 13.22
> subset(hhmin,x6=new_data$x6,select = c(x1:x9))
x1 x2 x3 x4 x5 x6 x7 x8 x9
1 19.19 6992 74.02 191.9 145.8 120 22.02 18.66 1.08
2 20.09 6902 75.67 188.8 152.5 125 27.68 21.53 12.92
3 20.09 6952 75.26 188.8 152.5 125 27.12 21.53 12.86
4 17.70 6997 74.03 186.6 148.0 125 25.65 18.66 11.19
5 20.09 6875 75.70 188.8 152.5 125 27.68 21.53 12.92
6 19.72 6995 73.60 185.7 148.9 125 27.68 18.66 12.53
7 18.82 6986 70.09 189.9 136.6 125 24.94 19.23 0.00
8 19.67 6979 74.69 182.8 145.8 120 24.13 18.66 12.69
9 20.09 6927 75.60 188.8 152.4 125 27.00 21.53 12.86
10 19.61 6991 73.86 165.2 149.7 125 29.79 20.29 12.76