问无法接收所需的输出

EN

在R编程中，我正在处理读取固定宽度文件格式的任务，这是我的数据集

http://www.cpc.ncep.noaa.gov/data/indices/wksst8110.for

我使用readr包读取文件，并使用下面显示的代码清理数据

library(readr)
x<-read_fwf(file=url("http://www.cpc.ncep.noaa.gov/data/indices/wksst8110.for"),skip=4,fwf_widths=c(12,7,4,9,4,9,4,9,4))
head(x)
y<-x[4]
sum(y)

现在我得到了所需的9列，现在我的作业是找到第4列的总和，我的答案是36540，但需要的答案是32467，任何答案都将不胜感激，提前谢谢。