How to change Column heading(s) in R

x=1:5
x
headings= c("Serial","Year", "Sales", "Profit", "SalesRep")
names(x) <- headings
x
#Change the column heading of 5th column
names(x)[5]="Sales Rep"
x