Para borrar de un data frame columnas que tengan solo ceros

```{r}
df<- data.frame()
df<-df[,colSums(df != 0) != 0]

## Para borrar as columnas que sean NA de un data frame df
df<-df[!is.na(df$var2),]
```