Используя операторы R Уплотненный IfElse для сравнения двух переменных строк

Question

данных Ввод пробы (хранится в формате CSV в рабочем каталоге):

EMPLID,From_DeptCode,FromDept,To_DeptCode,To_Dept,TransactionTypeCode,TransactionType,EffectiveDate,ChangeType 
0239583290,21,Sales,43,CustomerService,10,Promotion,12/12/2012 
1230495829,21,Sales,21,Sales,10,Promotion,9/1/2013 
4059503918,93,Operations,93,Operations,13,Demotion,11/18/2014 
3040593021,19,Headquarters,23,International,11,Reorg,12/13/2011 
7029406920,15,Marketing,84,Development,19,Reassignment,1/5/2010 
2039052819,19,Headquarters,19,Headquarters,10,Promotion,4/15/2015 

Код:

Transfers <- read.csv(file="Transfers.csv", head=TRUE, sep=",",colClasses=c(NA,NA,NA,NA,NA,NA,NA,"Date",NA)) 

Transfers$ChangeType <- ifelse(Transfers$From_DeptCode == Transfers$To_DeptCode, "No Change", ifelse(Transfers$TransactionType == "Reorg", "Reorg", "Transfer")) 

Transfers2 <- subset(Transfers, ChangeType != "No Change") 

print(Transfers2) 

Ожидаемый результат:

EMPLID,From_DeptCode,FromDept,To_DeptCode,To_Dept,TransactionTypeCode,TransactionType,EffectiveDate,ChangeType 
0239583290,21,Sales,43,CustomerService,10,Promotion,12/12/2012,Transfer 
3040593021,19,Headquarters,23,International,11,Reorg,12/13/2011,Reorg 
7029406920,15,Marketing,84,Development,19,Reassignment,1/5/2010,Transfer 

Актуально:

> print(Transfers2) 
Error in print(Transfers2) : object 'Transfers2' not found 

В ущерб, почему это происходит.

Answer 1

Так что я нашел мой вопрос ..

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

Я проскакивал в нижней части сценария и помещал курсор под последней строкой кода и запускал его и получал ошибку.

Почему мне необходимо запускать каждый блок кода по одному с помощью курсора в самом блоке?