Я использую длинный код, написанный не мной.Во всем коде есть только одна загвоздка, и это разрушает общий результат.Строка кода:
>ppl_inventory_split_rates <- read.csv(file=ppl_inventory_split, header=TRUE, sep=" ")
>for (i in 1:rows) {
>if (ren_ppl[i, "year"] >= start_year && ren_ppl[i, "year"]<= end_year) {
+ y = paste('X',as.character(ren_ppl_split4[i, "year"]), sep = '', collapse= NULL)
# The split rate from ppl_inventory_split_rates is used to split values between PP_EX_OTH and PP_NEW
rateDC_PP_EX_OTH = ppl_inventory_split_rates[ppl_inventory_split_rates["Years"]==ren_ppl_split4[i, "year"] &
ppl_inventory_split_rates["Act_abb_ppl"]=="DC","PP_EX_OTH_ppl"]
rateOS1_PP_EX_OTH = ppl_inventory_split_rates[ppl_inventory_split_rates["Years"]==ren_ppl_split4[i, "year"] &
ppl_inventory_split_rates["Act_abb_ppl"]=="OS1","PP_EX_OTH_ppl"]
В строке ошибки указано:
Ошибка в [.data.frame (ppl_inventory_split_rates, "Years"):
неопределенные столбцыselected
, что, как я понимаю, означает, что столбец Years отсутствует в файле CSV ppl_inventory_split_rates, но он действительно присутствует.Когда я печатаю ppl_inventory_split_rates, он не показывает аккуратную таблицу;скорее разделенная запятыми строка для заголовков и разделенных запятыми записей строк, как показано ниже.
>Years.Act_abb_ppl.Power..2000.PP_EX_WB.PP_EX_OTH_ppl..PP_NEW_ppl.PP_IGCC.Total.PP_EX_OTH_ppl...2000.PP_EX_WB.PP_EX_OTH_number.PP_NEW_number.PP_IGCC..Total..PP_TOTAL...........
>1 >
1990,BC1,0,,0,0,0,0,0,0,0,,,BC1,0,0,0,0,,0,,0,,,,,,,,,,,
>2 1990,BC2,0,,0,0,0,0,0,0,0,,,BC2,0,0,0,0,,0,,0,,,,,,,,,,,
>3 1990,HC1,0,,0,0,0,0,0,0,0,,,HC1,0,0,0,0,,0,,0,,,,,,,,,,,
>4 1990,HC2,0,,0,0,0,0,0,0,0,,,HC2,0,0,0,0,,0,,0,,,,,,,,,,,
#and so on for 201 rows.
В чем здесь проблема?
Буду признателен за любую помощь по этому вопросу.(плохо знаком с R и все еще разбираюсь)