load(file="bichos.rdata")
ls()
rm(temp1,temp2,temp3)
save(anfibios,aves,mamiferos, file="bichos01.rdata")