2nd question about adding an additional variable along certain criteria in a dataframe

Hello everybody,

I have a question concerning the work with my dataframe and i hope some of
you can help me out:

I have A data frame called "WWA" that looks like the "testframe"
underneath:

Additionally, i have a testvector, containing coordinate IDs:
testvector <-c("503146","551154","557154")

testframe:

       testcoordID  testcommunity  testaltitude    testSpeciesName
1      503146       Bournes        523.2           Bellis perennis
2      503146       Bournes        321.5           Cynosurus cristatus
3      557154       Bournes        654.1          Festuca pratensis
4      557154         Aigle        938.6          Bellis perennis
5      569226         Aigle        401.3          Bellis perennis
6      599246         Aigle        765.9          Prunella vulgaris

I added an additional collumn:

testframe$testNCCR_land_use <- c("to be assigned")
testframe

testcoordID testcommunity testaltitude     testSpeciesName
testNCCR_land_use
1      503146       Bournes        523.2          Bellis
perennis            to be assigned
2      503146       Bournes        321.5          Cynosurus cristatus   to
be assigned
3      557154       Bournes        654.1          Festuca pratensis
to be assigned
4      557154         Aigle           938.6           Bellis
perennis            to be assigned
5      569226         Aigle           401.3           Bellis
perennis            to be assigned
6      599246         Aigle           765.9           Prunella
vulgaris         to be assigned



-->QUESTION:
 Now I need to compute a function, that checks for the coordID in every
row, if the respective coordinateID is contained in the test-vector or not!

1) If the coordID in the row is contained in the testvector --> It should
assign the name "gfgh" into the "testNCCR-land_use_collumn to this row!

2)If the coordID in the row is not contained in the testvector--> there
should be done nothing and there will still be "to be assigned" in the
testNCCR_land_use column.

I tried something like this but it didnt work: Can somebody help me out?
It says: "Error, trial to use a non-function" or something like this..


for (i in 1:6(testframe)){
+   if ((length(intersect(testvector, testframe$testcoordID[i]))) == 1){
+     testframe$testNCCR_land_use[i]<-("testgfgh")}
+ }
Fehler: Versuch eine Nicht-Funktion anzuwenden


Thank you veery much for your help!!!!



(I built the testframe up like this:

testcoordID <-
c(as.integer("503146"),as.integer("503146"),as.integer("557154"),as.integer("557154"),as.integer("569226"),as.integer("599246"))
testcommunity <-factor(c("Bournes","Bournes","Bournes", "Aigle", "Aigle",
"Aigle"))
testaltitude <- c(523.2,321.5,654.1,938.6,401.3,765.9)
testSpeciesName <-c( "Bellis perennis",
                    "Cynosurus cristatus",
                    "Festuca pratensis",
                   "Bellis perennis",
                   "Bellis perennis",
                    "Prunella vulgaris")
testframe <- data.frame(testcoordID,testcommunity,testaltitude,
testSpeciesName)

        [[alternative HTML version deleted]]