*I want to multiply regression result ( pi is below) with variables/column for each observation.*

this is pi:

dF/dx P>|z|

HizmetSuresi -0.06630969 0.000000e+00

SikayetSayisi 0.02506111 2.142303e-03

TeknikDestekTalebi -0.06455769 9.466772e-17

MobilDataKullanimi -0.33180028 3.543198e-45

IndirimOrani -0.51907675 0.000000e+00

*if p value (P>|z|) is lower than 0.05 percent, which means that variable is statistically significant in this model, marjinal effect / dF/dx is gonna be multiplied with relevant column/variable. if not, it's gonna be multiplied with 1 that it does not change the value of column)*

**where do i make mistake in the ifelse commands? i dont understand. if you help me, i welcome a lot!**

res<-probitmfx(formula=CHURN~ HizmetSuresi+SikayetSayisi+TeknikDestekTalebi+MobilDataKullanimi+IndirimOrani

,data = a,

atmean = TRUE, robust = FALSE, clustervar1 = NULL,

clustervar2 = NULL, start = NULL, control = list())

```
res1<-as.data.frame(res$mfxest)
pi<-select(res1,`dF/dx`,`P>|z|`)
a$HizmetSuresi1<-ifelse(pi[1,2]<0.05,a$HizmetSuresi*pi[1,1],a$HizmetSuresi*1)
a$SikayetSayisi1<-ifelse(pi[2,2]<0.05,a$SikayetSayisi*pi[2,1],a$SikayetSayisi*1)
a$TeknikDestekTalebi1<-ifelse(pi[3,2]<0.05,a$TeknikDestekTalebi*pi[3,1],a$TeknikDestekTalebi*1)
a$MobilDataKullanimi1<-ifelse(pi[4,2]<0.05,a$MobilDataKullanimi*pi[4,1],a$MobilDataKullanimi*1)
a$IndirimOrani1<-ifelse(pi[5,2]<0.5,a$IndirimOrani*pi[5,1],a$IndirimOrani*1)
a$churn.prob<-a$HizmetSuresi1+a$SikayetSayisi1+a$TeknikDestekTalebi1+a$MobilDataKullanimi1+a$IndirimOrani1
```