1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
tatemp2$prov_calcstress_p<-ifelse(is.na(tatemp2$pos_ind)==F, #если в поле стоит NA, то договор признается индивидуальной ссудой
#правила для ПОС
ifelse(tatemp2$fl_ul=="ЮЛ",
#правила для ЮЛ
ifelse(tatemp2$prov_calc_p==0.5,1.5,
ifelse(tatemp2$prov_calc_p==1,3,
ifelse(tatemp2$prov_calc_p==1.5,10,
ifelse(tatemp2$prov_calc_p==3,20,
ifelse(tatemp2$prov_calc_p==10,35,
ifelse(tatemp2$prov_calc_p==20,50,
ifelse(tatemp2$prov_calc_p==35,75,
ifelse(tatemp2$prov_calc_p==50,75,tatemp2$prov_calc_p))))))))
,
#правила для ФЛ
ifelse(tatemp2$prov_calc_p>=0 & tatemp2$prov_calc_p<1,1.5,
ifelse(tatemp2$prov_calc_p==1,3,
ifelse(tatemp2$prov_calc_p==1.5,10,
ifelse(tatemp2$prov_calc_p==2,6,
ifelse(tatemp2$prov_calc_p==3,ifelse(tatemp2$backet=="0 Без просрочки",8,20),
ifelse(tatemp2$prov_calc_p>3 & tatemp2$prov_calc_p<10,20,
ifelse(tatemp2$prov_calc_p>=10 & tatemp2$prov_calc_p<20,35,
ifelse(tatemp2$prov_calc_p>=20 & tatemp2$prov_calc_p<35,50,
ifelse(tatemp2$prov_calc_p>=35 & tatemp2$prov_calc_p<75,75,
ifelse(tatemp2$prov_calc_p>=75 & tatemp2$prov_calc_p<=100,100,tatemp2$prov_calc_p))))))))))
),
#правила для индивидуальных ссуд
ifelse(tatemp2$fl_ul=="ЮЛ",
#правила для ЮЛ
ifelse(tatemp2$prov_calc_p<1, #если текущий резерв <1% (I)
ifelse(tatemp2$r3<0.9,1,ifelse(tatemp2$r3>=0.99,20,10)),
ifelse(tatemp2$prov_calc_p>=1 & tatemp2$prov_calc_p<21, #если текущий резерв [1%,21%) (II)
ifelse(tatemp2$r2<0.5, #вероятность смены категории качества при стрессе = 50%
ifelse(tatemp2$prov_calc_p==1, #категория остается прежней (II)
ifelse(tatemp2$r3<0.9,10,20),
ifelse(tatemp2$prov_calc_p==20,
ifelse(tatemp2$r3<0.6,21,ifelse(tatemp2$r3>=0.95,30,50)),20)),
ifelse(tatemp2$r3<0.6,21,ifelse(tatemp2$r3>=0.95,30,50))), #категория меняется (III)
ifelse(tatemp2$prov_calc_p>=21 & tatemp2$prov_calc_p<51, #если текущий резерв [21%,51%) (III)
ifelse(tatemp2$r2<0.5, #вероятность смены категории качества при стрессе = 50%
ifelse(tatemp2$prov_calc_p==21, #категория остается прежней (III)
ifelse(tatemp2$r3<0.125,30,50),
ifelse(tatemp2$prov_calc_p==50,
ifelse(tatemp2$r3<0.9,51,ifelse(tatemp2$r3>=0.99,100,75)),50)),
ifelse(tatemp2$r3<0.9,51,ifelse(tatemp2$r3>=0.99,100,75))), #категория меняется (IV)
ifelse(tatemp2$prov_calc_p>=51, #если текущий резерв >=51% (IV)
ifelse(tatemp2$r2<0.5, #вероятность смены категории качества при стрессе = 50%
ifelse(tatemp2$prov_calc_p==51, #категория остается прежней (III)
ifelse(tatemp2$r3<0.9,75,100),100),100),
100)))) #категория меняется (V)
,
#правила для ФЛ
ifelse(tatemp2$prov_calc_p<1, #если текущий резерв <1% (I)
1,
ifelse(tatemp2$prov_calc_p>=1 & tatemp2$prov_calc_p<21, #если текущий резерв [1%,21%) (II)
ifelse(tatemp2$r3<0.5,21,50),
ifelse(tatemp2$prov_calc_p>=21 & tatemp2$prov_calc_p<51, #если текущий резерв [21%,51%) (III)
ifelse(tatemp2$r2<0.5, #вероятность смены категории качества при стрессе = 50%
ifelse(tatemp2$prov_calc_p==21,50,51), #категория остается прежней (III)
51), #категория меняется (IV)
100)))#в остальных случаях 100%
)
)
#условия заданы
