Changes

data = cbind(anno,data)

write.csv = (data, file = "Filename.csv")

*Remember that the expression set is Log2 adjusted, so to look at absolute expression levels use 2^value.