r elimina los nombres de la fila
rownames(data) <- c()
Gifted Gorilla
rownames(data) <- c()
df <- df[!is.infinite(rowSums(df)),]