nome<-c("joshua","jose","maria","maria","edinho","raimundo","raimundo","maria","jose")
nome1<-c("jose","jose","maria","maria","edson","raimundo","raimundo","maria","jose")
idade<-c(18,28,19,29,18,25,19,25,20)
dados<-data.frame(nome,nome1,idade)
dados$brother<-ifelse(dados$nome="jose"&
ifelse(dados$nome1="jose", "irmãos","amigo"))