>data<-data[ data[,4]<100, ]# 选出第四列小于100的表格,同时保留满足这个条件的其他列的数据
>data<- data [ data[,6] >1.1 * data[,4] , ] #选出第六列除以第四列大于1.1的数据
>data<-data[ data[,4]<100, ]# 选出第四列小于100的表格,同时保留满足这个条件的其他列的数据
>data<- data [ data[,6] >1.1 * data[,4] , ] #选出第六列除以第四列大于1.1的数据