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

рдЬрд┐рд╕рдХреЗ рд▓рд┐рдП рд╣рдо рдЖрд╕рд╛рдиреА рд╕реЗ рд╕рд╣рд╕рдВрдпреЛрдЬрдХ рдореИрдЯреНрд░рд┐рдХреНрд╕ рдФрд░ рдФрд╕рдд рдореВрд▓реНрдп (рднрд╡рд┐рд╖реНрдп рдХреЗ рджреАрд░реНрдШрд╡реГрддреНрдд рдХрд╛ рдХреЗрдВрджреНрд░) рдкрд╛ рд╕рдХрддреЗ рд╣реИрдВ:
plot(data[, 1], data[, 2], pch=19, asp=1, col=rgb(0, 0.5, 1, 0.2), xlab="x", ylab="y") sigma <- cov(data) mx <- mean(data[, 1]) my <- mean(data[, 2])
рдЗрд╕рд╕реЗ рдкрд╣рд▓реЗ рдХрд┐ рдЖрдк рдПрдХ рджреАрд░реНрдШрд╡реГрддреНрдд рдЦреАрдВрдЪрдирд╛ рд╢реБрд░реВ рдХрд░реЗрдВ, рдЖрдкрдХреЛ рдпрд╣ рддрдп рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ рдХрд┐ рдЖрдХрд╛рд░ рдХреНрдпрд╛ рд╣реЛрдЧрд╛ред рдпрд╣рд╛рдБ рдХреБрдЫ рдЙрджрд╛рд╣рд░рдг рд╣реИрдВ:

рджреАрд░реНрдШрд╡реГрддреНрдд рдХреЗ рдЖрдХрд╛рд░ рдХреЛ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рд╕рд╣рд╕рдВрдпреЛрдЬрдХ рдореИрдЯреНрд░рд┐рдХреНрд╕ рдХреЗ рд╕рд╛рде рд╕рдорд╛рди рд╕рдВрднрд╛рд╡рдирд╛ рд╡рд┐рддрд░рдг рд╕реЗ рджреЛ рдпрд╛рджреГрдЪреНрдЫрд┐рдХ рд╡реИрдХреНрдЯрд░ рдХреЗ рдмреАрдЪ
рдорд╣рд╛рд▓рдиреЛрдмрд┐рд╕ рджреВрд░реА рдХреЛ рдпрд╛рдж рдХрд░рддреЗ рд╣реИрдВ:

рдЖрдк рдПрдХ рдпрд╛рджреГрдЪреНрдЫрд┐рдХ рд╡реЗрдХреНрдЯрд░
x рд╕реЗ
╬╝ рдХреЗ рдФрд╕рдд рдорд╛рди рдФрд░ рд╕рд╣рд╕рдВрдпреЛрдЬрдХ рдореИрдЯреНрд░рд┐рдХреНрд╕ with рдХреЗ рд╕рд╛рде рдПрдХ рд╕реЗрдЯ рддрдХ рдХреА рджреВрд░реА рднреА рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:

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

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

рджреВрд╕рд░реА рдУрд░, рд╣рдо рджреАрд░реНрдШрд╡реГрддреНрдд рд╕рдореАрдХрд░рдг рдХреЛ рдореИрдЯреНрд░рд┐рдХреНрд╕ рдХреЗ рд░реВрдк рдореЗрдВ рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВ (рд╕рдЬрд╛рддреАрдп рджреЛ рдЖрдпрд╛рдореА рдирд┐рд░реНрджреЗрд╢рд╛рдВрдХ рдореЗрдВ):

рдФрд░ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдкреНрд░рд╛рдкреНрдд рдХрд░реЗрдВ, рдпрд╣ рджрд┐рдЦрд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐ рджреАрд░реНрдШрд╡реГрддреНрдд рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рдореИрдЯреНрд░рд┐рдХреНрд╕ рд░реВрдк рдореЗрдВ рджрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ:

рдЕрдм рдорд╣рд╛рд▓рдиреЛрдмрд┐рд╕ рдХреА рджреВрд░реА рдХреЛ рдпрд╛рдж рдХрд░реЗрдВ, рдФрд░ рдЗрд╕рдХреЗ рд╡рд░реНрдЧ рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд░реЗрдВ:

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

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

рдирд┐рдореНрди рд░реВрдк рдореЗрдВ рд╕рд╣рд╕рдВрдпреЛрдЬрдХ рдореИрдЯреНрд░рд┐рдХреНрд╕ рдХреЗ рд╡рд┐рд╕реНрддрд╛рд░ рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд░реЗрдВ:

рдЬрд╣рд╛рдВ
U , рдореИрдЯреНрд░рд┐рдХреНрд╕ рдХреЗ рдпреВрдирд┐рдЯ eigenvectors рджреНрд╡рд╛рд░рд╛ рдЧрдард┐рдд рдореИрдЯреНрд░рд┐рдХреНрд╕ рд╣реИ, рдФрд░ the рдПрдХ рд╕рдорд╛рди рдореИрдЯреНрд░рд┐рдХреНрд╕ рд╣реИ рдЬреЛ рд╕рдВрдмрдВрдзрд┐рдд eigenvalues тАЛтАЛрд╕реЗ рдмрдирд╛ рд╣реИред
e <- eigen(sigma)
рдФрд░ рдПрдХ рдмрд╣реБрдЖрдпрд╛рдореА рд╕рд╛рдорд╛рдиреНрдп рд╡рд┐рддрд░рдг рд╕реЗ рдпрд╛рджреГрдЪреНрдЫрд┐рдХ рд╡реЗрдХреНрдЯрд░ рдХреЗ рд▓рд┐рдП рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдкрд░ рднреА рд╡рд┐рдЪрд╛рд░ рдХрд░реЗрдВ:

рдЗрд╕ рдкреНрд░рдХрд╛рд░, рд╡рд┐рддрд░рдг
N (╬╝, ╬г) , рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ, рдорд╛рдирдХ рдмрд╣реБрдЖрдпрд╛рдореА рд╕рд╛рдорд╛рдиреНрдп рд╡рд┐рддрд░рдг
N (0, I) scal ^ (1/2) рджреНрд╡рд╛рд░рд╛ рдмрдврд╝рд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ,
рдпреВ рджреНрд╡рд╛рд░рд╛ рдШреБрдорд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдФрд░
╬╝ рджреНрд╡рд╛рд░рд╛ рд╕реНрдерд╛рдирд╛рдВрддрд░рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
рдЖрдЗрдП рдЕрдм рдПрдХ рдлрд╝рдВрдХреНрд╢рди рд▓рд┐рдЦрддреЗ рд╣реИрдВ рдЬреЛ рдПрдХ рджреАрд░реНрдШрд╡реГрддреНрдд рдЦреАрдВрдЪрддрд╛ рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдЗрдирдкреБрдЯ рд╣реИрдВ:
- mx, my - рджреНрд░рд╡реНрдпрдорд╛рди рдХреЗ рдХреЗрдВрджреНрд░ рдХрд╛ рдирд┐рд░реНрджреЗрд╢рд╛рдВрдХ
- рд╕рд┐рдЧреНрдорд╛ - рд╕рд╣рд╕рдВрдпреЛрдЬрдХ рдореИрдЯреНрд░рд┐рдХреНрд╕
- рдХреНрдпреВ рдЪреА-рд╡рд░реНрдЧ рд╡рд┐рддрд░рдг рдХрд╛ рдорд╛рддреНрд░рдХ рд╣реИ
- n - рджреАрд░реНрдШрд╡реГрддреНрдд рдирдореВрдирд╛рдХрд░рдг рдШрдирддреНрд╡ (рдЙрд╕ рдмрд┐рдВрджреБ рдХреА рд╕рдВрдЦреНрдпрд╛ рдЬрд┐рд╕ рдкрд░ рджреАрд░реНрдШрд╡реГрддреНрдд рдирд┐рд░реНрдорд┐рдд рд╣реЛрдЧрд╛)
GetEllipsePoints <- function(mx, my, sigma, q = 0.75, n = 100) { k <- qchisq(q, 2) # sigma <- k * sigma # e <- eigen(sigma) # angles <- seq(0, 2*pi, length.out=n) # n- cir1.points <- rbind(cos(angles), sin(angles)) # ellipse.centered <- (e$vectors %*% diag(sqrt(abs(e$values)))) %*% cir1.points # ellipse.biased <- ellipse.centered + c(mx, my) # return(ellipse.biased) # }
рдкрд░рд┐рдгрд╛рдо
рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЛрдб рдбреЗрдЯрд╛рд╕реЗрдЯ рдХреЗ рджреНрд░рд╡реНрдпрдорд╛рди рдХреЗрдВрджреНрд░ рдХреЗ рдЖрд╕рдкрд╛рд╕ рдХрдИ рдЖрддреНрдорд╡рд┐рд╢реНрд╡рд╛рд╕ рдЧреНрд░рд╣рдг рдХрд░рддрд╛ рд╣реИ:
points(mx, my, pch=20, col="yellow") q <- seq(0.1, 0.95, length.out=10) palette <- cm.colors(length(q)) for(i in 1:length(q)) { p <- GetEllipsePoints(mx, my, sigma, q = q[i]) points(p[1, ], p[2, ], type="l", col=palette[i]) } e <- eigen(sigma) v <- (e$vectors %*% diag(sqrt(abs(e$values)))) arrows(c(mx, mx), c(my, my), c(v[1, 1] + mx, v[1, 2] + mx), c(v[2, 1] + my, v[2, 2] + my),
рдкрд░рд┐рдгрд╛рдорд╕реНрд╡рд░реВрдк, рд╣рдореЗрдВ рдирд┐рдореНрди рдЪрд┐рддреНрд░ рдорд┐рд▓рддреЗ рд╣реИрдВ:

рдЖрджрд░
рдХреЛрдб
рдореЗрд░реЗ рдЬреАрдереВрдм рдкрд░ рдкрд╛рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред