Eu estou tentando criar uma função que pega o valor fixo de uma linha df[1,3] e subtrai ela pelo valor de uma outra linha de um dataframe df[,1] e o resultado dessa subtração ser também subtraído pela linha de baixo da mesma coluna df[,1](e assim sucessivamente)e ao mesmo tempo rodar um ifelse que se o valor resultante dessas substrações for inferior a um certo valor, some o resultado das subtrações por um outro objetoB. Alguém tem ideia de como faço isso?
meu script:
objetoA<- 100
valor <- 20
objetoB<-40
a<-c(1,2,3,4,5)
b<-c(10,10,10,10,10)
df <- data.frame(b,a)
df[1,3]<-100
funcao<- function(x) {df[1,3] - df[,1] + (ifelse(df[1,3] - df[,1] <= valor,objetoB+df[1,3] - df[,1],0))}
print((last(map(objetoA, funcao))))
Dessa forma que está no Script subtrai o df[1,3]por cada linha separadamente, linha por linha, e me volta o resultado de cada linha como se eu pegasse a coluna e fizesse isso: df[1,3]- df[,1] apenas ou seja não subtrai o resultado das substrações pela linha debaixo..
Porém eu quero que ele pegue o valor da primeira subtração e subtraia pela linha de baixo e assim por diante enquanto verifica a condição do ifelse... Alguém tem ideia de como fazer isso?
O resultado nesse caso seria apenas 100-10-10-10-10-10=50
df
só tem duas colunas,b
ea
.df[1,3]
não existe. Quando fazdf[1,3]<-100
imediatamente antes de definir a função, está a criar uma nova coluna com todos os outros valoresNA
. Pode postar a saída esperada desse código com os dados da pergunta? – Rui Barradas 25/10/19 às 17:56