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