Не удалось получить необходимый вывод

Я работал с назначением для чтения фиксированного формата файла ширины в программировании 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,любой ответ будет оценен,
Thanx заранее.

1 ответ

  1. Вам необходимо скачать файл как gas.xlsx не газ.xls

    download.file("https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2FDATA.gov_NGAP.xlsx", "gas.xlsx" ,mode="wb")