Yalnızca tüm kod bloğunu çalıştırırken hata oluştu

Question

Yüklediğim bir veri kümesiyle birlikte gelen kodum var. Bu kod faktör değişkenlerini sayısal olarak değiştirmelidir. Ben tek tek her satırı çalıştırdığınızda, iyi çalışıyor, ama bir bölüm vurgulamak için çalışırsanız, o zaman ben şu hatayı alıyorum: Bana kodun her hat için bu hatayı verir ama yine eğer ben

Error: unexpected input in ...

Her satırı ayrı ayrı çalıştırın, sonra iyi çalışıyor. Buna daha önce hiç rastlamadım. Neler oluyor?? Teşekkürler! İşte

ben yönetmeye çalışıyorum kod:

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) 

Ve burada hataları ile çıkış: Ben sorunu çözdüm

> 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

(aslında kimse bana ne problem was)

Kod, .R dosyası olarak indirildi ve standart olmayan "yeni satır" kodlamayla bir metin düzenleyicisi kullanılarak yazılmalıydı. Bu yüzden kodu bir metin editörüne kopyaladım, "\ n" anahtarını "#####" olarak değiştirmek için hepsini değiştirdim. Sonra tekrar yeni satırlara geçmek ve tekrar R stüdyosuna kopyalamak için hepsini tekrar kullanıyorum.

Ve her şey işe yarıyor!