Estou com um problema e não consigo resolver. Estou criando uma função e em determinado momento uso ifs e else. No argumento x da função : develop <- function(x, temp, data) eu deixarei a opção para o usuário colocar 5 strings. Então eu fiz os if e else para caso colocar uma, a função vai fazer determinada coisa e assim por diante. Meu problema é que só está funcionando na primeira opção de string que coloco. Nas outras diz que o objeto não foi encontrado.
calb <- "calb"
if (x == calb & temp == 25){
cat("O valor de p é:", tabela.calb25[[1]]$"Pr(>F)"[1])
x11()
boxplot(Peso ~ Idade + Substrato , data = dados.calb25)
} else if (x == calb & temp == 30){
cat("O valor de p é:", tabela.calb30[[1]]$"Pr(>F)"[1])
x11()
boxplot(Peso ~ Idade + Substrato , data = dados.calb30)
} else if (x == calb & temp == 35){
cat("O valor de p é:", tabela.calb35[[1]]$"Pr(>F)"[1])
x11()
boxplot(Peso ~ Idade + Substrato , data = dados.calb35)
}else if (x == cmeg & temp == 25){
cat("O valor de p é:", tabela.cmeg25[[1]]$"Pr(>F)"[1])
x11()
boxplot(Peso ~ Idade + Substrato , data = dados.cmeg25)
E assim vai até eu terminar as 5 opções. Nesse caso funciona a primeira (calb) e por exemplo, a cmeg já da que o objeto não foi encontrado. Eu já tentei colocar o x == "cmeg"
porém sem sucesso.
Alguém pode me ajudar ?
cmeg
, não nosx11/boxplot
. Creio que é melhor simplificar para podermos nos concentrar no problema e não em código confuso. Mas tudo bem, não há problema.