Use Markdown
library(dpylr)
```{r}
data2_1<- data.frame(data1$dos1[[1]])
data2_2<- data.frame(data1$dos2[[1]])
data2_3<- data.frame(data1$dos3[[1]])
data2_4<- data.frame(data1$dos4[[1]])
data2_5<- data.frame(data1$dos5[[1]])
data2_6<- data.frame(data1$dos6[[1]])
data2_7<- data.frame(data1$dos7[[1]])
```
```{r}
data2_12<- full_join(data2_1,data2_2, by = "CODOPERACION")
data2_13<- full_join(data2_2,data2_3, by = "CODOPERACION")
data2_14<- full_join(data2_3,data2_4, by = "CODOPERACION")
data2_15<- full_join(data2_4,data2_5, by = "CODOPERACION")
data2_16<- full_join(data2_5,data2_6, by = "CODOPERACION")
data2_17<- full_join(data2_6,data2_7, by = "CODOPERACION")
```
```{r}
for (i in 1:7) {
paste0("data2_1",i) <- paste0("data2_1",i) %>%
mutate(
ope_dudosas1 = ifelse(DUDOSANORMAL.x=="dudoso" & DUDOSANORMAL.y=="normal",1,
ifelse(DUDOSANORMAL.x=="normal" & DUDOSANORMAL.y=="dudoso",2,
ifelse(DUDOSANORMAL.x=="normal" & DUDOSANORMAL.y=="normal",3,
ifelse(DUDOSANORMAL.x=="dudoso" & DUDOSANORMAL.y=="dudoso",4,10))))
)
}
```
Error in UseMethod("mutate_") : no applicable method for 'mutate_' applied to an object of class "character"
You could help me with this problem please