рдЖрд░ рдкрд░ рдорд╢реАрди рд╕реАрдЦрдиреЗ: рднрд╡рд┐рд╖реНрдп рдХрд╣рдиреЗрд╡рд╛рд▓рд╛ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдХреЗ рд▓рд┐рдП рд╡рд┐рд╢реЗрд╖рдЬреНрдЮ рддрдХрдиреАрдХ

рдЫрд╡рд┐рд╣реИрд▓реЛ, рд╣рдмреНрд░реЛрдЬрд╝рд┐рдЯреЗрд▓реА! рдЖрд░ рднрд╛рд╖рд╛ рдорд╢реАрди рд╕реАрдЦрдиреЗ рдХреЗ рддрд░реАрдХреЛрдВ рдХрд╛ рдПрдХ рд╢рдХреНрддрд┐рд╢рд╛рд▓реА рд╕реЗрдЯ рдкреНрд░рджрд╛рди рдХрд░рддреА рд╣реИ рдЬреЛ рдЖрдкрдХреЛ рдЕрдкрдиреЗ рдбреЗрдЯрд╛ рдХрд╛ рдЧреИрд░-рддреБрдЪреНрдЫ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддреА рд╣реИред рдкреБрд╕реНрддрдХ рдПрдХ рдорд╛рд░реНрдЧрджрд░реНрд╢рд┐рдХрд╛ рд╣реИ рдЬреЛ рд░реЛрдЬрдорд░реНрд░рд╛ рдХреА рд╕рдорд╕реНрдпрд╛рдУрдВ рдХреЛ рд╣рд▓ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдорд╢реАрди рд╕реАрдЦрдиреЗ рдХреЗ рддрд░реАрдХреЛрдВ рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рдореЗрдВ рдорджрдж рдХрд░реЗрдЧреАред рдмреНрд░реЗрдЯ рд▓реИрдирдЬрд╝ рдЖрдкрдХреЛ рдбреЗрдЯрд╛ рд╡рд┐рд╢реНрд▓реЗрд╖рдг, рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рдФрд░ рдбреЗрдЯрд╛ рд╡рд┐рдЬрд╝реБрдЕрд▓рд╛рдЗрдЬрд╝реЗрд╢рди рдХреЗ рд▓рд┐рдП рдЖрд╡рд╢реНрдпрдХ рд╕рднреА рдЪреАрдЬреЗрдВ рд╕рд┐рдЦрд╛рдПрдЧрд╛ред рдпрд╣рд╛рдВ рдЖрдкрдХреЛ рдирдИ рдФрд░ рдмреЗрд╣рддрд░ рд▓рд╛рдЗрдмреНрд░реЗрд░рд┐рдпреЛрдВ, рдорд╢реАрди рд▓рд░реНрдирд┐рдВрдЧ рдФрд░ рдкреВрд░реНрд╡рд╛рдЧреНрд░рд╣ рдореБрджреНрджреЛрдВ рдХреЗ рдиреИрддрд┐рдХ рдкрд╣рд▓реБрдУрдВ рдХреЗ рд╕рд╛рде-рд╕рд╛рде рдЧрд╣рди рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдЬрд╛рдирдХрд╛рд░реА рдорд┐рд▓реЗрдЧреАред

рдЗрд╕ рдкреБрд╕реНрддрдХ рдореЗрдВ - рдорд╢реАрди рд▓рд░реНрдирд┐рдВрдЧ рдХреЗ рдлрдВрдбрд╛рдореЗрдВрдЯрд▓ рдФрд░ рдЙрджрд╛рд╣рд░рдгреЛрдВ рдкрд░ рдХрдВрдкреНрдпреВрдЯрд░ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХреА рд╡рд┐рд╢реЗрд╖рддрд╛рдПрдВред - рднрд╛рд╖рд╛ рдЖрд░ рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдорд╢реАрди рд╕реАрдЦрдиреЗ рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХреЗ рд▓рд┐рдП рдбреЗрдЯрд╛ рдХреА рддреИрдпрд╛рд░реА - рдкрд░рд┐рдгрд╛рдореЛрдВ рдХреЗ рдорд╣рддреНрд╡ рдХрд╛ рд╡рд░реНрдЧреАрдХрд░рдгред - рдирд┐рд░реНрдгрдп рдкреЗрдбрд╝реЛрдВ, рдирд┐рдпрдореЛрдВ рдФрд░ рд╕рдВрджрд░реНрдн рд╡реИрдХреНрдЯрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдШрдЯрдирд╛рдУрдВ рдХреА рднрд╡рд┐рд╖реНрдпрд╡рд╛рдгреАред - рдкреНрд░рддрд┐рдЧрдорди рд╡рд┐рдзрд┐рдпреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдбреЗрдЯрд╛ рдФрд░ рд╡рд┐рддреНрддреАрдп рдбреЗрдЯрд╛ рдХреЗ рдЖрдХрд▓рди рдХреА рднрд╡рд┐рд╖реНрдпрд╡рд╛рдгреАред - рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реБрдП рдЬрдЯрд┐рд▓ рдкреНрд░рдХреНрд░рд┐рдпрд╛рдУрдВ рдХреЛ рддреИрдпрд╛рд░ рдХрд░рдирд╛ рдЧрд╣рди рд╢рд┐рдХреНрд╖рд╛ рдХреА рдиреАрдВрд╡ рд╣реИред - рдореЙрдбрд▓ рдХрд╛ рдореВрд▓реНрдпрд╛рдВрдХрди рдФрд░ рдЙрдирдХреЗ рдкреНрд░рджрд░реНрд╢рди рдореЗрдВ рд╕реБрдзрд╛рд░ред - рд╡рд┐рд╢реЗрд╖ рд░реВрдк рд╕реЗ R 3.6, рд╕реНрдкрд╛рд░реНрдХ, H2O рдФрд░ TensorFlow рдореЗрдВ рдмрдбрд╝реЗ рдбреЗрдЯрд╛ рдХреЗ рдкреНрд░рд╕рдВрд╕реНрдХрд░рдг рдХреЗ рд▓рд┐рдП рдирд╡реАрдирддрдо рддрдХрдиреАрдХреЗрдВред

рдкреБрд╕реНрддрдХ рдХрд┐рд╕рдХреЗ рд▓рд┐рдП рд╣реИ?


рдкреБрд╕реНрддрдХ рдЙрди рд▓реЛрдЧреЛрдВ рдХреЗ рд▓рд┐рдП рд╣реИ рдЬреЛ рдПрдХ рд╡рд┐рд╢рд┐рд╖реНрдЯ рдХреНрд╖реЗрддреНрд░ рдореЗрдВ рдбреЗрдЯрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреА рдЙрдореНрдореАрдж рдХрд░рддреЗ рд╣реИрдВред рдЖрдк рдорд╢реАрди рд╕реАрдЦрдиреЗ рд╕реЗ рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдкрд░рд┐рдЪрд┐рдд рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдЖрдкрдиреЗ рдХрднреА рдЖрд░ рднрд╛рд╖рд╛ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдирд╣реАрдВ рдХрд┐рдпрд╛ рд╣реИ; рдпрд╛, рдЗрд╕рдХреЗ рд╡рд┐рдкрд░реАрдд, рдЖрдк R рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдереЛрдбрд╝рд╛ рдЬрд╛рдирддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдорд╢реАрди рд╕реАрдЦрдиреЗ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рд▓рдЧрднрдЧ рдирд╣реАрдВ рдЬрд╛рдирддреЗ рд╣реИрдВред рдХрд┐рд╕реА рднреА рдорд╛рдорд▓реЗ рдореЗрдВ, рдпрд╣ рдкреБрд╕реНрддрдХ рдЖрдкрдХреЛ рдЬрд▓реНрджреА рд╕реЗ рд╢реБрд░реВ рдХрд░рдиреЗ рдореЗрдВ рдорджрдж рдХрд░реЗрдЧреАред рдпрд╣ рдЧрдгрд┐рдд рдФрд░ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рдХреА рдмреБрдирд┐рдпрд╛рджреА рдЕрд╡рдзрд╛рд░рдгрд╛рдУрдВ рдХреЛ рддрд╛рдЬрд╝рд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧреА рд╣реЛрдЧрд╛, рд▓реЗрдХрд┐рди рдХрд┐рд╕реА рднреА рдкреВрд░реНрд╡ рдЕрдиреБрднрд╡ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рд╣реЛрдЧреАред рдЖрдкрдХреЛ рдХреЗрд╡рд▓ рд╕реАрдЦрдиреЗ рдХреА рдЗрдЪреНрдЫрд╛ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред

рдЖрдк рдкреНрд░рдХрд╛рд╢рди рдореЗрдВ рдХреНрдпрд╛ рдкрдврд╝реЗрдВрдЧреЗ
1 ┬л ┬╗ , , , , .

2 ┬л ┬╗ R. , , .

3 ┬л : ┬╗ , : .

4 ┬л : ┬╗ , . , .

5 ┬л : ┬╗ , , . , .

6 ┬л : ┬╗ , . , , .

7 ┬л тАЬ тАЭ: ┬╗ , . , , .

8 ┬л : ┬╗ , , . - , , , .

9 ┬л : k-┬╗ . -.

10 ┬л ┬╗ , .

11 ┬л ┬╗ , , . , .

12 ┬л ┬╗ : R. , , R.


рдЙрджрд╛рд╣рд░рдг: рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдареЛрд╕ рд╢рдХреНрддрд┐ рдХрд╛ рдирд┐рд░реНрдорд╛рдг


рд╕рд┐рд╡рд┐рд▓ рдЗрдВрдЬреАрдирд┐рдпрд░рд┐рдВрдЧ рдХреЗ рдХреНрд╖реЗрддреНрд░ рдореЗрдВ, рдирд┐рд░реНрдорд╛рдг рд╕рд╛рдордЧреНрд░реА рдХреА рдкреНрд░рднрд╛рд╡рд╢реАрд▓рддрд╛ рдХрд╛ рд╕рдЯреАрдХ рдЕрдиреБрдорд╛рди рд╣реЛрдирд╛ рдмреЗрд╣рдж рдЬрд░реВрд░реА рд╣реИред рдпреЗ рдЖрдХрд▓рди рдЗрдорд╛рд░рддреЛрдВ, рдкреБрд▓реЛрдВ рдФрд░ рд╕рдбрд╝рдХреЛрдВ рдХреЗ рдирд┐рд░реНрдорд╛рдг рдореЗрдВ рд╕рд╛рдордЧреНрд░реА рдХреЗ рдЙрдкрдпреЛрдЧ рдХреЛ рдирд┐рдпрдВрддреНрд░рд┐рдд рдХрд░рдиреЗ рд╡рд╛рд▓реЗ рд╕реБрд░рдХреНрд╖рд╛ рдирд┐рдпрдореЛрдВ рдХреЛ рд╡рд┐рдХрд╕рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЖрд╡рд╢реНрдпрдХ рд╣реИрдВред

рд╡рд┐рд╢реЗрд╖ рд░реВрдк рд╕реЗ рд░реБрдЪрд┐ рдареЛрд╕ рддрд╛рдХрдд рдХрд╛ рдЖрдХрд▓рди рд╣реИред рдХрдВрдХреНрд░реАрдЯ рдХрд╛ рдЙрдкрдпреЛрдЧ рд▓рдЧрднрдЧ рдХрд┐рд╕реА рднреА рдирд┐рд░реНрдорд╛рдг рдореЗрдВ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдХрдВрдХреНрд░реАрдЯ рдХреА рдкреНрд░рджрд░реНрд╢рди рд╡рд┐рд╢реЗрд╖рддрд╛рдПрдВ рдмрд╣реБрдд рднрд┐рдиреНрди рд╣реЛрддреА рд╣реИрдВ, рдХреНрдпреЛрдВрдХрд┐ рдЗрд╕рдореЗрдВ рдмрдбрд╝реА рд╕рдВрдЦреНрдпрд╛ рдореЗрдВ рд╕рд╛рдордЧреНрд░реА рд╣реЛрддреА рд╣реИ рдЬреЛ рдПрдХ рдЬрдЯрд┐рд▓ рдореЗрдВ рдмрд╛рддрдЪреАрдд рдХрд░рддреЗ рд╣реИрдВред рдирддреАрдЬрддрди, рдпрд╣ рдХрд╣рдирд╛ рдореБрд╢реНрдХрд┐рд▓ рд╣реИ рдХрд┐ рддреИрдпрд╛рд░ рдЙрддреНрдкрд╛рдж рдХреА рддрд╛рдХрдд рдХреНрдпрд╛ рд╣реЛрдЧреАред рдПрдХ рдореЙрдбрд▓ рдЬреЛ рдХрдВрдХреНрд░реАрдЯ рдХреА рддрд╛рдХрдд рдХрд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрдЧрд╛, рд╢реБрд░реБрдЖрддреА рд╕рд╛рдордЧреНрд░рд┐рдпреЛрдВ рдХреА рд╕рдВрд░рдЪрдирд╛ рдХреЛ рдзреНрдпрд╛рди рдореЗрдВ рд░рдЦрддреЗ рд╣реБрдП, рдирд┐рд░реНрдорд╛рдг рд╕реНрдерд▓реЛрдВ рдХреЗ рд▓рд┐рдП рдЙрдЪреНрдЪ рд╕реНрддрд░ рдХреА рд╕реБрд░рдХреНрд╖рд╛ рдкреНрд░рджрд╛рди рдХрд░ рд╕рдХрддрд╛ рд╣реИред

рдЪрд░рдг 1. рдбреЗрдЯрд╛ рд╕рдВрдЧреНрд░рд╣


