first <-
c
(-74,-89,34,-82,-64,92,-67)
second <-
c
(88,52,-28,-19,39,86,-31)
third <-
c
(39,37,-39,-64,-93,44,38)
fourth <-
c
(-64,-26,-54,-33,-43,23,63)
fifth <-
c
(-83,-39,-53,-20,-31,82,-17)
x <-
data.frame
(temp_1=first,
temp_2=second,temp_3=third,
temp_4=fourth,temp_5=fifth)
subset
(x,(
rowSums
(
sign
(x)<0)>0) & (
rowSums
(
sign
(x)>0)>0))