R data.frame filter out rowsum==0 and colsum==0
SSIN0<-filter(SIN,rowSums(SIN)>0)
SSIN<-SSIN0 %>% select(where(~ is.numeric(.x) && sum(.x) >10000 ))
SSIN0<-filter(SIN,rowSums(SIN)>0)
SSIN<-SSIN0 %>% select(where(~ is.numeric(.x) && sum(.x) >10000 ))