рдЗрд╕ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдХреЗ рд▓рд┐рдП, рд╣рдо I-Cheng Yeh рджреНрд╡рд╛рд░рд╛ рдпреВрд╕реАрдЖрдИ рдорд╢реАрди рд▓рд░реНрдирд┐рдВрдЧ рд░рд┐рдкреЙрдЬрд┐рдЯрд░реА (http://archive.ics.uci.edu/ml) рдХреЛ рдЙрдкрд▓рдмреНрдз рдХрд░рд╛рдП рдЧрдП рдХрдВрдХреНрд░реАрдЯ рдХрдВрдкреНрд░реЗрд╕рд┐рд╡ рд╕реНрдЯреНрд░реЗрдВрде рдбреЗрдЯрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВрдЧреЗред рдЪреВрдВрдХрд┐ рдЗрд╕ рдбреЗрдЯрд╛ рдХреЛ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдР-рдЪреЗрдВрдЧ рдпреЗ рдиреЗ рд╕рдлрд▓рддрд╛рдкреВрд░реНрд╡рдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рд╣реИ, рдЗрд╕рд▓рд┐рдП рд╣рдо рдЖрд░ рдореЗрдВ рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рдПрдХ рд╕рд╛рдзрд╛рд░рдг рдореЙрдбрд▓ рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдХреЗ рдЙрд╕рдХреЗ рдХрд╛рдо рдХреЛ рдкреБрди: рдкреЗрд╢ рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реЗрдВрдЧреЗред

рд╕рд╛рдЗрдЯ рджреНрд╡рд╛рд░рд╛ рджреЗрдЦрддреЗ рд╣реБрдП, рдЗрд╕ рдбреЗрдЯрд╛рд╕реЗрдЯ рдореЗрдВ рдХрдВрдХреНрд░реАрдЯ рдХреЗ рд╡рд┐рднрд┐рдиреНрди рдмреНрд░рд╛рдВрдбреЛрдВ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ 1030 рд░рд┐рдХреЙрд░реНрдб рд╣реЛрддреЗ рд╣реИрдВ, рдЬрд┐рд╕рдореЗрдВ рдЖрда рд╡рд┐рд╢реЗрд╖рддрд╛рдПрдВ рд╣реЛрддреА рд╣реИрдВ рдЬреЛ рдХрдВрдХреНрд░реАрдЯ рдорд┐рд╢реНрд░рдг рдХреА рд╕рдВрд░рдЪрдирд╛ рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд┐рдП рдЬрд╛рдиреЗ рд╡рд╛рд▓реЗ рдШрдЯрдХреЛрдВ рдХрд╛ рд╡рд░реНрдгрди рдХрд░рддреА рд╣реИрдВред рдпрд╣ рдорд╛рдирд╛ рдЬрд╛рддрд╛ рд╣реИ рдХрд┐ рдпреЗ рд╡рд┐рд╢реЗрд╖рддрд╛рдПрдВ рдЕрдВрддрд┐рдо рд╕рдВрдкреАрдбрд╝рд┐рдд рддрд╛рдХрдд рдХреЛ рдкреНрд░рднрд╛рд╡рд┐рдд рдХрд░рддреА рд╣реИрдВред рдЗрдирдореЗрдВ рд╢рд╛рдорд┐рд▓ рд╣реИрдВ: рд╕реАрдореЗрдВрдЯ, рдкрд╛рдиреА, рд╡рд┐рднрд┐рдиреНрди рдпреЛрдЬрдХ, рдмрдбрд╝реЗ рдФрд░ рдЫреЛрдЯреЗ рд╕рдореБрдЪреНрдЪрдп рдЬреИрд╕реЗ рдХрд┐ рдХреБрдЪрд▓ рдкрддреНрдерд░ рдФрд░ рд░реЗрдд рдЬреИрд╕реЗ рддреИрдпрд╛рд░ рдЙрддреНрдкрд╛рдж рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХреА рдЬрд╛рдиреЗ рд╡рд╛рд▓реА рд░рд╛рд╢рд┐, (рд╕рд╛рде рд╣реА рд╕рдордп)ред

рдЗрд╕ рдЙрджрд╛рд╣рд░рдг рдХреЛ рдЪрд▓рд╛рдиреЗ рдХреЗ рд▓рд┐рдП, рдХрдВрдХреНрд░реА рдлрд╝рд╛рдЗрд▓ рдХреЛ рдбрд╛рдЙрдирд▓реЛрдб рдХрд░реЗрдВ рдФрд░ рдЗрд╕реЗ R рд╡рд░реНрдХрд┐рдВрдЧ рдбрд╛рдпрд░реЗрдХреНрдЯрд░реА рдореЗрдВ рд╕реЗрд╡ рдХрд░реЗрдВред

рдЪрд░рдг 2. рдЕрдиреБрд╕рдВрдзрд╛рди рдФрд░ рдбреЗрдЯрд╛ рддреИрдпрд╛рд░реА


рд╣рдореЗрд╢рд╛ рдХреА рддрд░рд╣, рд╣рдо read.csv () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдбреЗрдЯрд╛ рдХреЛ рдЖрд░-рдСрдмреНрдЬреЗрдХреНрдЯ рдореЗрдВ рд▓реЛрдб рдХрд░рдХреЗ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рд╢реБрд░реВ рдХрд░рддреЗ рд╣реИрдВ рдФрд░ рд╕реБрдирд┐рд╢реНрдЪрд┐рдд рдХрд░рддреЗ рд╣реИрдВ рдХрд┐ рдкрд░рд┐рдгрд╛рдо рдЕрдкреЗрдХреНрд╖рд┐рдд рд╕рдВрд░рдЪрдирд╛ рд╕реЗ рдореЗрд▓ рдЦрд╛рддрд╛ рд╣реИ:

> concrete <- read.csv("concrete.csv")
> str(concrete)
'data.frame':        1030 obs. of 9 variables:
$ cement       : num 141 169 250 266 155 ...
$ slag            : num 212 42.2 0 114 183.4 ...
$ ash             : num 0 124.3 95.7 0 0 ...
$ water          : num 204 158 187 228 193 ...
$ superplastic : num 0 10.8 5.5 0 9.1 0 0 6.4 0 9 ...
$ coarseagg    : num 972 1081 957 932 1047 ...
$ fineagg        : num 748 796 861 670 697 ...
$ age             : int 28 14 28 28 28 90 7 56 28 28 ...
$ strength      : num 29.9 23.5 29.2 45.9 18.3 ...

рдбреЗрдЯрд╛ рдлрд╝реНрд░реЗрдо рдореЗрдВ рдиреМ рдЪрд░ рдЖрда рд╡рд┐рд╢реЗрд╖рддрд╛рдУрдВ рдФрд░ рдПрдХ рдЕрдкреЗрдХреНрд╖рд┐рдд рдкрд░рд┐рдгрд╛рдо рдХреЗ рдЕрдиреБрд░реВрдк рд╣реИрдВ, рд▓реЗрдХрд┐рди рдпрд╣ рд╕реНрдкрд╖реНрдЯ рд╣реЛ рдЧрдпрд╛ рдХрд┐ рдПрдХ рд╕рдорд╕реНрдпрд╛ рд╣реИред рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рд╕рдмрд╕реЗ рдЕрдЪреНрдЫрд╛ рдХрд╛рдо рдХрд░рддреЗ рд╣реИрдВ рдЬрдм рдЗрдирдкреБрдЯ рдбреЗрдЯрд╛ рдХреЛ 0 рдХреЗ рдЖрд╕рдкрд╛рд╕ рдХреЗрдВрджреНрд░рд┐рдд рдПрдХ рд╕рдВрдХреАрд░реНрдг рд╕реАрдорд╛ рддрдХ рдмрдврд╝рд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдФрд░ рдпрд╣рд╛рдВ рд╣рдо 0 рд╕реЗ 1000 рд╕реЗ рдЕрдзрд┐рдХ рдХреА рд░реЗрдВрдЬ рдореЗрдВ рдорд╛рди рджреЗрдЦрддреЗ рд╣реИрдВред

рдЖрдорддреМрд░ рдкрд░, рдЗрд╕ рд╕рдорд╕реНрдпрд╛ рдХрд╛ рд╕рдорд╛рдзрд╛рди рд╕рд╛рдорд╛рдиреНрдпреАрдХрд░рдг рдпрд╛ рдорд╛рдирдХреАрдХрд░рдг рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдбреЗрдЯрд╛ рдХреЛ рд╕реНрдХреЗрд▓ рдХрд░рдирд╛ рд╣реИред рдпрджрд┐ рдбреЗрдЯрд╛ рд╡рд┐рддрд░рдг рдШрдВрдЯреА рдХреЗ рдЖрдХрд╛рд░ рдХрд╛ рд╡рдХреНрд░ (рд╕рд╛рдорд╛рдиреНрдп рд╡рд┐рддрд░рдг, рдЕрдзреНрдпрд╛рдп 2 рджреЗрдЦреЗрдВ) рд╕реЗ рдореЗрд▓ рдЦрд╛рддрд╛ рд╣реИ, рддреЛ рдпрд╣ рдЕрдВрддрд░реНрдирд┐рд╣рд┐рдд рдкреИрдорд╛рдиреЗ () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдорд╛рдирдХреАрдХрд░рдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╕рдордЭ рдореЗрдВ рдЖ рд╕рдХрддрд╛ рд╣реИред рдпрджрд┐ рдбреЗрдЯрд╛ рд╡рд┐рддрд░рдг рд╕рдорд╛рди рдпрд╛ рд╕рд╛рдорд╛рдиреНрдп рд╕реЗ рдмрд╣реБрдд рдЕрд▓рдЧ рд╣реИ, рддреЛ 0 рд╕реЗ 1 рддрдХ рдХреА рд╕реАрдорд╛ рдХрд╛ рд╕рд╛рдорд╛рдиреНрдпреАрдХрд░рдг рдЕрдзрд┐рдХ рдЙрдкрдпреБрдХреНрдд рд╣реЛ рд╕рдХрддрд╛ рд╣реИред рдЗрд╕ рдорд╛рдорд▓реЗ рдореЗрдВ, рд╣рдо рдмрд╛рдж рд╡рд╛рд▓реЗ рд╡рд┐рдХрд▓реНрдк рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВрдЧреЗред

рдЕрдзреНрдпрд╛рдп 3 рдореЗрдВ, рд╣рдордиреЗ рдЕрдкрдирд╛ рд╕рд╛рдорд╛рдиреНрдпреАрдХрд░рдг () рдлрд╝рдВрдХреНрд╢рди рдмрдирд╛рдпрд╛:

> normalize <- function(x) {
       return((x - min(x)) / (max(x) тАФ min(x)))
}

рдЗрд╕ рдХреЛрдб рдХреЗ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рд╣реЛрдиреЗ рдХреЗ рдмрд╛рдж, рдЖрдк рд╕рд╛рдорд╛рдиреНрдпреАрдХреГрдд () рдлрд╝рдВрдХреНрд╢рди рдХреЛ рдЪрдпрдирд┐рдд рдбреЗрдЯрд╛ рдлрд╝реНрд░реЗрдо рдХреЗ рд╕рднреА рд╕реНрддрдВрднреЛрдВ рдкрд░ lapply () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд▓рд╛рдЧреВ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:

> concrete_norm <- as.data.frame(lapply(concrete, normalize))

рдпрд╣ рд╕рддреНрдпрд╛рдкрд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐ рд╕рд╛рдорд╛рдиреНрдпреАрдХрд░рдг рдиреЗ рдХрд╛рдо рдХрд┐рдпрд╛ рд╣реИ, рдЖрдк рдЬрд╛рдВрдЪ рд╕рдХрддреЗ рд╣реИрдВ рдХрд┐ рдХреНрдпрд╛ рддрд╛рдХрдд рд╡рд┐рд╢реЗрд╖рддрд╛ рдХрд╛ рдиреНрдпреВрдирддрдо рдФрд░ рдЕрдзрд┐рдХрддрдо рдорд╛рди рдХреНрд░рдорд╢рдГ 0 рдФрд░ 1 рд╣реИ:

> summary(concrete_norm$strength)
       Min.     1st Qu.         Median     Mean      3rd Qu.      Max.
   0.0000     0.2664         0.4001  0.4172      0.5457   1.0000

рддреБрд▓рдирд╛ рдХреЗ рд▓рд┐рдП: рдЗрд╕ рд╡рд┐рд╢реЗрд╖рддрд╛ рдХреЗ рдкреНрд░рд╛рд░рдВрднрд┐рдХ рдиреНрдпреВрдирддрдо рдФрд░ рдЕрдзрд┐рдХрддрдо рдореВрд▓реНрдп рдХреНрд░рдорд╢рдГ 2.33 рдФрд░ 82.60 рдереЗ:

> summary(concrete$strength)
     Min.       1st Qu.     Median       Mean      3rd Qu.       Max.
    2.33         23.71       34.44      35.82        46.14      82.60

рдореЙрдбрд▓ рдХреЛ рдкреНрд░рд╢рд┐рдХреНрд╖рд┐рдд рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ рдбреЗрдЯрд╛ рдкрд░ рд▓рд╛рдЧреВ рдХрд┐рд╕реА рднреА рд░реВрдкрд╛рдВрддрд░рдг рдХреЛ рдмрд╛рдж рдореЗрдВ рд░рд┐рд╡рд░реНрд╕ рдСрд░реНрдбрд░ рдореЗрдВ рдореВрд▓ рдЗрдХрд╛рдЗрдпреЛрдВ рдореЗрдВ рд╡рд╛рдкрд╕ рдмрджрд▓рдиреЗ рдХреЗ рд▓рд┐рдП рд▓рд╛рдЧреВ рдХрд┐рдпрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдПред рд╕реНрдХреЗрд▓рд┐рдВрдЧ рдХреА рд╕реБрд╡рд┐рдзрд╛ рдХреЗ рд▓рд┐рдП, рд╕реНрд░реЛрдд рдбреЗрдЯрд╛ рдХреЛ рд╕рд╣реЗрдЬрдирд╛ рдЙрдЪрд┐рдд рд╣реИ, рдпрд╛ рдХрдо рд╕реЗ рдХрдо рд╕реНрд░реЛрдд рдбреЗрдЯрд╛ рдХреЗ рдЖрдВрдХрдбрд╝реЛрдВ рдХрд╛ рд╕рд╛рд░рд╛рдВрд╢ред

рдореВрд▓ рд▓реЗрдЦ рдореЗрдВ рдпреЗ рджреНрд╡рд╛рд░рд╛ рд╡рд░реНрдгрд┐рдд рдкрд░рд┐рджреГрд╢реНрдп рдХреЗ рдмрд╛рдж, рд╣рдо рдбреЗрдЯрд╛ рдХреЛ рдПрдХ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рд╕реЗрдЯ рдореЗрдВ рд╡рд┐рднрд╛рдЬрд┐рдд рдХрд░реЗрдВрдЧреЗ, рдЬрд┐рд╕рдореЗрдВ рд╕рднреА рдЙрджрд╛рд╣рд░рдгреЛрдВ рдореЗрдВ рд╕реЗ 75% рдФрд░ 25% рд╕реЗ рдорд┐рд▓рдХрд░ рдПрдХ рдкрд░реАрдХреНрд╖рдг рд╕реЗрдЯ рд╢рд╛рдорд┐рд▓ рд╣реИред рдЙрдкрдпреЛрдЧ рдХреА рдЧрдИ CSV рдлрд╝рд╛рдЗрд▓ рдХреЛ рдпрд╛рджреГрдЪреНрдЫрд┐рдХ рдХреНрд░рдо рдореЗрдВ рдХреНрд░рдордмрджреНрдз рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ, рдЗрд╕рд▓рд┐рдП рд╣рдо рдЗрд╕реЗ рдХреЗрд╡рд▓ рджреЛ рднрд╛рдЧреЛрдВ рдореЗрдВ рд╡рд┐рднрд╛рдЬрд┐рдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ: рд╣рдо рднрд╡рд┐рд╖реНрдп рдХреЗ рдкрд░рд┐рдгрд╛рдореЛрдВ рдХреЗ рд▓рд┐рдП рдореЙрдбрд▓ рдХрд╛ рд╕рд╛рдорд╛рдиреНрдпреАрдХрд░рдг рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдФрд░ рдПрдХ рдкрд░реАрдХреНрд╖рдг рдбреЗрдЯрд╛рд╕реЗрдЯ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдПрдХ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдбреЗрдЯрд╛рд╕реЗрдЯ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВрдЧреЗред рдЪреВрдВрдХрд┐ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЛ рдЖрд╕рд╛рдиреА рд╕реЗ рд╡рд╛рдкрд╕ рд▓реЗрдиреЗ рдХреА рд╕реНрдерд┐рддрд┐ рдореЗрдВ рд▓рд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдЗрд╕рд▓рд┐рдП рдпрд╣ рдХрджрдо рдмрд╣реБрдд рдорд╣рддреНрд╡рдкреВрд░реНрдг рд╣реИред

> concrete_train <- concrete_norm[1:773, ]
> concrete_test <- concrete_norm[774:1030, ]




рдЪрд░рдг 3. рдореЙрдбрд▓ рдХреЛ рдбреЗрдЯрд╛ рдкрд░ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рджреЗрдирд╛


рдХрдВрдХреНрд░реАрдЯ рдЙрддреНрдкрд╛рджрди рдореЗрдВ рдкреНрд░рдпреБрдХреНрдд рд╕рд╛рдордЧреНрд░реА рдФрд░ рддреИрдпрд╛рд░ рдЙрддреНрдкрд╛рдж рдХреА рддрд╛рдХрдд рдХреЗ рдмреАрдЪ рд╕рдВрдмрдВрдз рдХреЛ рдореЙрдбрд▓ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдПрдХ рдмрд╣реБрдкрд░рдд рдкреНрд░рддреНрдпрдХреНрд╖ рд╡рд┐рддрд░рдг рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рдирд┐рд░реНрдорд╛рдг рдХрд░реЗрдВрдЧреЗред рд╕реНрдЯреАрдлрди рдлреНрд░рд┐рдЯреНрдЪ рдФрд░ рдлреНрд░реЙрдХ рдЧреБрдПрдиреНрдерд░ рджреНрд╡рд╛рд░рд╛ рд╡рд┐рдХрд╕рд┐рдд рдиреНрдпреВрд░рд▓рдиреЗрдЯ рдкреИрдХреЗрдЬ, рдЗрд╕ рддрд░рд╣ рдХреЗ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рдПрдХ рдорд╛рдирдХ рдФрд░ рдЙрдкрдпреЛрдЧ рдореЗрдВ рдЖрд╕рд╛рди рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдкреНрд░рджрд╛рди рдХрд░рддрд╛ рд╣реИред рдЗрд╕ рдкреИрдХреЗрдЬ рдореЗрдВ рдиреЗрдЯрд╡рд░реНрдХ рдЯреЛрдкреЛрд▓реЙрдЬреА рдХреЗ рдирд┐рд░реНрдорд╛рдг рдХреЗ рд▓рд┐рдП рдПрдХ рдлрд╝рдВрдХреНрд╢рди рднреА рд╢рд╛рдорд┐рд▓ рд╣реИред рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдЕрддрд┐рд░рд┐рдХреНрдд рдЬрд╛рдирдХрд╛рд░реА рдкреНрд░рд╛рдкреНрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдиреНрдпреВрд░рд▓рдиреЗрдЯ рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдирд╛ рдПрдХ рдЕрдЪреНрдЫрд╛ рддрд░реАрдХрд╛ рд╣реИ, рд╣рд╛рд▓рд╛рдВрдХрд┐ рдЗрд╕рдХрд╛ рдорддрд▓рдм рдпрд╣ рдирд╣реАрдВ рд╣реИ рдХрд┐ рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рд╡рд╛рд╕реНрддрд╡рд┐рдХ рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рднреА рдирд╣реАрдВ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ - рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рдЬрд▓реНрдж рд╣реА рджреЗрдЦреЗрдВрдЧреЗ, рдпрд╣ рдПрдХ рд╢рдХреНрддрд┐рд╢рд╛рд▓реА рдЙрдкрдХрд░рдг рд╣реИред

R , , . nnet R, , , . , . тАФ RSNNS, , , .

рдЪреВрдВрдХрд┐ рдиреНрдпреВрд░рд▓рдиреЗрдЯ рдкреИрдХреЗрдЬ рдХреЛ рдЖрдзрд╛рд░ рдЖрд░ рдореЗрдВ рд╢рд╛рдорд┐рд▓ рдирд╣реАрдВ рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ, рдЗрд╕рд▓рд┐рдП рдЖрдкрдХреЛ рдЗрд╕реЗ install.packages ("neuralnet") рдЯрд╛рдЗрдк рдХрд░рдХреЗ рдЗрдВрд╕реНрдЯреЙрд▓ рдХрд░рдирд╛ рд╣реЛрдЧрд╛ рдФрд░ рд▓рд╛рдЗрдмреНрд░реЗрд░реА (рдиреНрдпреВрд░рд▓рдиреЗрдЯ) рдХрдорд╛рдВрдб рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдЗрд╕реЗ рдбрд╛рдЙрдирд▓реЛрдб рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред рдкреИрдХреЗрдЬ рдореЗрдВ рдиреНрдпреВрд░рд▓рдиреЗрдЯ () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдирд┐рдореНрди рд╕рд┐рдВрдЯреИрдХреНрд╕ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рднрд╡рд┐рд╖реНрдпрд╡рд╛рдгреА рдореЗрдВ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЛ рдкреНрд░рд╢рд┐рдХреНрд╖рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред

рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рд╕рд┐рдВрдЯреИрдХреНрд╕


рдиреНрдпреВрд░рд▓рдиреЗрдЯ рдкреИрдХреЗрдЬ рд╕реЗ рдиреНрдпреВрд░рд▓рдиреЗрдЯ () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛

рдПрдХ рдореЙрдбрд▓ рдХрд╛ рдирд┐рд░реНрдорд╛рдг рдХрд░рдирд╛:

m <- neuralnet(target ~ predictors, data = mydata,
                       hidden = 1, act.fct = "logistic")

тАв рд▓рдХреНрд╖реНрдп - рдПрдХ рдореЙрдбрд▓ рдЬреЛ mydata рдбреЗрдЯрд╛ рдлреНрд░реЗрдо рдкрд░ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХреЗ рдкрд░рд┐рдгрд╛рдорд╕реНрд╡рд░реВрдк рдмрдирд╛рдпрд╛ рдЬрд╛рдПрдЧрд╛;

тАв рднрд╡рд┐рд╖реНрдпрд╡рдХреНрддрд╛ - рдЖрд░-рд╕реВрддреНрд░ рдЬреЛ рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд┐рдП рдЬрд╛рдиреЗ рд╡рд╛рд▓реЗ рдорд╛рдпрдбреЗрдЯрд╛ рдбреЗрдЯрд╛ рдлреНрд░реЗрдо рд╕реЗ рд╡рд┐рд╢реЗрд╖рддрд╛рдУрдВ рдХреЛ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рддрд╛ рд╣реИ;

тАв рдбреЗрдЯрд╛ - рдбреЗрдЯрд╛ рдлреНрд░реЗрдо рдЬрд┐рд╕рдореЗрдВ рд▓рдХреНрд╖реНрдп рдФрд░ рднрд╡рд┐рд╖реНрдпрд╡рдХреНрддрд╛ рд╣реЛрддреЗ рд╣реИрдВ;

тАв рдЫрд┐рдкреА - рдЫрд┐рдкреА рдкрд░рдд рдореЗрдВ рдиреНрдпреВрд░реЙрдиреНрд╕ рдХреА рд╕рдВрдЦреНрдпрд╛ (рдбрд┐рдлрд╝реЙрд▓реНрдЯ 1 рд╣реИ)ред рдиреЛрдЯ: рдХрдИ рдЫрд┐рдкреА рд╣реБрдИ рдкрд░рддреЛрдВ рдХрд╛ рд╡рд░реНрдгрди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдкреВрд░реНрдгрд╛рдВрдХ рдХреЗ рдПрдХ рд╡реЗрдХреНрдЯрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд╕реА (2, 2);

тАв act.fct - рд╕рдХреНрд░рд┐рдпрдг рд╕рдорд╛рд░реЛрд╣: "рд▓реЙрдЬрд┐рд╕реНрдЯрд┐рдХ" рдпрд╛ "рддрди"ред рдиреЛрдЯ: рдХрд┐рд╕реА рднреА рдЕрдиреНрдп рднрд┐рдиреНрди рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред

рдлрд╝рдВрдХреНрд╢рди рдПрдХ рдиреНрдпреВрд░рд▓ рдиреЗрдЯрд╡рд░реНрдХ рдСрдмреНрдЬреЗрдХреНрдЯ рджреЗрддрд╛ рд╣реИ рдЬрд┐рд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред

рднрд╡рд┐рд╖реНрдпрд╡рд╛рдгреА:

рдкреА <- рдЧрдгрдирд╛ (рдПрдо, рдкрд░реАрдХреНрд╖рдг)

тАв рдиреНрдпреВрд░рд▓рдиреЗрдЯ () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдкреНрд░рд╢рд┐рдХреНрд╖рд┐рдд рдореЙрдбрд▓;

тАв рдкрд░реАрдХреНрд╖рдг - рдПрдХ рдбреЗрдЯрд╛ рдлрд╝реНрд░реЗрдо рдЬрд┐рд╕рдореЗрдВ рдЯреЗрд╕реНрдЯреА рдбреЗрдЯрд╛ рдЙрд╕реА рд╡рд┐рд╢реЗрд╖рддрд╛рдУрдВ рдХреЗ рд╕рд╛рде рд╣реЛрддрд╛ рд╣реИ рдЬреИрд╕реЗ рдХрд┐ рд╡рд░реНрдЧреАрдХрд░рдг рдбреЗрдЯрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХреНрд▓рд╛рд╕рд┐рдлрд╛рдпрд░рд┐рдпрд░ рдХреЗ рдирд┐рд░реНрдорд╛рдг рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред

рдлрд╝рдВрдХреНрд╢рди рджреЛ рдШрдЯрдХреЛрдВ рд╕реЗ рдорд┐рд▓рдХрд░ рдПрдХ рд╕реВрдЪреА рджреЗрддрд╛ рд╣реИ: $ рдиреНрдпреВрд░реЙрдиреНрд╕, рдЬрд╣рд╛рдВ рдкреНрд░рддреНрдпреЗрдХ рдиреЗрдЯрд╡рд░реНрдХ рдкрд░рдд рдХреЗ рд▓рд┐рдП рдиреНрдпреВрд░реЙрдиреНрд╕ рд╕рдВрдЧреНрд░рд╣реАрдд рд╣реЛрддреЗ рд╣реИрдВ, рдФрд░ $ net.result, рдЬрд╣рд╛рдВ рдЗрд╕ рдореЙрдбрд▓ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдЕрдиреБрдорд╛рдирд┐рдд рдореВрд▓реНрдпреЛрдВ рдХреЛ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред

рдЙрджрд╛рд╣рд░рдг:



concrete_model <- neuralnet(strength ~ cement + slag + ash,
      data = concrete, hidden = c(5, 5), act.fct = "tanh")
model_results <- compute(concrete_model, concrete_data)
strength_predictions <- model_results$net.result

рдЖрдЗрдП рдбрд┐рдлрд╝реЙрд▓реНрдЯ рдорд╛рдкрджрдВрдбреЛрдВ рдХреЗ рд╕рд╛рде рд╕рд░рд▓рддрдо рдмрд╣реБ-рд╕реНрддрд░реАрдп рдкреНрд░рддреНрдпрдХреНрд╖ рд╡рд┐рддрд░рдг рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рд╢реБрд░реВ рдХрд░реЗрдВ, рдЬрд┐рд╕рдореЗрдВ рдХреЗрд╡рд▓ рдПрдХ рдЫрд┐рдкрд╛ рд╣реБрдЖ рдиреЛрдб рд╣реЛ:

> concrete_model <- neuralnet(strength ~ cement + slag
         + ash + water + superplastic + coarseagg + fineagg + age,
         data = concrete_train)

рдЙрд╕рдХреЗ рдмрд╛рдж, рдЬреИрд╕рд╛ рдХрд┐ рдПрдлрдЖрдИрдЬреА рдореЗрдВ рджрд┐рдЦрд╛рдпрд╛ рдЧрдпрд╛ рд╣реИред 7.11, рдЖрдк рдкреНрд▓реЙрдЯ () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдиреЗрдЯрд╡рд░реНрдХ рдЯреЛрдкреЛрд▓реЙрдЬреА рдХреА рдХрд▓реНрдкрдирд╛ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдФрд░ рдЗрд╕реЗ рдкрд░рд┐рдгрд╛рдорд╕реНрд╡рд░реВрдк рдореЙрдбрд▓ рдСрдмреНрдЬреЗрдХреНрдЯ рдкрд╛рд╕ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:

> plot(concrete_model)

рдЫрд╡рд┐

рдЗрд╕ рд╕рд░рд▓ рдореЙрдбрд▓ рдореЗрдВ, рдЖрда рд╡рд┐рд╢реЗрд╖рддрд╛рдУрдВ рдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдХреЗ рд▓рд┐рдП рдПрдХ рдЗрдирдкреБрдЯ рдиреЛрдб рд╣реИ, рдлрд┐рд░ рдПрдХ рдЫрд┐рдкрд╛ рд╣реБрдЖ рдФрд░ рдПрдХ рдЖрдЙрдЯрдкреБрдЯ рдиреЛрдб рд╣реИ, рдЬреЛ рдХрдВрдХреНрд░реАрдЯ рдХреА рддрд╛рдХрдд рдХрд╛ рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рджреЗрддрд╛ рд╣реИред рдЖрд░реЗрдЦ рдкреНрд░рддреНрдпреЗрдХ рд▓рд┐рдВрдХ рдХреЗ рд▓рд┐рдП рд╡рдЬрд╝рди рднреА рджрд┐рдЦрд╛рддрд╛ рд╣реИ рдФрд░ рдирдВрдмрд░ 1 рдХреЗ рд╕рд╛рде рдЪрд┐рд╣реНрдирд┐рдд рдиреЛрдбреНрд╕ рдХреЗ рд▓рд┐рдП рд╕рдВрдХреЗрддрд┐рдд рдСрдлрд╝рд╕реЗрдЯ рдорд╛рдиред рдСрдлрд╝рд╕реЗрдЯ рдорд╛рди рдПрдХ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рд╕реНрдерд┐рд░рд╛рдВрдХ рд╣реИ рдЬреЛ рдЖрдкрдХреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдиреЛрдб рдореЗрдВ рдорд╛рди рдХреЛ рдКрдкрд░ рдпрд╛ рдиреАрдЪреЗ рд╕реНрдерд╛рдирд╛рдВрддрд░рд┐рдд рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ, рд▓рдЧрднрдЧ рдПрдХ рд░реЗрдЦреАрдп рд╕рдореАрдХрд░рдг рдореЗрдВ рдПрдХ рдмрджрд▓рд╛рд╡ рдХреА рддрд░рд╣ред

рдПрдХ рдЫрд┐рдкреЗ рд╣реБрдП рдиреЛрдб рдХреЗ рд╕рд╛рде рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЛ рдЕрдзреНрдпрд╛рдп 6 рдореЗрдВ рдЪрд░реНрдЪрд╛ рдХреА рдЧрдИ рд░реЗрдЦреАрдп рдкреНрд░рддрд┐рдЧрдорди рдореЙрдбрд▓ рдХреЗ "рдЪрдЪреЗрд░реЗ рднрд╛рдИ" рдорд╛рдирд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ рдЗрдирдкреБрдЯ рдиреЛрдбреНрд╕ рдФрд░ рдЫрд┐рдкреЗ рд╣реБрдП рдиреЛрдб рдХреЗ рдмреАрдЪ рд╡рдЬрди рдмреАрдЯрд╛ рдЧреБрдгрд╛рдВрдХ рдХреЗ рд╕рдорд╛рди рд╣реИ, рдФрд░ рдСрдлрд╕реЗрдЯ рд╡рдЬрди рдПрдХ рдмрджрд▓рд╛рд╡ рдХреА рддрд░рд╣ рд╣реИред

рдЖрдХреГрддрд┐ рдХреЗ рдирд┐рдЪрд▓реЗ рднрд╛рдЧ рдореЗрдВ, рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдЪрд░рдгреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдФрд░ рддреНрд░реБрдЯрд┐ рдХреА рднрдпрд╛рд╡рд╣рддрд╛ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХреА рдЬрд╛рддреА рд╣реИ - рдХреБрд▓ рдорд╛рдзреНрдп рд╡рд░реНрдЧ рддреНрд░реБрдЯрд┐ (рд╕реНрдХреНрд╡реЗрдпрд░реНрдб рдПрд░рд░реНрд╕, рдПрд╕рдПрд╕рдИ рдХрд╛ рдпреЛрдЧ), рдЬреЛ рдХрд┐ рдЕрдкреЗрдХреНрд╖рд┐рдд рд╣реИ, рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рдирд┐рдд рдФрд░ рд╡рд╛рд╕реНрддрд╡рд┐рдХ рдореВрд▓реНрдпреЛрдВ рдХреЗ рдмреАрдЪ рдЪреБрдХрддрд╛ рдЕрдВрддрд░ рдХрд╛ рдпреЛрдЧ рд╣реИред рдПрд╕рдПрд╕рдИ рдЬрд┐рддрдирд╛ рдЫреЛрдЯрд╛ рд╣реЛрддрд╛ рд╣реИ, рдЙрддрдирд╛ рд╣реА рд╕рдЯреАрдХ рд░реВрдк рд╕реЗ рдореЙрдбрд▓ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдбреЗрдЯрд╛ рд╕реЗ рдореЗрд▓ рдЦрд╛рддрд╛ рд╣реИ, рдЬреЛ рдЗрди рдЖрдВрдХрдбрд╝реЛрдВ рдХреА рдкреНрд░рднрд╛рд╡рд╢реАрд▓рддрд╛ рдХреЛ рдЗрдВрдЧрд┐рдд рдХрд░рддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдЗрд╕ рдмрд╛рд░реЗ рдореЗрдВ рдмрд╣реБрдд рдХрдо рдХрд╣рддрд╛ рд╣реИ рдХрд┐ рдореЙрдбрд▓ рдЕрдЬреНрдЮрд╛рдд рдбреЗрдЯрд╛ рдХреЗ рд╕рд╛рде рдХреИрд╕реЗ рдХрд╛рдо рдХрд░реЗрдЧрд╛ред

рдЪрд░рдг 4. рдореЙрдбрд▓ рдХреА рдкреНрд░рднрд╛рд╡рд╢реАрд▓рддрд╛ рдХрд╛ рдЖрдХрд▓рди рдХрд░рдирд╛


рдиреЗрдЯрд╡рд░реНрдХ рдЯреЛрдкреЛрд▓реЙрдЬреА рдЖрд░реЗрдЦ рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ "рдмреНрд▓реИрдХ рдмреЙрдХреНрд╕" рдХреЛ рджреЗрдЦрдиреЗ рдХрд╛ рдЕрд╡рд╕рд░ рдкреНрд░рджрд╛рди рдХрд░рддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдпрд╣ рдЗрд╕ рдмрд╛рдд рдХреА рдЕрдзрд┐рдХ рдЬрд╛рдирдХрд╛рд░реА рдирд╣реАрдВ рджреЗрддрд╛ рд╣реИ рдХрд┐ рдореЙрдбрд▓ рднрд╡рд┐рд╖реНрдп рдХреЗ рдбреЗрдЯрд╛ рд╕реЗ рдХрд┐рддрдиреА рдЕрдЪреНрдЫреА рддрд░рд╣ рдореЗрд▓ рдЦрд╛рддрд╛ рд╣реИред рдПрдХ рдкрд░реАрдХреНрд╖рдг рдбреЗрдЯрд╛ рд╕реЗрдЯ рдкрд░ рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рдЙрддреНрдкрдиреНрди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдЖрдк рдЧрдгрдирд╛ ()

> model_results <- compute(concrete_model, concrete_test[1:8])

рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ: рдЧрдгрдирд╛ () рдлрд╝рдВрдХреНрд╢рди рдЙрд╕ рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди () рдлрд╝рдВрдХреНрд╢рди рдХреА рддреБрд▓рдирд╛ рдореЗрдВ рдереЛрдбрд╝рд╛ рдЕрд▓рдЧ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ рдЬреЛ рд╣рдордиреЗ рдЕрдм рддрдХ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рд╣реИред рдпрд╣ рджреЛ рдШрдЯрдХреЛрдВ рд╕реЗ рдорд┐рд▓рдХрд░ рдПрдХ рд╕реВрдЪреА рджреЗрддрд╛ рд╣реИ: $ рдиреНрдпреВрд░реЙрдиреНрд╕, рдЬрд╣рд╛рдВ рдкреНрд░рддреНрдпреЗрдХ рдиреЗрдЯрд╡рд░реНрдХ рдкрд░рдд рдХреЗ рд▓рд┐рдП рдиреНрдпреВрд░реЙрдиреНрд╕ рд╕рдВрдЧреНрд░рд╣реАрдд рд╣реЛрддреЗ рд╣реИрдВ, рдФрд░ $ net.result, рдЬрд╣рд╛рдВ рдЕрдиреБрдорд╛рдирд┐рдд рдорд╛рди рд╕рдВрдЧреНрд░рд╣реАрдд рд╣реЛрддреЗ рд╣реИрдВред рдпрд╣ $ net.result рд╣реИ рдЬрд┐рд╕рдХреА рд╣рдореЗрдВ рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ:

> predicted_strength <- model_results$net.result

рдЪреВрдВрдХрд┐ рд╣рдорд╛рд░реЗ рдкрд╛рд╕ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рдХрд╛ рдХрд╛рд░реНрдп рд╣реИ, рдФрд░ рд╡рд░реНрдЧреАрдХрд░рдг рдирд╣реАрдВ, рдЗрд╕рд▓рд┐рдП рд╣рдо рдореЙрдбрд▓ рдХреА рд╕рдЯреАрдХрддрд╛ рдХреЛ рд╕рддреНрдпрд╛рдкрд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╡рд┐рд╕рдВрдЧрддрд┐рдпреЛрдВ рдХреЗ рдореИрдЯреНрд░рд┐рдХреНрд╕ рдХрд╛ рдЙрдкрдпреЛрдЧ рдирд╣реАрдВ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рд╣рдо рдЕрдиреБрдорд╛рдирд┐рдд рдФрд░ рдареЛрд╕ рддрд╛рдХрдд рдХреЗ рд╕рд╣реА рдореВрд▓реНрдп рдХреЗ рдмреАрдЪ рд╕рдВрдмрдВрдз рдХреЛ рдорд╛рдкрддреЗ рд╣реИрдВред рдпрджрд┐ рдЕрдиреБрдорд╛рдирд┐рдд рдФрд░ рд╡рд╛рд╕реНрддрд╡рд┐рдХ рдореВрд▓реНрдп рджреГрдврд╝рддрд╛ рд╕реЗ рд╕рд╣рд╕рдВрдмрдВрдзрд┐рдд рд╣реЛрдВрдЧреЗ, рддреЛ, рд╕рдВрднрд╡рддрдГ, рдХрдВрдХреНрд░реАрдЯ рдХреА рддрд╛рдХрдд рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдореЙрдбрд▓ рдЙрдкрдпреЛрдЧреА рд╣реЛрдЧрд╛ред

рдЖрдкрдХреЛ рдпрд╛рдж рджрд┐рд▓рд╛рддрд╛ рд╣реВрдВ рдХрд┐ рджреЛ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рд╡реИрдХреНрдЯрд░ рдХреЗ рдмреАрдЪ рд╕рд╣рд╕рдВрдмрдВрдз рдкреНрд░рд╛рдкреНрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, cor () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ:

> cor(predicted_strength, concrete_test$strength)
                    [,1]
[1,] 0.8064655576

рдпрджрд┐ рдЖрдкрдХрд╛ рдкрд░рд┐рдгрд╛рдо рд╣рдорд╛рд░реЗ рд╕реЗ рдЕрд▓рдЧ рд╣реИ, рддреЛ рдЪрд┐рдВрддрд┐рдд рди рд╣реЛрдВред рдЪреВрдВрдХрд┐ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдпрд╛рджреГрдЪреНрдЫрд┐рдХ рднрд╛рд░ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдирд╛ рд╢реБрд░реВ рдХрд░ рджреЗрддрд╛ рд╣реИ, рдЗрд╕рд▓рд┐рдП рдкреБрд╕реНрддрдХ рдореЗрдВ рдкреНрд░рд╕реНрддреБрдд рднрд╡рд┐рд╖реНрдпрд╡рд╛рдгрд┐рдпрд╛рдВ рд╡рд┐рднрд┐рдиреНрди рдореЙрдбрд▓реЛрдВ рдХреЗ рд▓рд┐рдП рднрд┐рдиреНрди рд╣реЛ рд╕рдХрддреА рд╣реИрдВред рдпрджрд┐ рдЖрдк рдкрд░рд┐рдгрд╛рдореЛрдВ рдХрд╛ рд╕рдЯреАрдХ рдорд┐рд▓рд╛рди рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рддреЛ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рдирд┐рд░реНрдорд╛рдг рд╢реБрд░реВ рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ set.seed (12345) рдХрдорд╛рдВрдб рдХрд╛ рдкреНрд░рдпрд╛рд╕ рдХрд░реЗрдВред

рдпрджрд┐ рд╕рд╣рд╕рдВрдмрдВрдз 1 рдХреЗ рдХрд░реАрдм рд╣реИ, рддреЛ рдпрд╣ рджреЛ рдЪрд░ рдХреЗ рдмреАрдЪ рдПрдХ рдордЬрдмреВрдд рд░реИрдЦрд┐рдХ рд╕рдВрдмрдВрдз рдХреЛ рдЗрдВрдЧрд┐рдд рдХрд░рддрд╛ рд╣реИред рдЗрд╕рд▓рд┐рдП, рд▓рдЧрднрдЧ 0.806 рдХрд╛ рд╕рд╣рд╕рдВрдмрдВрдз рдПрдХ рдордЬрдмреВрдд рд╕рдВрдмрдВрдз рдХрд╛ рд╕рдВрдХреЗрдд рджреЗрддрд╛ рд╣реИред рдЗрд╕рдХрд╛ рдорддрд▓рдм рдпрд╣ рд╣реИ рдХрд┐ рдореЙрдбрд▓ рдПрдХрд▓ рдЫрд┐рдкреЗ рд╣реБрдП рдиреЛрдб рдХреЗ рд╕рд╛рде рднреА рдХрд╛рдлреА рдЕрдЪреНрдЫреА рддрд░рд╣ рд╕реЗ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИред рдпрд╣ рджреЗрдЦрддреЗ рд╣реБрдП рдХрд┐ рд╣рдордиреЗ рдХреЗрд╡рд▓ рдПрдХ рдЫрд┐рдкреЗ рд╣реБрдП рдиреЛрдб рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рд╣реИ, рдпрд╣ рд╕рдВрднрд╛рд╡рдирд╛ рд╣реИ рдХрд┐ рд╣рдо рдореЙрдбрд▓ рдХреА рджрдХреНрд╖рддрд╛ рдореЗрдВ рд╕реБрдзрд╛рд░ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдЬрд┐рд╕реЗ рд╣рдо рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реЗрдВрдЧреЗред

рдЪрд░рдг 5. рдореЙрдбрд▓ рджрдХреНрд╖рддрд╛ рдореЗрдВ рд╕реБрдзрд╛рд░


рдЪреВрдВрдХрд┐ рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рдЯреЛрдкреЛрд▓реЙрдЬреА рд╡рд╛рд▓реЗ рдиреЗрдЯрд╡рд░реНрдХ рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рдЕрд╡рдзрд╛рд░рдгрд╛рдУрдВ рдХрд╛ рдЕрдзреНрдпрдпрди рдХрд░рдиреЗ рдореЗрдВ рд╕рдХреНрд╖рдо рд╣реИрдВ, рдЖрдЗрдП рджреЗрдЦреЗрдВ рдХрд┐ рдХреНрдпрд╛ рд╣реЛрддрд╛ рд╣реИ рдпрджрд┐ рдЖрдк рдЫрд┐рдкреЗ рд╣реБрдП рдиреЛрдбреНрд╕ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреЛ рдкрд╛рдВрдЪ рддрдХ рдмрдврд╝рд╛рддреЗ рд╣реИрдВред рд╣рдо рдкрд╣рд▓реЗ рдХреА рддрд░рд╣ рдиреНрдпреВрд░рд▓рдиреЗрдЯ () рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВрдЧреЗ, рд▓реЗрдХрд┐рди рд╣рд┐рдбрди = 5 рдкреИрд░рд╛рдореАрдЯрд░ рдЬреЛрдбрд╝реЗрдВ:

> concrete_model2 <- neuralnet(strength ~ cement + slag +
                                               ash + water + superplastic +
                                               coarseagg + fineagg + age,
                                               data = concrete_train, hidden = 5)

рдлрд┐рд░ рд╕реЗ рдиреЗрдЯрд╡рд░реНрдХ рдЖрд░реЗрдЦ (рдЫрд╡рд┐ 7.12) рдХрд╛ рдирд┐рд░реНрдорд╛рдг рдХрд░рдиреЗ рдХреЗ рдмрд╛рдж, рд╣рдо рдХрдиреЗрдХреНрд╢рди рдХреА рд╕рдВрдЦреНрдпрд╛ рдореЗрдВ рддреЗрдЬ рд╡реГрджреНрдзрд┐ рджреЗрдЦреЗрдВрдЧреЗред рдпрд╣ рдХреИрд╕реЗ рдкреНрд░рднрд╛рд╡рд┐рдд рджрдХреНрд╖рддрд╛ рд╣реИ?

> plot(concrete_model2)

рдХреГрдкрдпрд╛ рдзреНрдпрд╛рди рджреЗрдВ рдХрд┐ рдкрд░рд┐рдгрд╛рдореА рддреНрд░реБрдЯрд┐ (рдлрд┐рд░ рд╕реЗ SSE рдХреЗ рд░реВрдк рдореЗрдВ рдорд╛рдкреА рдЧрдИ) рдкрд┐рдЫрд▓реЗ рдореЙрдбрд▓ рдореЗрдВ 5.08 рд╕реЗ рдШрдЯрдХрд░ 1.63 рд╣реЛ рдЧрдИ рд╣реИред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдЪрд░рдгреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ 4882 рд╕реЗ рдмрдврд╝рдХрд░ 86,849 рд╣реЛ рдЧрдИ - рдЬреЛ рдЖрд╢реНрдЪрд░реНрдпрдЬрдирдХ рдирд╣реАрдВ рд╣реИ, рдпрд╣ рджреЗрдЦрддреЗ рд╣реБрдП рдХрд┐ рдореЙрдбрд▓ рдХрд┐рддрдирд╛ рдЬрдЯрд┐рд▓ рд╣реИред рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рдиреЗрдЯрд╡рд░реНрдХ, рдЗрд╖реНрдЯрддрдо рднрд╛рд░ рдХреЛ рдЦреЛрдЬрдиреЗ рдХреЗ рд▓рд┐рдП рдЕрдзрд┐рдХ рдкреБрдирд░рд╛рд╡реГрддреНрддрд┐рдпреЛрдВ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛрддреА рд╣реИред

рд╕рдЪреНрдЪреЗ рд▓реЛрдЧреЛрдВ рдХреЗ рд╕рд╛рде рдЕрдиреБрдорд╛рдирд┐рдд рдореВрд▓реНрдпреЛрдВ рдХреА рддреБрд▓рдирд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╕рдорд╛рди рдЪрд░рдгреЛрдВ рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рд╕реЗ, рд╣рдореЗрдВ рд▓рдЧрднрдЧ 0.92 рдХрд╛ рд╕рд╣рд╕рдВрдмрдВрдз рдорд┐рд▓рддрд╛ рд╣реИ, рдЬреЛ рдХрд┐ рдПрдХ рдЫрд┐рдкреЗ рд╣реБрдП рдиреЛрдб рд╡рд╛рд▓реЗ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рд▓рд┐рдП 0.80 рдХреЗ рдкрд┐рдЫрд▓реЗ рдкрд░рд┐рдгрд╛рдо рдХреА рддреБрд▓рдирд╛ рдореЗрдВ рдмрд╣реБрдд рдмреЗрд╣рддрд░ рд╣реИ:

> model_results2 <- compute(concrete_model2, concrete_test[1:8])
> predicted_strength2 <- model_results2$net.result
> cor(predicted_strength2, concrete_test$strength)
                  [,1]
[1,] 0.9244533426

рдЫрд╡рд┐

рдорд╣рддреНрд╡рдкреВрд░реНрдг рд╕реБрдзрд╛рд░реЛрдВ рдХреЗ рдмрд╛рд╡рдЬреВрдж, рдЖрдк рдореЙрдбрд▓ рдХреА рдкреНрд░рднрд╛рд╡рд╢реАрд▓рддрд╛ рдХреЛ рдмрдврд╝рд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдФрд░ рднреА рдЖрдЧреЗ рдмрдврд╝ рд╕рдХрддреЗ рд╣реИрдВред рд╡рд┐рд╢реЗрд╖ рд░реВрдк рд╕реЗ, рдЕрддрд┐рд░рд┐рдХреНрдд рдЫрд┐рдкреА рдкрд░рддреЛрдВ рдХреЛ рдкреЗрд╢ рдХрд░рдирд╛ рдФрд░ рдиреЗрдЯрд╡рд░реНрдХ рд╕рдХреНрд░рд┐рдпрдг рдлрд╝рдВрдХреНрд╢рди рдХреЛ рдмрджрд▓рдирд╛ рд╕рдВрднрд╡ рд╣реИред рдЗрди рдкрд░рд┐рд╡рд░реНрддрдиреЛрдВ рдХреЛ рдХрд░рдХреЗ, рд╣рдо рдПрдХ рд╕рд░рд▓ рдЧрд╣рд░реЗ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рдирд┐рд░реНрдорд╛рдг рдХреА рдиреАрдВрд╡ рд░рдЦ рд░рд╣реЗ рд╣реИрдВред

рдЧрд╣рд░реА рд╕реАрдЦрдиреЗ рдХреЗ рд▓рд┐рдП рд╕рдХреНрд░рд┐рдпрдг рдХрд╛рд░реНрдп рдХрд╛ рд╡рд┐рдХрд▓реНрдк рдмрд╣реБрдд рдорд╣рддреНрд╡рдкреВрд░реНрдг рд╣реИред рдХрд┐рд╕реА рд╡рд┐рд╢реЗрд╖ рд╢рд┐рдХреНрд╖рдг рдХрд╛рд░реНрдп рдХреЗ рд▓рд┐рдП рд╕рдмрд╕реЗ рдЕрдЪреНрдЫрд╛ рдХрд╛рд░реНрдп рдЖрдорддреМрд░ рдкрд░ рдкреНрд░рдпреЛрдЧрд╛рддреНрдордХ рд░реВрдк рд╕реЗ рдкрд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдФрд░ рдлрд┐рд░ рдорд╢реАрди рд╕реАрдЦрдиреЗ рд╡рд╛рд▓реЗ рд╢реЛрдзрдХрд░реНрддрд╛рдУрдВ рдХреЗ рд╕рдореБрджрд╛рдп рджреНрд╡рд╛рд░рд╛ рд╡реНрдпрд╛рдкрдХ рд░реВрдк рд╕реЗ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред

рд╣рд╛рд▓ рд╣реА рдореЗрдВ, рдЖрд╕рд╡рди рдлрд╝рдВрдХреНрд╢рди, рдпрд╛ рд░реЗрдХреНрдЯрд┐рдлрд╛рдпрд░ рдирд╛рдордХ рд╕рдХреНрд░рд┐рдпрдг рдлрд╝рдВрдХреНрд╢рди, рдЫрд╡рд┐ рдкрд╣рдЪрд╛рди рдЬреИрд╕реЗ рдЬрдЯрд┐рд▓ рдХрд╛рд░реНрдпреЛрдВ рдореЗрдВ рдЕрдкрдиреЗ рд╕рдлрд▓ рдЕрдиреБрдкреНрд░рдпреЛрдЧ рдХреЗ рдХрд╛рд░рдг рдмрд╣реБрдд рд▓реЛрдХрдкреНрд░рд┐рдп рд╣реЛ рдЧрдпрд╛ рд╣реИред рдПрдХ рдиреНрдпреВрд░рд▓ рдиреЗрдЯрд╡рд░реНрдХ рдиреЛрдб рдЬрд┐рд╕рдореЗрдВ рдПрдХ рд░реЗрдХреНрдЯрд┐рдлрд╛рдпрд░ рдПрдХ рд╕рдХреНрд░рд┐рдпрдг рдлрд╝рдВрдХреНрд╢рди рдХреЗ рд░реВрдк рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдПрдХ рд░реЗрдХреНрдЯреАрдлрд╛рдЗрдб рд▓реАрдирд┐рдпрд░ рдпреВрдирд┐рдЯ (ReLU) рдХрд╣рд▓рд╛рддрд╛ рд╣реИред рдЬреИрд╕рд╛ рдХрд┐ рдЕрдВрдЬреАрд░ рдореЗрдВ рджрд┐рдЦрд╛рдпрд╛ рдЧрдпрд╛ рд╣реИред 7.13, рд░реЗрдХреНрдЯрд┐рдлрд╛рдпрд░ рдЯрд╛рдЗрдк рдПрдХреНрдЯрд┐рд╡реЗрд╢рди рдлрдВрдХреНрд╢рди рдХреЛ рдЗрд╕ рддрд░рд╣ рд╕реЗ рд╡рд░реНрдгрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдХрд┐ рдпрджрд┐ x 0 рд╕реЗ рдЕрдзрд┐рдХ рдпрд╛ 0, рдФрд░ 0 рдХреЗ рдмрд░рд╛рдмрд░ рд╣реИ рддреЛ x рд▓реМрдЯрд╛рддрд╛ рд╣реИред рдЗрд╕ рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдорд╣рддреНрд╡ рдпрд╣ рд╣реИ рдХрд┐, рдПрдХ рдУрд░, рдпрд╣ рдЕрд░реЗрдЦреАрдп рд╣реИ, рдФрд░ рджреВрд╕рд░реА рддрд░рдл, рдЗрд╕рдореЗрдВ рд╕рд░рд▓ рдЧрдгрд┐рддреАрдп рдЧреБрдг рд╣реИрдВ рдЬреЛ рдЗрд╕реЗ рдврд╛рд▓ рд╡рдВрд╢ рдХреЗ рд▓рд┐рдП рдХрдореНрдкреНрдпреВрдЯреЗрд╢рдирд▓ рд░реВрдк рд╕реЗ рд╕рд╕реНрддреА рдФрд░ рдЕрддреНрдпрдзрд┐рдХ рдХреБрд╢рд▓ рдмрдирд╛рддреЗ рд╣реИрдВред рджреБрд░реНрднрд╛рдЧреНрдп рд╕реЗ, x = 0 рдХреЗ рд▓рд┐рдП, рд╢реБрджреНрдз рд╡реНрдпреБрддреНрдкрдиреНрди рдкрд░рд┐рднрд╛рд╖рд┐рдд рдирд╣реАрдВ рд╣реИ,рдЗрд╕рд▓рд┐рдП, рд░реЗрдХреНрдЯрд┐рдлрд╛рдпрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдиреНрдпреВрд░рд▓рдиреЗрдЯ () рдлрд╝рдВрдХреНрд╢рди рдХреЗ рд╕рд╛рде рд╕рдВрдпреЛрдЬрди рдореЗрдВ рдирд╣реАрдВ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред

рдЗрд╕рдХреЗ рдмрдЬрд╛рдп, рдЖрдк ReLU рдХреЗ рд╕реНрдореВрдердкреЗрдб рд╕рдиреНрдирд┐рдХрдЯрди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдЬрд┐рд╕реЗ рд╕реЙрдлреНрдЯрдкреНрд▓рд╕ рдпрд╛ рд╕реНрдореВрдерд░реЗрд▓реЗрдпреВ рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ, рд▓реЙрдЧ рдХреЗ рд░реВрдк рдореЗрдВ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдПрдХ рд╕рдХреНрд░рд┐рдпрдг рдлрд╝рдВрдХреНрд╢рди (1 + рдкреВрд░реНрд╡)ред рдЬреИрд╕рд╛ рдХрд┐ рдЕрдВрдЬреАрд░ рдореЗрдВ рджрд┐рдЦрд╛рдпрд╛ рдЧрдпрд╛ рд╣реИред 7.13, рд╕реЙрдлреНрдЯрдкреНрд▓рд╕ рдлрд╝рдВрдХреНрд╢рди 0 рд╕реЗ рдХрдо x рдорд╛рди рдХреЗ рд▓рд┐рдП рд╢реВрдиреНрдп рдХреЗ рдХрд░реАрдм рд╣реИ рдФрд░ x рдХреЗ рд▓рд┐рдП x рдХреЗ рдмрд░рд╛рдмрд░ рд▓рдЧрднрдЧ 0 рд╕реЗ рдЕрдзрд┐рдХ рд╣реИред

рдЫрд╡рд┐

R рдореЗрдВ рд╕реЙрдлреНрдЯрдкреНрд▓рд╕ () рдлрд╝рдВрдХреНрд╢рди рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЛрдб рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ:

> softplus <- function(x) { log(1 + exp(x)) }

рдЗрд╕ рддрд░рд╣ рдХреЗ рдПрдХ рд╕рдХреНрд░рд┐рдпрдг рдлрд╝рдВрдХреНрд╢рди рдХреЛ рдЗрдирдкреБрдЯ рдиреНрдпреВрд░рд▓рдиреЗрдЯ () рдПрдХреНрдЯ.рдлреИрдХреНрдЯ рдкреИрд░рд╛рдореАрдЯрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдкреНрд░рджрд╛рди рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рд╣рдо рдПрдХ рджреВрд╕рд░реА рдЫрд┐рдкреА рд╣реБрдИ рдкрд░рдд рдХреЛ рдЬреЛрдбрд╝рддреЗ рд╣реИрдВ рдЬрд┐рд╕рдореЗрдВ рдкрд╛рдВрдЪ рдиреЛрдбреНрд╕ рд╣реЛрддреЗ рд╣реИрдВ, рдЬреЛ рдЫрд┐рдкреЗ рд╣реБрдП рдкреИрд░рд╛рдореАрдЯрд░ рдХреЛ рдкреВрд░реНрдгрд╛рдВрдХ рд╡реЗрдХреНрдЯрд░ рд╕реА (5, 5) рдХреЗ рдорд╛рди рд╕реЗ рдЬреЛрдбрд╝рддреЗ рд╣реИрдВред рдирддреАрдЬрддрди, рд╣рдореЗрдВ рдПрдХ рджреЛ-рдкрд░рдд рдиреЗрдЯрд╡рд░реНрдХ рдорд┐рд▓рддрд╛ рд╣реИ, рдЬрд┐рдирдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдкрд░рдд рдореЗрдВ рдкрд╛рдВрдЪ рдиреЛрдб рд╣реЛрддреЗ рд╣реИрдВ, рдФрд░ рдЙрдирдореЗрдВ рд╕реЗ рд╕рднреА рд╕реЙрдлреНрдЯрдСрдХреНрд╕рд┐рдЯрд┐рд╡ рд╕рдХреНрд░рд┐рдпрдг рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ:

> set.seed(12345)
> concrete_model3 <- neuralnet(strength ~ cement + slag +
                                               ash + water + superplastic +
                                               coarseagg + fineagg + age,
                                               data = concrete_train,
                                               hidden = c(5, 5),
                                               act.fct = softplus)

рдкрд╣рд▓реЗ рдХреА рддрд░рд╣, рдиреЗрдЯрд╡рд░реНрдХ рдХреА рдХрд▓реНрдкрдирд╛ рдХреА рдЬрд╛ рд╕рдХрддреА рд╣реИ (рдЪрд┐рддреНрд░ред 7.14):

> plot(concrete_model3)

рдЫрд╡рд┐

рдХрдВрдХреНрд░реАрдЯ рдХреА рдЕрдиреБрдорд╛рдирд┐рдд рдФрд░ рд╡рд╛рд╕реНрддрд╡рд┐рдХ рддрд╛рдХрдд рдХреЗ рдмреАрдЪ рд╕рд╣рд╕рдВрдмрдВрдз рдХреА рдЧрдгрдирд╛ рдирд┐рдореНрдирд╛рдиреБрд╕рд╛рд░ рдХреА рдЬрд╛ рд╕рдХрддреА рд╣реИ:

> model_results3 <- compute(concrete_model3, concrete_test[1:8])
> predicted_strength3 <- model_results3$net.result
> cor(predicted_strength3, concrete_test$strength)
                  [,1]
[1,] 0.9348395359

рдЕрдиреБрдорд╛рдирд┐рдд рдФрд░ рд╡рд╛рд╕реНрддрд╡рд┐рдХ рддрд╛рдХрдд рдХреЗ рдмреАрдЪ рд╕рд╣рд╕рдВрдмрдВрдз 0.935 рдерд╛, рдЬреЛ рдЕрдм рддрдХ рдХрд╛ рд╕рдмрд╕реЗ рдЕрдЪреНрдЫрд╛ рд╕рдВрдХреЗрддрдХ рд╣реИред рджрд┐рд▓рдЪрд╕реНрдк рд╣реИ, рдореВрд▓ рдкреНрд░рдХрд╛рд╢рди рдореЗрдВ, рдпреВ рдиреЗ 0.885 рдХреЗ рд╕рд╣рд╕рдВрдмрдВрдз рдХреА рд╕реВрдЪрдирд╛ рджреАред рдЗрд╕рдХрд╛ рдорддрд▓рдм рд╣реИ рдХрд┐, рдЕрдкреЗрдХреНрд╖рд╛рдХреГрдд рдХрдо рдкреНрд░рдпрд╛рд╕ рдХреЗ рд╕рд╛рде, рд╣рдо рдПрдХ рддреБрд▓рдиреАрдп рдкрд░рд┐рдгрд╛рдо рдкреНрд░рд╛рдкреНрдд рдХрд░рдиреЗ рдореЗрдВ рд╕рдХреНрд╖рдо рдереЗ рдФрд░ рдпрд╣рд╛рдВ рддрдХ тАЛтАЛрдХрд┐ рдЗрд╕ рдХреНрд╖реЗрддреНрд░ рдХреЗ рдПрдХ рд╡рд┐рд╢реЗрд╖рдЬреНрдЮ рдХреЗ рдкрд░рд┐рдгрд╛рдореЛрдВ рдХреЛ рдкрд╛рд░ рдХрд░ рдЧрдПред рдпрд╣ рд╕рдЪ рд╣реИ, рдпреЗ рдХреЗ рдкрд░рд┐рдгрд╛рдо 1998 рдореЗрдВ рдкреНрд░рдХрд╛рд╢рд┐рдд рд╣реБрдП рдереЗ, рдЬрд┐рд╕рдиреЗ рд╣рдореЗрдВ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рдХреНрд╖реЗрддреНрд░ рдореЗрдВ 20 рд╕реЗ рдЕрдзрд┐рдХ рд╡рд░реНрд╖реЛрдВ рдХреЗ рдЕрддрд┐рд░рд┐рдХреНрдд рд╢реЛрдз рдкрд░ рдПрдХ рд╢реБрд░реБрдЖрдд рджреА рдереА!

рдПрдХ рдФрд░ рдорд╣рддреНрд╡рдкреВрд░реНрдг рд╡рд┐рд╡рд░рдг рдХреЛ рдзреНрдпрд╛рди рдореЗрдВ рд░рдЦрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдП: рдЪреВрдВрдХрд┐ рд╣рдордиреЗ рдореЙрдбрд▓ рдХреЛ рдкреНрд░рд╢рд┐рдХреНрд╖рд┐рдд рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ рдбреЗрдЯрд╛ рдХреЛ рд╕рд╛рдорд╛рдиреНрдп рдХрд┐рдпрд╛ рдерд╛, рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рднреА 0 рд╕реЗ 1 рддрдХ рд╕рд╛рдорд╛рдиреНрдпреАрдХреГрдд рдЕрдВрддрд░рд╛рд▓ рдореЗрдВ рд╣реИрдВред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдирд┐рдореНрди рдХреЛрдб рдПрдХ рдбреЗрдЯрд╛ рдлреНрд░реЗрдо рджрд┐рдЦрд╛рддрд╛ рд╣реИ рдЬреЛ рд▓рд╛рдЗрди-рдмрд╛рдп-рд▓рд╛рдЗрди рдХреА рддреБрд▓рдирд╛ рдХрд░рддрд╛ рд╣реИ, рдЬреЛ рд╢реБрд░реБрдЖрддреА рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рдиреЛрдВ рдХреЗ рд╕рд╛рде рд╕реЗрдЯ рдХрд┐рдП рдЧрдП рдкреНрд░рд╛рд░рдВрднрд┐рдХ рдбреЗрдЯрд╛ рд╕реЗ рдХрдВрдХреНрд░реАрдЯ рдХреА рддрд╛рдХрдд рдХреЗ рдореВрд▓реНрдпреЛрдВ рдХреА рддреБрд▓рдирд╛ рдХрд░рддрд╛ рд╣реИ:

> strengths <- data.frame(
      actual = concrete$strength[774:1030],
      pred = predicted_strength3
   )
> head(strengths, n = 3)
      actual        pred
774 30.14 0.2860639091
775 44.40 0.4777304648
776 24.50 0.2840964250


рд╕рд╣рд╕рдВрдмрдВрдз рдХреА рдЬрд╛рдВрдЪ рдХрд░рддреЗ рд╣реБрдП, рд╣рдо рджреЗрдЦрддреЗ рд╣реИрдВ рдХрд┐ рд╕рд╛рдорд╛рдиреНрдпреАрдХреГрдд рдпрд╛ рдЕрд╕рд╛рдорд╛рдиреНрдп рдбреЗрдЯрд╛ рдХреА рдкрд╕рдВрдж рдкрд░рд┐рдХрд▓рд┐рдд рдкреНрд░рджрд░реНрд╢рди рдЖрдВрдХрдбрд╝реЛрдВ рдХреЛ рдкреНрд░рднрд╛рд╡рд┐рдд рдирд╣реАрдВ рдХрд░рддреА рд╣реИ - рдкрд╣рд▓реЗ рдХреА рддрд░рд╣, рд╕рд╣рд╕рдВрдмрдВрдз 0.935 рд╣реИ: рд▓реЗрдХрд┐рди рдЕрдЧрд░ рд╣рдордиреЗ рдПрдХ рдФрд░ рдкреНрд░рджрд░реНрд╢рди рд╕рдВрдХреЗрддрдХ рдХреА рдЧрдгрдирд╛ рдХреА рд╣реИ, рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рдирд┐рдд рдФрд░ рд╡рд╛рд╕реНрддрд╡рд┐рдХ рдореВрд▓реНрдпреЛрдВ рдХреЗ рдмреАрдЪ рдкреВрд░реНрдг рдЕрдВрддрд░, рддрдм рдкреИрдорд╛рдиреЗ рдХрд╛ рдЪреБрдирд╛рд╡ рдмрд╣реБрдд рдорд╣рддреНрд╡рдкреВрд░реНрдг рд╣реЛрдЧрд╛ред рдЗрд╕реЗ рдзреНрдпрд╛рди рдореЗрдВ рд░рдЦрддреЗ рд╣реБрдП, рдЖрдк рдЕрдкреНрд░рд╛рдХреГрддрд┐рдХ () рдлрд╝рдВрдХреНрд╢рди рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВ рдЬреЛ рдорд┐рдирд┐рдореИрдХреНрд╕ рд╕рд╛рдорд╛рдиреНрдпреАрдХрд░рдг рдХреЗ рд╡рд┐рдкрд░реАрдд рдкреНрд░рджрд░реНрд╢рди рдХрд░реЗрдЧрд╛ рдФрд░ рдЖрдкрдХреЛ рд╕рд╛рдорд╛рдиреНрдпреАрдХреГрдд рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рдиреЛрдВ рдХреЛ рдореВрд▓ рдкреИрдорд╛рдиреЗ рдкрд░ рдмрджрд▓рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрдЧрд╛:

> cor(strengths$pred, strengths$actual)
[1] 0.9348395359






> unnormalize <- function(x) {
     return((x * (max(concrete$strength)) -
           min(concrete$strength)) + min(concrete$strength))
   }

рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рдиреЛрдВ рдХреЛ рд▓рд┐рдЦреЗ рдЬрд╛рдиреЗ рд╡рд╛рд▓реЗ рдЕрдкреНрд░рд╛рдХреГрддрд┐рдХрдХрд░рдг () рдлрд╝рдВрдХреНрд╢рди рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рдХреЗ рдмрд╛рдж, рдпрд╣ рд╕реНрдкрд╖реНрдЯ рд╣реЛ рдЬрд╛рддрд╛ рд╣реИ рдХрд┐ рдирдП рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рдиреЛрдВ рдХрд╛ рдкреИрдорд╛рдирд╛ рдХрдВрдХреНрд░реАрдЯ рдХреА рддрд╛рдХрдд рдХреЗ рд╢реБрд░реБрдЖрддреА рдореВрд▓реНрдпреЛрдВ рдХреЗ рд╕рдорд╛рди рд╣реИред рдпрд╣ рдЖрдкрдХреЛ рдкреВрд░реНрдг рддреНрд░реБрдЯрд┐ рдХреЗ рд╕рд╛рд░реНрдердХ рдореВрд▓реНрдп рдХреА рдЧрдгрдирд╛ рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдЕрд╕рд╛рдорд╛рдиреНрдп рдФрд░ рдкреНрд░рд╛рд░рдВрднрд┐рдХ рд╢рдХреНрддрд┐ рдореВрд▓реНрдпреЛрдВ рдХреЗ рдмреАрдЪ рд╕рдВрдмрдВрдз рдЕрдкрд░рд┐рд╡рд░реНрддрд┐рдд рд░рд╣рддрд╛ рд╣реИ:

> strengths$pred_new <- unnormalize(strengths$pred)
> strengths$error <- strengths$pred_new тАФ strengths$actual
> head(strengths, n = 3)
           actual                pred             pred_new                    error
774          30.14         0.2860639091               23.62887889      -6.511121108
775          44.40         0.4777304648               39.46053639      -4.939463608
776          24.50         0.2840964250               23.46636470      -1.033635298

> cor(strengths$pred_new, strengths$actual)
[1] 0.9348395359

рдЕрдкрдиреА рдкрд░рд┐рдпреЛрдЬрдирд╛рдУрдВ рдореЗрдВ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдирд╛, рдЖрдкрдХреЛ рдбреЗрдЯрд╛ рдХреЛ рдЙрд╕рдХреЗ рдореВрд▓ рдкреИрдорд╛рдиреЗ рдкрд░ рд╡рд╛рдкрд╕ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЗрд╕реА рддрд░рд╣ рдХреЗ рдЕрдиреБрдХреНрд░рдо рдХрд╛ рдкрд╛рд▓рди рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред

рдЖрдк рдпрд╣ рднреА рдкрд╛ рд╕рдХрддреЗ рд╣реИрдВ рдХрд┐ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рддреЗрдЬреА рд╕реЗ рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рд╣реЛрддреЗ рдЬрд╛ рд░рд╣реЗ рд╣реИрдВ рдХреНрдпреЛрдВрдХрд┐ рдЗрдирдХрд╛ рдЙрдкрдпреЛрдЧ рддреЗрдЬреА рд╕реЗ рдХрдард┐рди рд╢рд┐рдХреНрд╖рдг рдХрд╛рд░реНрдпреЛрдВ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдЖрдк рддрдерд╛рдХрдерд┐рдд "рдЧрд╛рдпрдм" рдЫреЛрдЯреА рдврд╛рд▓ рд╕рдорд╕реНрдпрд╛ рдФрд░ рдирд┐рдХрдЯ рд╕рдВрдмрдВрдзреА "рд╡рд┐рд╕реНрдлреЛрдЯ" рдХреНрд░рдорд┐рдХ рд╕рдорд╕реНрдпрд╛ рдХрд╛ рд╕рд╛рдордирд╛ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдЬрдм рд╡рд╛рдкрд╕ рдкреНрд░рд╕рд╛рд░ рдПрд▓реНрдЧреЛрд░рд┐рдереНрдо рдПрдХ рдЙрдкрдпреЛрдЧреА рд╕рдорд╛рдзрд╛рди рдирд╣реАрдВ рдвреВрдВрдврддрд╛ рд╣реИ рдХреНрдпреЛрдВрдХрд┐ рдпрд╣ рдЙрдЪрд┐рдд рд╕рдордп рдореЗрдВ рдкрд░рд┐рд╡рд░реНрддрд┐рдд рдирд╣реАрдВ рд╣реЛрддрд╛ рд╣реИред рдЗрди рд╕рдорд╕реНрдпрд╛рдУрдВ рдХреЛ рд╣рд▓ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдЖрдк рдЫрд┐рдкреЗ рд╣реБрдП рдиреЛрдбреНрд╕ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреЛ рдмрджрд▓рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рд╡рд┐рднрд┐рдиреНрди рд╕рдХреНрд░рд┐рдпрдг рдХрд╛рд░реНрдпреЛрдВ рдХреЛ рд▓рд╛рдЧреВ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдЬреИрд╕реЗ рдХрд┐ ReLU, рд╕реАрдЦрдиреЗ рдХреА рдЧрддрд┐ рдХреЛ рд╕рдорд╛рдпреЛрдЬрд┐рдд рдХрд░рдирд╛ рдЖрджрд┐ред рдиреНрдпреВрд░рд▓рдиреЗрдЯ рдлрд╝рдВрдХреНрд╢рди рдХреЗ рд▓рд┐рдП рдорджрдж рдкреГрд╖реНрда рдкрд░, рдЖрдкрдХреЛ рдХреЙрдиреНрдлрд╝рд┐рдЧрд░ рдХрд┐рдП рдЬрд╛ рд╕рдХрдиреЗ рд╡рд╛рд▓реЗ рд╡рд┐рднрд┐рдиреНрди рдорд╛рдкрджрдВрдбреЛрдВ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдЕрддрд┐рд░рд┐рдХреНрдд рдЬрд╛рдирдХрд╛рд░реА рдорд┐рд▓реЗрдЧреАред рд╣рд╛рд▓рд╛рдВрдХрд┐, рдпрд╣ рдПрдХ рдФрд░ рд╕рдорд╕реНрдпрд╛ рдХреА рдУрд░ рдЬрд╛рддрд╛ рд╣реИ,рдЬрдм рдЕрддреНрдпрдзрд┐рдХ рдХреБрд╢рд▓ рдореЙрдбрд▓ рдмрдирд╛рдиреЗ рдореЗрдВ рдЕрдбрд╝рдЪрди рдмрдбрд╝реА рд╕рдВрдЦреНрдпрд╛ рдореЗрдВ рдорд╛рдкрджрдВрдбреЛрдВ рдХреА рдЬрд╛рдБрдЪ рдХрд░ рд░рд╣реА рд╣реИред рдпрд╣ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреА рдХреАрдордд рд╣реИ, рдФрд░ рдЗрд╕рд╕реЗ рднреА рдЕрдзрд┐рдХ рдЧрд╣рди рд╢рд┐рдХреНрд╖рдг рдиреЗрдЯрд╡рд░реНрдХ: рдЙрдирдХреА рд╡рд┐рд╢рд╛рд▓ рдХреНрд╖рдорддрд╛ рдХреЗ рд▓рд┐рдП рдмрд╣реБрдд рд╕рдордп рдФрд░ рдкреНрд░рд╕рдВрд╕реНрдХрд░рдг рд╢рдХреНрддрд┐ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛрддреА рд╣реИред

, ML . , Amazon Web Services (AWS) Microsoft Azure, . 12.


рд╕рдкреЛрд░реНрдЯ рд╡реЗрдХреНрдЯрд░ рдорд╢реАрди (рдПрд╕рд╡реАрдПрдо) рд╡рд┐рдзрд┐ рдХреЛ рдПрдХ рд╕рддрд╣ рдХреЗ рд░реВрдк рдореЗрдВ рджрд░реНрд╢рд╛рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ рдЬреЛ рдПрдХ рдмрд╣реБрдЖрдпрд╛рдореА рд╕реНрдерд╛рди рдореЗрдВ рдкреНрд▓реЙрдЯ рдХрд┐рдП рдЧрдП рдбреЗрдЯрд╛ рдмрд┐рдВрджреБрдУрдВ рдХреЗ рдмреАрдЪ рдХреА рд╕реАрдорд╛ рдмрдирд╛рддреА рд╣реИ рдЬреЛ рдЙрдирдХреЗ рдЧреБрдгреЛрдВ рдХреЗ рдЙрджрд╛рд╣рд░рдг рдФрд░ рдореВрд▓реНрдпреЛрдВ рдХрд╛ рд╡рд░реНрдгрди рдХрд░рддреА рд╣реИред рдПрд╕рд╡реАрдПрдо рдХрд╛ рд▓рдХреНрд╖реНрдп рдПрдХ рд╕рдкрд╛рдЯ рд╕реАрдорд╛ рдХрд╛ рдирд┐рд░реНрдорд╛рдг рдХрд░рдирд╛ рд╣реИ - рдПрдХ рд╣рд╛рдЗрдкрд░рдкреНрд▓реЗрди рдЬреЛ рдЕрдВрддрд░рд┐рдХреНрд╖ рдХреЛ рдЗрд╕ рддрд░рд╣ рд╕реЗ рд╡рд┐рднрд╛рдЬрд┐рдд рдХрд░рддрд╛ рд╣реИ рдХрд┐ рд╕рдЬрд╛рддреАрдп рд╕рдореВрд╣ рдЗрд╕рдХреЗ рджреЛрдиреЛрдВ рддрд░рдл рдмрдирддреЗ рд╣реИрдВред рдЗрд╕ рдкреНрд░рдХрд╛рд░, SVM рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдЕрдзреНрдпрд╛рдп 3 рдореЗрдВ рд╡рд░реНрдгрд┐рдд рдЙрджрд╛рд╣рд░рдгреЛрдВ рдФрд░ рдЕрдзреНрдпрд╛рдп 6 рдореЗрдВ рд╡рд░реНрдгрд┐рдд рд░реЗрдЦреАрдп рдкреНрд░рддрд┐рдЧрдорди рдореЙрдбрд▓рд┐рдВрдЧ рдХреЗ рдЖрдзрд╛рд░ рдкрд░ рджреЛрдиреЛрдВ рдирд┐рдХрдЯрддрдо-рдкрдбрд╝реЛрд╕реА рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХреЗ рдкрд╣рд▓реБрдУрдВ рдХреЛ рдЬреЛрдбрд╝рддреА рд╣реИред рдпрд╣ рдПрдХ рдЕрддреНрдпрдВрдд рд╢рдХреНрддрд┐рд╢рд╛рд▓реА рд╕рдВрдпреЛрдЬрди рд╣реИ рдЬреЛ SVM рдХреЛ рдмрд╣реБрдд рд╣реА рдЬрдЯрд┐рд▓ рд╕рдВрдмрдВрдзреЛрдВ рдХреЛ рдореЙрдбрд▓ рдмрдирд╛рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИред

рдЗрд╕ рддрдереНрдп рдХреЗ рдмрд╛рд╡рдЬреВрдж рдХрд┐ рдПрд╕рд╡реАрдПрдо рдореЗрдВ рдЕрдВрддрд░реНрдирд┐рд╣рд┐рдд рдмреБрдирд┐рдпрд╛рджреА рдЧрдгрд┐рдд рджрд╢рдХреЛрдВ рд╕реЗ рдореМрдЬреВрдж рд╣реИ, рдЗрди рд╡рд┐рдзрд┐рдпреЛрдВ рдореЗрдВ рд░реБрдЪрд┐ рдХрд╛рдлреА рдмрдврд╝ рдЧрдИ рд╣реИ рдЬрдм рд╡реЗ рдПрдордПрд▓ рдкрд░ рд▓рд╛рдЧреВ рд╣реЛрдиреЗ рд▓рдЧреЗред рдЬрдЯрд┐рд▓ рд╢рд┐рдХреНрд╖рдг рд╕рдорд╕реНрдпрд╛рдУрдВ рдХреЛ рд╣рд▓ рдХрд░рдиреЗ рдореЗрдВ рд╣рд╛рдИ-рдкреНрд░реЛрдлрд╛рдЗрд▓ рд╕рдлрд▓рддрд╛ рдХреА рдХрд╣рд╛рдирд┐рдпреЛрдВ рдХреЗ рд╕рд╛рде-рд╕рд╛рде рдПрд╕рд╡реАрдПрдо рдПрд▓реНрдЧреЛрд░рд┐рджрдо рдХреЗ рд╡рд┐рдХрд╛рд╕ рдХреЗ рдмрд╛рдж рдЗрди рд╡рд┐рдзрд┐рдпреЛрдВ рдХреА рд▓реЛрдХрдкреНрд░рд┐рдпрддрд╛ рдореЗрдВ рд╡реГрджреНрдзрд┐ рд╣реБрдИ, рдЬрд┐рдиреНрд╣реЗрдВ рдЖрд░ред рд╕рд╣рд┐рдд рдХрдИ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ рдЕрдЪреНрдЫреА рддрд░рд╣ рд╕реЗ рд╕рдорд░реНрдерд┐рдд рдкреБрд╕реНрддрдХрд╛рд▓рдпреЛрдВ рдореЗрдВ рд╕рдореНрдорд╛рдирд┐рдд рдФрд░ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛, рдЗрд╕рдХреЗ рдмрд╛рдж, рдПрд╕рд╡реАрдПрдо рд╡рд┐рдзрд┐рдпреЛрдВ рдХреЛ рд╡реНрдпрд╛рдкрдХ рджрд░реНрд╢рдХреЛрдВ рджреНрд╡рд╛рд░рд╛ рд╕реНрд╡реАрдХрд╛рд░ рдХрд┐рдпрд╛ рдЧрдпрд╛ред рдЕрдиреНрдпрдерд╛, рдПрд╕рд╡реАрдПрдо рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЖрд╡рд╢реНрдпрдХ рдЬрдЯрд┐рд▓ рдЧрдгрд┐рдд рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдирд╛ рдЕрд╕рдВрднрд╡ рд╣реЛрдЧрд╛ред рдЕрдЪреНрдЫреА рдЦрдмрд░ рдпрд╣ рд╣реИ рдХрд┐ рдпрджреНрдпрдкрд┐ рдЧрдгрд┐рдд рд╕рдВрднрд╡рддрдГ рдЬрдЯрд┐рд▓ рд╣реИ, рдмреБрдирд┐рдпрд╛рджреА рдЕрд╡рдзрд╛рд░рдгрд╛рдПрдВ рд╕рдордЭ рдореЗрдВ рдЖрддреА рд╣реИрдВред

рдПрд╕рд╡реАрдПрдо рд╡рд┐рдзрд┐рдпреЛрдВ рдХреЛ рд╡рд░реНрдЧреАрдХрд░рдг рдФрд░ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рд╕рд╣рд┐рдд рд▓рдЧрднрдЧ рдХрд┐рд╕реА рднреА рдкреНрд░рдХрд╛рд░ рдХреЗ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХрд╛рд░реНрдп рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЕрдиреБрдХреВрд▓рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рдЗрд╕ рдПрд▓реНрдЧреЛрд░рд┐рдереНрдо рдХреА рдХрдИ рдкреНрд░рдореБрдЦ рд╕рдлрд▓рддрд╛рдПрдВ рдкреИрдЯрд░реНрди рдХреА рдорд╛рдиреНрдпрддрд╛ рд╕реЗ рд╕рдВрдмрдВрдзрд┐рдд рд╣реИрдВред рдЗрди рд╡рд┐рдзрд┐рдпреЛрдВ рдХреЗ рд▓рд┐рдП рд╕рдмрд╕реЗ рдкреНрд░рд╕рд┐рджреНрдз рдЕрдиреБрдкреНрд░рдпреЛрдЧреЛрдВ рдореЗрдВ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рд╢рд╛рдорд┐рд▓ рд╣реИрдВ:

  • рдХреИрдВрд╕рд░ рдФрд░ рдЕрдиреНрдп рдЖрдиреБрд╡рдВрд╢рд┐рдХ рд░реЛрдЧреЛрдВ рдХрд╛ рдкрддрд╛ рд▓рдЧрд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдЬреИрд╡ рд╕реВрдЪрдирд╛ рд╡рд┐рдЬреНрдЮрд╛рди рдореЗрдВ рдорд╛рдЗрдХреНрд░реЛрдПрд░реЗ рдЬреАрди рдХреА рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдкрд░ рдбреЗрдЯрд╛ рдХрд╛ рд╡рд░реНрдЧреАрдХрд░рдг;
  • рдкрд╛рда рд╡рд░реНрдЧреАрдХрд░рдг, рдЬреИрд╕реЗ рдХрд┐ рдХрд┐рд╕реА рджрд╕реНрддрд╛рд╡реЗрдЬрд╝ рдореЗрдВ рдкреНрд░рдпреБрдХреНрдд рднрд╛рд╖рд╛ рдХрд╛ рдирд┐рд░реНрдзрд╛рд░рдг, рдпрд╛ рд╡рд┐рд╖рдп рджреНрд╡рд╛рд░рд╛ рджрд╕реНрддрд╛рд╡реЗрдЬреЛрдВ рдХреЛ рд╡рд░реНрдЧреАрдХреГрдд рдХрд░рдирд╛;
  • рджреБрд░реНрд▓рдн рд▓реЗрдХрд┐рди рдорд╣рддреНрд╡рдкреВрд░реНрдг рдШрдЯрдирд╛рдУрдВ рдХрд╛ рдкрддрд╛ рд▓рдЧрд╛рдирд╛, рдЬреИрд╕реЗ рдХрд┐ рдЖрдВрддрд░рд┐рдХ рджрд╣рди рдЗрдВрдЬрди рдХреА рд╡рд┐рдлрд▓рддрд╛, рд╕реБрд░рдХреНрд╖рд╛ рдЙрд▓реНрд▓рдВрдШрди рдпрд╛ рднреВрдХрдВрдкред


рдПрд╕рд╡реАрдПрдо рд╡рд┐рдзрд┐рдпреЛрдВ рдХреЛ рдЙрджрд╛рд╣рд░рдг рдХреЗ рд░реВрдк рдореЗрдВ рджреНрд╡рд┐рдЖрдзрд╛рд░реА рд╡рд░реНрдЧреАрдХрд░рдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╕рдордЭрдирд╛ рдЖрд╕рд╛рди рд╣реИ - рдпрд╣ рд╣реИ рдХрд┐ рд╡реЗ рдЖрдорддреМрд░ рдкрд░ рдХреИрд╕реЗ рдЙрдкрдпреЛрдЧ рдХрд┐рдП рдЬрд╛рддреЗ рд╣реИрдВред рдЗрд╕рд▓рд┐рдП, рд╢реЗрд╖ рдЦрдВрдбреЛрдВ рдореЗрдВ, рд╣рдо рдХреЗрд╡рд▓ рдПрд╕рд╡реАрдПрдо рдХреНрд▓рд╛рд╕рд┐рдлрд╛рдпрд░ рдкрд░ рдзреНрдпрд╛рди рдХреЗрдВрджреНрд░рд┐рдд рдХрд░реЗрдВрдЧреЗред рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдкреНрд░рд╕реНрддреБрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдПрд╕рд╡реАрдПрдо рд╡рд┐рдзрд┐рдпреЛрдВ рдХреЛ рдЕрдкрдирд╛рдиреЗ рдХреЗ рджреМрд░рд╛рди рдпрд╣рд╛рдВ рдкреНрд░рд╕реНрддреБрдд рд╕рд┐рджреНрдзрд╛рдВрддреЛрдВ рдХреЗ рд╕рдорд╛рди рд╕рд┐рджреНрдзрд╛рдВрддреЛрдВ рдХрд╛ рднреА рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред

рд▓реЗрдЦрдХ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ


рдмреНрд░реЗрдЯ рд▓реИрдВрдЯреНрдЬрд╝ (@DataSpelunking) рдПрдХ рджрд╢рдХ рд╕реЗ рдЕрдзрд┐рдХ рд╕рдордп рд╕реЗ рдорд╛рдирд╡ рд╡реНрдпрд╡рд╣рд╛рд░ рдХрд╛ рдЕрдзреНрдпрдпрди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдирд╡реАрди рдбреЗрдЯрд╛ рдкреНрд░реЛрд╕реЗрд╕рд┐рдВрдЧ рддрдХрдиреАрдХреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░ рд░рд╣рд╛ рд╣реИред рдкреНрд░рд╢рд┐рдХреНрд╖рдг рджреНрд╡рд╛рд░рд╛ рд╕рдорд╛рдЬрд╢рд╛рд╕реНрддреНрд░реА рд╣реЛрдиреЗ рдХреЗ рдирд╛рддреЗ, рдмреНрд░реЗрдЯ рдкрд╣рд▓реА рдмрд╛рд░ рд╕реЛрд╢рд▓ рдиреЗрдЯрд╡рд░реНрдХ рдкрд░ рдХрд┐рд╢реЛрд░ рдкреНрд░реЛрдлрд╛рдЗрд▓ рдХреЗ рдПрдХ рдмрдбрд╝реЗ рдбреЗрдЯрд╛рдмреЗрд╕ рдХреА рдЦреЛрдЬ рдХрд░рддреЗ рд╣реБрдП рдорд╢реАрди рд▓рд░реНрдирд┐рдВрдЧ рдореЗрдВ рд░реБрдЪрд┐ рд░рдЦрддреЗ рдереЗред рдмреНрд░реЗрдЯ рдбреЗрдЯрд╛рдХреИрдореНрдк рдореЗрдВ рдПрдХ рд╢рд┐рдХреНрд╖рдХ рд╣реИрдВ рдФрд░ рдЕрдХреНрд╕рд░ рджреБрдирд┐рдпрд╛ рднрд░ рдХреЗ рдорд╢реАрди рд▓рд░реНрдирд┐рдВрдЧ рд╕рдореНрдореЗрд▓рдиреЛрдВ рдФрд░ рд╕реЗрдорд┐рдирд╛рд░реЛрдВ рдореЗрдВ рдкреНрд░рд╕реНрддреБрддрд┐рдпрд╛рдБ рджреЗрддреЗ рд╣реИрдВред рд╡рд╣ рдЦреЗрд▓, рдорд╛рдирд╡рд░рд╣рд┐рдд рд╡рд╛рд╣рдиреЛрдВ, рд╡рд┐рджреЗрд╢реА рднрд╛рд╖рд╛рдУрдВ рдФрд░ рдлреИрд╢рди рдХреЗ рдЕрдзреНрдпрдпрди рдХреЗ рд╕рд╛рде-рд╕рд╛рде рдХрдИ рдЕрдиреНрдп рдЙрджреНрдпреЛрдЧреЛрдВ рдХреЗ рдХреНрд╖реЗрддреНрд░ рдореЗрдВ рдбреЗрдЯрд╛ рд╡рд┐рдЬреНрдЮрд╛рди рдХреЗ рд╡реНрдпрд╛рд╡рд╣рд╛рд░рд┐рдХ рдЕрдиреБрдкреНрд░рдпреЛрдЧ рдХреЗ рдХреНрд╖реЗрддреНрд░ рдореЗрдВ рдПрдХ рдкреНрд░рд╕рд┐рджреНрдз рдЙрддреНрд╕рд╛рд╣реА рд╣реИрдВред рдмреНрд░реЗрдЯ рдХреЛ рдЙрдореНрдореАрдж рд╣реИ рдХрд┐ рдПрдХ рджрд┐рди рдбреЗрдЯрд╛рдкреЙрдЗрдВрдЯрд┐рдВрдЧ рдбреЙрдЯ рдХреЙрдо рдкрд░ рдбреЗрдЯрд╛ рдореЗрдВ рдкреИрдЯрд░реНрди рдЦреЛрдЬрдиреЗ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдЬреНрдЮрд╛рди рдХреЗ рдЖрджрд╛рди-рдкреНрд░рджрд╛рди рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдпрд╣ рд╕рдм рд▓рд┐рдЦреЗрдВред

рд╕рд╛рдЗрдВрд╕ рдПрдбрд┐рдЯрд░ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ


рд░рд╛рдШрд╡ рдмрд╛рд▓реА (рд░рд╛рдШрд╡ рдмрд╛рд▓реА) - рджреБрдирд┐рдпрд╛ рдХреЗ рд╕рдмрд╕реЗ рдмрдбрд╝реЗ рд╕реНрд╡рд╛рд╕реНрдереНрдп рджреЗрдЦрднрд╛рд▓ рд╕рдВрдЧрдардиреЛрдВ рдореЗрдВ рд╕реЗ рдПрдХ рдХреЗ рд╡рд░рд┐рд╖реНрда рд╢реЛрдзрдХрд░реНрддрд╛ред рд╡рд╣ рд╕реНрд╡рд╛рд╕реНрдереНрдп рджреЗрдЦрднрд╛рд▓ рдФрд░ рдмреАрдорд╛ рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХреЗ рд▓рд┐рдП рдорд╢реАрди рд▓рд░реНрдирд┐рдВрдЧ, рдЧрд╣рд░реА рд╢рд┐рдХреНрд╖рд╛ рдФрд░ рдкреНрд░рд╛рдХреГрддрд┐рдХ рднрд╛рд╖рд╛ рдкреНрд░рд╕рдВрд╕реНрдХрд░рдг рдХреЗ рдЖрдзрд╛рд░ рдкрд░ рдХреЙрд░реНрдкреЛрд░реЗрдЯ рд╕рдорд╛рдзрд╛рдиреЛрдВ рдХреЗ рдЕрдиреБрд╕рдВрдзрд╛рди рдФрд░ рд╡рд┐рдХрд╛рд╕ рдореЗрдВ рд▓рдЧреЗ рд╣реБрдП рд╣реИрдВред рдЗрдВрдЯреЗрд▓ рдореЗрдВ рдЕрдкрдиреА рдкрд┐рдЫрд▓реА рд╕реНрдерд┐рддрд┐ рдореЗрдВ, рдЙрдиреНрд╣реЛрдВрдиреЗ рд╕реВрдЪрдирд╛ рдкреНрд░реМрджреНрдпреЛрдЧрд┐рдХреА рдХреЗ рдХреНрд╖реЗрддреНрд░ рдореЗрдВ рд╕рдХреНрд░рд┐рдп рдкреНрд░рдпрд╛рд╕реЛрдВ рдореЗрдВ рднрд╛рдЧ рд▓рд┐рдпрд╛, рдЬреЛ рдмрдбрд╝реЗ рдбреЗрдЯрд╛ рдкрд░ рдЖрдзрд╛рд░рд┐рдд рд╣реИ, рдкреНрд░рд╛рдХреГрддрд┐рдХ рднрд╛рд╖рд╛ рдкреНрд░рд╕рдВрд╕реНрдХрд░рдг, рдЧрд╣рди рд╢рд┐рдХреНрд╖рд╛ рдФрд░ рдкрд╛рд░рдВрдкрд░рд┐рдХ рд╕рд╛рдВрдЦреНрдпрд┐рдХреАрдп рд╡рд┐рдзрд┐рдпреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░ рд░рд╣рд╛ рд╣реИред рдЕрдореЗрд░рд┐рдХрди рдПрдХреНрд╕рдкреНрд░реЗрд╕ рдореЗрдВ, рдЙрдиреНрд╣реЛрдВрдиреЗ рдбрд┐рдЬрд┐рдЯрд▓ рд╕рдЧрд╛рдИ рдФрд░ рдЧреНрд░рд╛рд╣рдХ рдкреНрд░рддрд┐рдзрд╛рд░рдг рдореЗрдВ рдХрд╛рдо рдХрд┐рдпрд╛ред

рд░рд╛рдШрд╡ рдкреНрд░рдореБрдЦ рдкреНрд░рдХрд╛рд╢рдХреЛрдВ рджреНрд╡рд╛рд░рд╛ рдкреНрд░рдХрд╛рд╢рд┐рдд рдХрдИ рдкреБрд╕реНрддрдХреЛрдВ рдХреЗ рд▓реЗрдЦрдХ рд╣реИрдВред рдЙрдирдХреА рдирд╡реАрдирддрдо рдкреБрд╕реНрддрдХ рдЯреНрд░рд╛рдВрд╕рдлрд░ рд╕реНрдЯрдбреА рдореЗрдВ рдирд╡реАрдирддрдо рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рд╣реИред

рд░рд╛рдШрд╡ рдиреЗ рдмреЗрдВрдЧрд▓реБрд░реБ рдХреЗ рдЗрдВрдЯрд░рдиреЗрд╢рдирд▓ рдЗрдВрд╕реНрдЯреАрдЯреНрдпреВрдЯ рдСрдл рдЗрдВрдлреЙрд░реНрдореЗрд╢рди рдЯреЗрдХреНрдиреЛрд▓реЙрдЬреА рд╕реЗ рд╕реНрдирд╛рддрдХ рдХрд┐рдпрд╛ рд╣реИ, рдЙрдирдХреЗ рдкрд╛рд╕ рдорд╛рд╕реНрдЯрд░ рдбрд┐рдЧреНрд░реА (рдСрдирд░реНрд╕ рдбрд┐рдЧреНрд░реА) рд╣реИред рдЙрди рджреБрд░реНрд▓рдн рдХреНрд╖рдгреЛрдВ рдореЗрдВ рдЬрдм рд╡рд╣ рд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рд╕рдорд╕реНрдпрд╛рдУрдВ рдХреЛ рд╣рд▓ рдХрд░рдиреЗ рдореЗрдВ рд╡реНрдпрд╕реНрдд рдирд╣реАрдВ рд╣реЛрддреЗ рд╣реИрдВ, рд░рд╛рдШрд╡ рдХреЛ рдПрдХ рдкрдВрдХреНрддрд┐ рдореЗрдВ рд╕рдм рдХреБрдЫ рдкрдврд╝рдирд╛ рдФрд░ рддрд╕реНрд╡реАрд░реЗрдВ рд▓реЗрдирд╛ рдкрд╕рдВрдж рд╣реИред

┬╗рдХрд┐рддрд╛рдм рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдЕрдзрд┐рдХ рдЬрд╛рдирдХрд╛рд░реА рдкрд╛рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ рдкреНрд░рдХрд╛рд╢рдХ рдХреА рд╡реЗрдмрд╕рд╛рдЗрдЯ рдкрд░
┬╗ рд╕рд╛рдордЧреНрд░реА
┬╗ рдЕрдВрд╢

рдХреВрдкрди рдкрд░ рд▓рд┐рдП Khabrozhiteley 25% рдЫреВрдЯ - рдорд╢реАрди рд▓рд░реНрдирд┐рдВрдЧ

рдкреБрд╕реНрддрдХ рдХреЗ рдХрд╛рдЧрдЬ рд╕рдВрд╕реНрдХрд░рдг рдХреЗ рднреБрдЧрддрд╛рди рдХрд░рдиреЗ рдкрд░, рдПрдХ рдЗрд▓реЗрдХреНрдЯреНрд░реЙрдирд┐рдХ рдкреБрд╕реНрддрдХ рдИ-рдореЗрд▓ рджреНрд╡рд╛рд░рд╛ рднреЗрдЬрд╛ рдЬрд╛рддрд╛ рд╣реИред

All Articles