R入门中第二章2.8那道题按照程序写总报错啊，最后一步怎么改啊？

> d=read.csv("f2.8.csv")

> attributes(d)

> part=names(d)

> part

> d=as.matrix(d)

> d=as.vector(d)

> d

> part=rep(part,each=39)

> temp=matrix(c(d,part),nc=2)

> temp

> temp=temp[!is.na(temp[,1]),]

> temp

> singers=data.frame(temp)

> names(singers)=c("Height","Part")

> singers$Height=as.numeric(Height)

错误: 找不到对象'Height'