passing object names in a vector to save?

for(x in nam)
{
	#reads the objects and assigns the names.
	assign(x,simFromEmboss(Simmatrix(),x))
	nnam<-paste(x,".rda",sep="")
	print(nnam)
	save(x,file=nnam)
}


I knew that it fails. (It saves object x containing a char.)

There are at least two possibilities.  The specialised one is to look at
the help for save() and notice that you can specify a vector of names of
objects with the list= argument
  save(list=x,file=nnam)

The more general one is to use substitute() or do.call(). For example
  do.call("save",list(as.name(x),file=nnam))

	-thomas