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