Проблемы с созданием графика с boxcox с использованием функции модуля rapache

#r #rapache

#r #rapache

Вопрос:

Я пытаюсь создать график с использованием функции boxcox из package MASS.

но это создает ошибку rapache.

Код r:

 <%
  csvDF<- read.csv(GET$name1, header=TRUE)
  a<-lm(csvDF[,GET$col_variable]~1)
  require(MASS)

  filename1 <- paste(tempfile(tmpdir='/var/www/images'), '.png', sep='')
  png(filename1)
  bx<-boxcox(a)
  dev.off() 
%>
  

** GET$name1 — это адрес файла данных csv.
** GET$col_variable — это столбец переменных.

Когда я теряю строку «bx<-boxcox (a)», ошибка исчезает, поэтому я предполагаю, что ошибка вызвана boxcox.

Вот ошибки rapache:

 RApache Warning/Error!!!

Error in eval(expr, envir, enclos) : object 'csvDF' not found
RApache Warning/Error!!!

In addition:
RApache Warning/Error!!!

Warning messages:
RApache Warning/Error!!!

1: In readLines(icon, 1) : incomplete final line found on '/var/www/brew/sampleplan/step5_box_cox.php'
RApache Warning/Error!!!

2: In readLines(icon, 1) : incomplete final line found on '/var/www/brew/sampleplan/step5_box_cox.php'
RApache Warning/Error!!!

3: In readLines(icon, 1) : incomplete final line found on '/var/www/brew/sampleplan/step5_box_cox.php'
RApache Warning/Error!!!

4: In readLines(icon, 1) : incomplete final line found on '/var/www/brew/sampleplan/step5_box_cox.php'
RApache Warning/Error!!!

5: In readLines(icon, 1) : incomplete final line found on '/var/www/brew/sampleplan/step5_box_cox.php'
RApache Warning/Error!!!

Function brew returned an object of 'try-error'. Returning HTTP response code 500. 
  

Я буду благодарен за любое предложение.

Ответ №1:

Очень сложно дать полный ответ, потому что вся ваша настройка недоступна. Сообщение об ошибке (в отличие от предупреждений; о них подумайте позже) заключается в том, что переменная csvDF не найдена. Неясно, происходит ли эта ошибка до или после вашего вызова read.csv . В любом случае, проблема не в вызове boxcox .

Также обратите внимание, что lm имеет аргумент data, который может сделать ваш код более понятным. Попробуйте что-то вроде

 lm_formula <- as.formula(paste(col_variable, "1", sep = "~"))
a <- lm(lm_formula, data = csvDF)
  

Вам также было бы полезно выделить код, который считывает данные, вычисляет статистику, создает графики и записывает графики в файл.