Проблемы при создании сюжета с помощью boxcox с использованием функции модуля Rapache - PullRequest
0 голосов
/ 15 апреля 2011

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

Вот ошибки рапаша:

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 Ответ

1 голос
/ 15 апреля 2011

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

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

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

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

...