ネットを参考にやってみました。
これがマクロでないもの。
time1data$teacher[time1data$CollectorNm=="Web Link 7"]<-"Smith"
FUNCTIONというのをつかえばいいかなと思ってやってみましたが、ダメでした、、。
kaz <- function(teachername,weblink){
time1data$teacher[time1data$CollectorNm==weblink]<-teachername
}
kaz("Smith","Web Link 7")
kaz("Adams","Web Link 8")