Ошибка только при запуске всего кода кода

Question

У меня есть код, который поставляется с набором данных, который я скачал. Этот код должен преобразовывать факторные переменные в числовые. Когда я бегу каждую линию по отдельности, он отлично работает, но если я пытаюсь выделить целый раздел, то я получаю следующее сообщение об ошибке:

Error: unexpected input in ...

Это дает мне эту ошибку для каждой строки кода, но опять же, если я запускайте каждую линию индивидуально, тогда она отлично работает. Я никогда раньше не сталкивался с этим. Что происходит?? Благодаря!

Вот код, который я пытаюсь запустить:

library(prettyR) 
lbls <- sort(levels(DF$myVar)) 
lbls <- (sub("^\\([0-9]+\\) +(.+$)", "\\1", lbls)) 
DF$myVar <- as.numeric(sub("^\\(0*([0-9]+)\\).+$", "\\1", DF$myVar)) 
DF$myVar <- add.value.labels(DF$myVar, lbls) 

А вот выход с ошибками:

> library(prettyR) 
"rror: unexpected input in "library(prettyR) 
> lbls <- sort(levels(DF$myVar)) 
"rror: unexpected input in "lbls <- sort(levels(DF$myVar)) 
> lbls <- (sub("^\\([0-9]+\\) +(.+$)", "\\1", lbls)) 
"rror: unexpected input in "lbls <- (sub("^\\([0-9]+\\) +(.+$)", "\\1", lbls)) 
> surv.df$myVar <- as.numeric(sub("^\\(0*([0-9]+)\\).+$", "\\1", DF$myVar)) 
"rror: unexpected input in "DF$myVar <- as.numeric(sub("^\\(0*([0-9]+)\\).+$", "\\1",DF$myVar)) 
> surv.df$BATTLEGROUND <- add.value.labels(DF$myVar, lbls) 
Error in add.value.labels(surv.df$myVar, lbls) : 
object 'lbls' not found 

Answer 1

Я понял вопрос (на самом деле кто-то сказал мне, что проблема была)

Код был загружен как .R-файл и должен быть написан с использованием текстового редактора с нестандартной кодировкой «новая строка». Поэтому я просто скопировал код в текстовый редактор, заменил все на «\ n» на «#####». Затем я снова заменил все, чтобы вернуться к новым строкам и скопировать его обратно в студию R.

И все работает!