#一般的对象赋值很简单，例如，如果有对象cd则：
cd[1,2] <- c(1)
names(cd) < c("var1","var1")

但有时会遇到条件搜索对象的问题，比如我在ls()所有对象中搜索含"cd"的对象，ls()[grep("cd",ls())]，这样搜索出来的结果显然是字符，比如"cd1","cd2";

重点来了，将"cd1"从字符传递成对象，使用get("cd1")，当然，实际上是get(ls()[grep("cd",ls())][1])


当我需要对cd1这个对象赋值的时候：
get("cd1")[1,1] <- c("a")    #报错，显示没有'get <- '函数
当然这个可以绕过，通过：
assign("cd1",object2)

BUT！！！，assign()的第一个参数要求字符，当我需要修改cd1 的names时就不行了：
assign(names(cd1),c("...."))
显然是不行的，names(cd1)不是一个字符；

所以最后，我的问题其实是，如下问题应该如何解决？（namelist是一个字符向量）：
names(get(字符)) <- namelist
#报错：  could not find function "get<-"