1.named_vector=c(a=1,b=2,c=3,d=4,e=5,f=6,g=7)
2.names(named_vector)[names(named_vector)==\'c\'] <- \'k\'
3.names(named_vector[names(named_vector)])==\'c\'&l
