рд╣рдорд╛рд░реЗ R рдкрд░рд┐рдЪрдп рдХреЛрд░реНрд╕ рдХреЗ рд╕рд╛рде for loops рдФрд░ рдЕрдиреНрдп рдЖрд╡рд╢реНрдпрдХ R рдлрд╝рдВрдХреНрд╢рдВрд╕ рдореЗрдВ рдорд╣рд╛рд░рдд рд╣рд╛рд╕рд┐рд▓ рдХрд░реЗрдВред
Vector рдкрд░ Loop рдЪрд▓рд╛рдПрдБ
рдЬрдм рдЖрдкрдХреЛ рдкрддрд╛ рд╣реЛ рдХрд┐ рдХрд┐рд╕реА рдХреНрд░рд┐рдпрд╛ рдХреЛ рдХрд┐рддрдиреА рдмрд╛рд░ рджреЛрд╣рд░рд╛рдирд╛ рд╣реИ, рддреЛ for loop рдПрдХ рдЕрдЪреНрдЫрд╛ рд╡рд┐рдХрд▓реНрдк рд╣реИред for loop рдХрд╛ рд╡рд┐рдЪрд╛рд░ рдпрд╣ рд╣реИ рдХрд┐ рдЖрдк рдХрд┐рд╕реА sequence рд╕реЗ рдПрдХ-рдПрдХ рдХрд░рдХреЗ рдЧреБрдЬрд░рддреЗ рд╣реИрдВ рдФрд░ рд╣рд░ рдЪрд░рдг рдкрд░ рдХреЛрдИ рдХреНрд░рд┐рдпрд╛ рдХрд░рддреЗ рд╣реИрдВред рд╡рд╣ sequence рдЖрдорддреМрд░ рдкрд░ рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХрд╛ рдПрдХ vector рд╣реЛрддрд╛ рд╣реИ (рдЬреИрд╕реЗ 1:10 рдХрд╛ sequence), рд▓реЗрдХрд┐рди рдпрд╣ рдРрд╕реА рд╕рдВрдЦреНрдпрд╛рдПрдБ рднреА рд╣реЛ рд╕рдХрддреА рд╣реИрдВ рдЬреЛ рдХрд┐рд╕реА рдХреНрд░рдо рдореЗрдВ рди рд╣реЛрдВ рдЬреИрд╕реЗ c(2, 5, 4, 6), рдпрд╛ рдлрд┐рд░ рдЕрдХреНрд╖рд░реЛрдВ рдХрд╛ sequence рднреА!
for ( value in sequence) {
code
} рд╕рдВрдЪрд╛рд▓рд┐рдд рджреНрд╡рд╛рд░рд╛
рд╢рдмреНрджреЛрдВ рдореЗрдВ рдХрд╣реЗрдВ рддреЛ рдЗрд╕рдХрд╛ рдорддрд▓рдм рд╣реИ, "рдореЗрд░реЗ sequence рдХреЗ рдкреНрд░рддреНрдпреЗрдХ value рдХреЗ рд▓рд┐рдП, рдпрд╣ code рдЪрд▓рд╛рдУред" рдЙрджрд╛рд╣рд░рдг рдХреЗ рддреМрд░ рдкрд░, "рдореЗрд░реЗ data frame рдХреА рдкреНрд░рддреНрдпреЗрдХ row рдХреЗ рд▓рд┐рдП, рдХреЙрд▓рдо 1 рдкреНрд░рд┐рдВрдЯ рдХрд░реЛ", рдпрд╛ "рдореЗрд░реЗ рд╡рд╛рдХреНрдп рдХреЗ рдкреНрд░рддреНрдпреЗрдХ рд╢рдмреНрдж рдХреЗ рд▓рд┐рдП, рдЬрд╛рдБрдЪреЗрдВ рдХрд┐ рд╡рд╣ рд╢рдмреНрдж DataCamp рд╣реИ рдпрд╛ рдирд╣реАрдВред"
рдЖрдЗрдП рдПрдХ рдЙрджрд╛рд╣рд░рдг рдЖрдЬрд╝рдорд╛рдПрдБ! рдкрд╣рд▓реЗ, рдЖрдк 1 рд╕реЗ 10 рддрдХ рдХреЗ sequence рдореЗрдВ рдореМрдЬреВрдж рдорд╛рдиреЛрдВ рдХреЛ рдкреНрд░рд┐рдВрдЯ рдХрд░рдиреЗ рд╡рд╛рд▓рд╛ loop рдмрдирд╛рдПрдБрдЧреЗред рдлрд┐рд░, рдЖрдк рдЙрд╕ loop рдХреЛ рдЗрд╕ рддрд░рд╣ рдмрджрд▓реЗрдВрдЧреЗ рдХрд┐ рд╡рд╣ 1 рд╕реЗ 10 рддрдХ рдХреЗ рдорд╛рдиреЛрдВ рдХрд╛ рдпреЛрдЧ рднреА рдирд┐рдХрд╛рд▓реЗ, рдЬрд╣рд╛рдБ рд╣рд░ iteration рдореЗрдВ sequence рдХрд╛ рдЕрдЧрд▓рд╛ рдорд╛рди рдЪрд▓ рд░рд╣реЗ рдпреЛрдЧ рдореЗрдВ рдЬреЛрдбрд╝ рджрд┐рдпрд╛ рдЬрд╛рдПред
рдирд┐рд░реНрджреЗрд╢
рдЖрдкрдХреЗ рд▓рд┐рдП рдПрдХ vector seq рдмрдирд╛рдпрд╛ рдЧрдпрд╛ рд╣реИред for loop рдореЗрдВ seq рдХреЛ sequence рдХреЗ рд░реВрдк рдореЗрдВ рднрд░реЗрдВред рд╣рд░ iteration рдореЗрдВ value рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВред рдЖрдкрдХреЗ рд▓рд┐рдП рдПрдХ variable sum рдмрдирд╛рдпрд╛ рдЧрдпрд╛ рд╣реИред loop рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ seq рдХреЗ рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХрд╛ рдпреЛрдЧ рдирд┐рдХрд╛рд▓реЗрдВред рд╣рд░ iteration рдореЗрдВ, value рдХреЛ sum рдореЗрдВ рдЬреЛрдбрд╝реЗрдВ, рдлрд┐рд░ sum рдХреЛ рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВред
# Sequence
seq <- c(1:10)
# Print loop
for (value in ___) {
print(___)
}
# A sum variable
sum <- 0
# Sum loop
for (value in seq) {
sum <- ___ + ___
print(___)
}
рдЕрдЧрд░ рдпрд╣ рд╕рдордЭ рдореЗрдВ рдЖрддрд╛ рд╣реИ рддреЛ рдЕрдЧрд▓реЗ рдЕрднреНрдпрд╛рд╕ рдкрд░ рдмрдврд╝реЗрдВ! рдпрджрд┐ рдирд╣реАрдВ, рддреЛ рдпрд╣рд╛рдБ рдПрдХ рдУрд╡рд░рд╡реНрдпреВ рд╡реАрдбрд┐рдпреЛ рд╣реИред
R рдореЗрдВ For Loops рдкрд░ рдУрд╡рд░рд╡реНрдпреВ рд╡реАрдбрд┐рдпреЛ
Data Frame рдХреА Rows рдкрд░ Loop рдЪрд▓рд╛рдПрдБ
рдорд╛рди рд▓реЗрдВ рдХрд┐ рдЖрдк рдЙрди рджрд┐рдиреЛрдВ рдореЗрдВ рд░реБрдЪрд┐ рд░рдЦрддреЗ рд╣реИрдВ рдЬрдм Apple рдХрд╛ рд╕реНрдЯреЙрдХ рдореВрд▓реНрдп 117 рд╕реЗ рдКрдкрд░ рдЪрд▓рд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрджрд┐ рдпрд╣ рдЗрд╕ рдорд╛рди рд╕реЗ рдКрдкрд░ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рдЖрдк рд╡рд░реНрддрдорд╛рди рддрд┐рдерд┐ рдФрд░ рд╕реНрдЯреЙрдХ рдореВрд▓реНрдп рдкреНрд░рд┐рдВрдЯ рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред рдпрджрд┐ рдЖрдкрдХреЗ рдкрд╛рд╕ date рдФрд░ apple price рдХреЙрд▓рдо рд╡рд╛рд▓рд╛ stock рдирд╛рдо рдХрд╛ data frame рд╣реИ, рддреЛ рдХреНрдпрд╛ рдЖрдк рдпрд╣ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП data frame рдХреА rows рдкрд░ loop рдЪрд▓рд╛ рд╕рдХрддреЗ рд╣реИрдВ? рдмрд┐рд▓рдХреБрд▓ рдЪрд▓рд╛ рд╕рдХрддреЗ рд╣реИрдВ!
рдРрд╕рд╛ рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ, рдзреНрдпрд╛рди рджреЗрдВ рдХрд┐ рдЖрдк рдЕрдкрдиреЗ data frame рдореЗрдВ rows рдХреА рд╕рдВрдЦреНрдпрд╛ nrow(stock) рд╕реЗ рдкреНрд░рд╛рдкреНрдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдлрд┐рд░, рдЖрдк 1:nrow(stock) рд╕реЗ loop рдЪрд▓рд╛рдиреЗ рдХреЗ рд▓рд┐рдП sequence рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВред
for ( row in 1 : nrow( stock) ) {
price <- stock[ row, "apple" ]
date <- stock[ row, "date" ]
if ( price > 117 ) {
print( paste( "On" , date,
"the stock price was" , price) )
}
}
[ 1 ] "On 2016-12-21 the stock price was 117.06"
[ 1 ] "On 2016-12-27 the stock price was 117.26" рд╕рдВрдЪрд╛рд▓рд┐рдд рджреНрд╡рд╛рд░рд╛
рдЗрд╕рдореЗрдВ рдЕрдм рддрдХ рд╕реАрдЦреА рд╣реБрдИ рдХрдИ рдмрд╛рддреЗрдВ рд╢рд╛рдорд┐рд▓ рд╣реИрдВтАФif statements, vectors рдХрд╛ subsetting , conditionals, рдФрд░ loops! рдЗрддрдирд╛ рдХреБрдЫ рд╕реАрдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдмрдзрд╛рдИ!
рдирд┐рд░реНрджреЗрд╢
stock рдЖрдкрдХреЗ workspace рдореЗрдВ рд╣реИред
for loop рдореЗрдВ рд░рд┐рдХреНрдд рд╕реНрдерд╛рди рднрд░реЗрдВ рддрд╛рдХрд┐ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рд╕рд╣реА рд╣реЛ:
price рдореЗрдВ рдЙрд╕ iteration рдХрд╛ price рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдП
date рдореЗрдВ рдЙрд╕ iteration рдХреА date рд╣реЛрдиреА рдЪрд╛рд╣рд┐рдП
рдЗрд╕ рдмрд╛рд░, рдЖрдк рдЬрд╛рдирдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ рдХрд┐ apple 116 рд╕реЗ рдКрдкрд░ рдЬрд╛рддрд╛ рд╣реИ рдпрд╛ рдирд╣реАрдВред
рдпрджрд┐ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ date рдФрд░ price рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВред
рдпрджрд┐ рдпрд╣ 116 рд╕реЗ рдХрдо рдерд╛, рддреЛ date рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВ рдФрд░ рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВ рдХрд┐ рдпрд╣ рдХреЛрдИ рдорд╣рддреНрд╡рдкреВрд░реНрдг рджрд┐рди рдирд╣реАрдВ рдерд╛!
Matrix рдХреЗ рддрддреНрд╡реЛрдВ рдкрд░ Loop рдЪрд▓рд╛рдПрдБ
рдЕрдм рддрдХ, рдЖрдк рдПрдХ-рдЖрдпрд╛рдореА рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░реЛрдВ рдкрд░ loop рдЪрд▓рд╛рддреЗ рд░рд╣реЗ рд╣реИрдВред рдпрджрд┐ рдЖрдк рдХрд┐рд╕реА matrix (рдХреЙрд▓рдо рдФрд░ row) рдХреЗ рддрддреНрд╡реЛрдВ рдкрд░ loop рдЪрд▓рд╛рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рддреЛ рдЖрдкрдХреЛ nested loops рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред рдЖрдк рдЗрд╕реА рд╡рд┐рдЪрд╛рд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рддреАрди рд╕реНрдЯреЙрдХреНрд╕ рдХреЗ рдмреАрдЪ correlations рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВрдЧреЗред
рдЗрд╕реЗ рд╕рдордЭрдиреЗ рдХрд╛ рд╕рдмрд╕реЗ рдЖрд╕рд╛рди рддрд░реАрдХрд╛ рдпрд╣ рд╣реИ рдХрд┐ рдЖрдк row1 рд╕реЗ рд╢реБрд░реВ рдХрд░рддреЗ рд╣реИрдВ рдФрд░ рджрд╛рдИрдВ рдУрд░ рдмрдврд╝рддреЗ рд╣реИрдВтАФcol1, col2, ...тАФрдЬрдм рддрдХ row1 рдХрд╛ рдЖрдЦрд┐рд░реА рдХреЙрд▓рдо рдирд╣реАрдВ рдЖ рдЬрд╛рддрд╛ред рдлрд┐рд░, рдЖрдк row2 рдкрд░ рдиреАрдЪреЗ рдЖрддреЗ рд╣реИрдВ рдФрд░ рд╡рд╣реА рдкреНрд░рдХреНрд░рд┐рдпрд╛ рджреЛрд╣рд░рд╛рддреЗ рд╣реИрдВред
my_matrix
[ , 1 ] [ , 2 ]
[ 1 , ] "r1c1" "r1c2"
[ 2 , ] "r2c1" "r2c2"
for ( row in 1 : nrow( my_matrix) ) {
for ( col in 1 : ncol( my_matrix) ) {
print( my_matrix[ row, col] )
}
}
[ 1 ] "r1c1"
[ 1 ] "r1c2"
[ 1 ] "r2c1"
[ 1 ] "r2c2" рд╕рдВрдЪрд╛рд▓рд┐рдд рджреНрд╡рд╛рд░рд╛
рдирд┐рд░реНрджреЗрд╢
correlation matrix, corr, рдЖрдкрдХреЗ workspace рдореЗрдВ рд╣реИред
рдбреЗрдЯрд╛ рдХреА рдЭрд▓рдХ рдкрд╛рдиреЗ рдХреЗ рд▓рд┐рдП corr рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВред
nested for loop рднрд░реЗрдВ! рдЗрд╕реЗ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЛ рд╕рдВрддреБрд╖реНрдЯ рдХрд░рдирд╛ рдЪрд╛рд╣рд┐рдП:
рдмрд╛рд╣рд░реА loop рдХреЛ corr рдХреА rows рдкрд░ рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдПред
рдЖрдВрддрд░рд┐рдХ loop рдХреЛ corr рдХреА cols рдкрд░ рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдПред
print рдХрдерди рдХреЛ рд╡рд░реНрддрдорд╛рди рдХреЙрд▓рдо рдФрд░ row рдХреЗ рдирд╛рдо рдкреНрд░рд┐рдВрдЯ рдХрд░рдиреЗ рдЪрд╛рд╣рд┐рдП, рдФрд░ рдЙрдирдХрд╛ correlation рднреА рдкреНрд░рд┐рдВрдЯ рдХрд░рдирд╛ рдЪрд╛рд╣рд┐рдПред
# Print out corr
# Create a nested loop
for(row in 1:nrow(___)) {
for(col in 1:___(corr)) {
print(paste(colnames(corr)[___], "and", rownames(corr)[___],
"have a correlation of", corr[row,col]))
}
}
рд╣рдорд╛рд░рд╛ A Loops in R Tutorial рднреА рджреЗрдЦреЗрдВред
рд╣рдорд╛рд░реЗ R рдкрд░рд┐рдЪрдп рдХреЛрд░реНрд╕ рдХреЗ рд╕рд╛рде for loops рдФрд░ рдЕрдиреНрдп рдЖрд╡рд╢реНрдпрдХ R рдлрд╝рдВрдХреНрд╢рдВрд╕ рдореЗрдВ рдорд╣рд╛рд░рдд рд╣рд╛рд╕рд┐рд▓ рдХрд░реЗрдВред
Vector рдкрд░ Loop рдЪрд▓рд╛рдПрдБ
рдЬрдм рдЖрдкрдХреЛ рдкрддрд╛ рд╣реЛ рдХрд┐ рдХрд┐рд╕реА рдХреНрд░рд┐рдпрд╛ рдХреЛ рдХрд┐рддрдиреА рдмрд╛рд░ рджреЛрд╣рд░рд╛рдирд╛ рд╣реИ, рддреЛ for loop рдПрдХ рдЕрдЪреНрдЫрд╛ рд╡рд┐рдХрд▓реНрдк рд╣реИред for loop рдХрд╛ рд╡рд┐рдЪрд╛рд░ рдпрд╣ рд╣реИ рдХрд┐ рдЖрдк рдХрд┐рд╕реА sequence рд╕реЗ рдПрдХ-рдПрдХ рдХрд░рдХреЗ рдЧреБрдЬрд░рддреЗ рд╣реИрдВ рдФрд░ рд╣рд░ рдЪрд░рдг рдкрд░ рдХреЛрдИ рдХреНрд░рд┐рдпрд╛ рдХрд░рддреЗ рд╣реИрдВред рд╡рд╣ sequence рдЖрдорддреМрд░ рдкрд░ рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХрд╛ рдПрдХ vector рд╣реЛрддрд╛ рд╣реИ (рдЬреИрд╕реЗ
1:10рдХрд╛ sequence), рд▓реЗрдХрд┐рди рдпрд╣ рдРрд╕реА рд╕рдВрдЦреНрдпрд╛рдПрдБ рднреА рд╣реЛ рд╕рдХрддреА рд╣реИрдВ рдЬреЛ рдХрд┐рд╕реА рдХреНрд░рдо рдореЗрдВ рди рд╣реЛрдВ рдЬреИрд╕реЗc(2, 5, 4, 6), рдпрд╛ рдлрд┐рд░ рдЕрдХреНрд╖рд░реЛрдВ рдХрд╛ sequence рднреА!рд╢рдмреНрджреЛрдВ рдореЗрдВ рдХрд╣реЗрдВ рддреЛ рдЗрд╕рдХрд╛ рдорддрд▓рдм рд╣реИ, "рдореЗрд░реЗ sequence рдХреЗ рдкреНрд░рддреНрдпреЗрдХ value рдХреЗ рд▓рд┐рдП, рдпрд╣ code рдЪрд▓рд╛рдУред" рдЙрджрд╛рд╣рд░рдг рдХреЗ рддреМрд░ рдкрд░, "рдореЗрд░реЗ data frame рдХреА рдкреНрд░рддреНрдпреЗрдХ row рдХреЗ рд▓рд┐рдП, рдХреЙрд▓рдо 1 рдкреНрд░рд┐рдВрдЯ рдХрд░реЛ", рдпрд╛ "рдореЗрд░реЗ рд╡рд╛рдХреНрдп рдХреЗ рдкреНрд░рддреНрдпреЗрдХ рд╢рдмреНрдж рдХреЗ рд▓рд┐рдП, рдЬрд╛рдБрдЪреЗрдВ рдХрд┐ рд╡рд╣ рд╢рдмреНрдж DataCamp рд╣реИ рдпрд╛ рдирд╣реАрдВред"
рдЖрдЗрдП рдПрдХ рдЙрджрд╛рд╣рд░рдг рдЖрдЬрд╝рдорд╛рдПрдБ! рдкрд╣рд▓реЗ, рдЖрдк 1 рд╕реЗ 10 рддрдХ рдХреЗ sequence рдореЗрдВ рдореМрдЬреВрдж рдорд╛рдиреЛрдВ рдХреЛ рдкреНрд░рд┐рдВрдЯ рдХрд░рдиреЗ рд╡рд╛рд▓рд╛ loop рдмрдирд╛рдПрдБрдЧреЗред рдлрд┐рд░, рдЖрдк рдЙрд╕ loop рдХреЛ рдЗрд╕ рддрд░рд╣ рдмрджрд▓реЗрдВрдЧреЗ рдХрд┐ рд╡рд╣ 1 рд╕реЗ 10 рддрдХ рдХреЗ рдорд╛рдиреЛрдВ рдХрд╛ рдпреЛрдЧ рднреА рдирд┐рдХрд╛рд▓реЗ, рдЬрд╣рд╛рдБ рд╣рд░ iteration рдореЗрдВ sequence рдХрд╛ рдЕрдЧрд▓рд╛ рдорд╛рди рдЪрд▓ рд░рд╣реЗ рдпреЛрдЧ рдореЗрдВ рдЬреЛрдбрд╝ рджрд┐рдпрд╛ рдЬрд╛рдПред
рдирд┐рд░реНрджреЗрд╢
рдЖрдкрдХреЗ рд▓рд┐рдП рдПрдХ vector
seqрдмрдирд╛рдпрд╛ рдЧрдпрд╛ рд╣реИред for loop рдореЗрдВseqрдХреЛ sequence рдХреЗ рд░реВрдк рдореЗрдВ рднрд░реЗрдВред рд╣рд░ iteration рдореЗрдВvalueрдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВред рдЖрдкрдХреЗ рд▓рд┐рдП рдПрдХ variablesumрдмрдирд╛рдпрд╛ рдЧрдпрд╛ рд╣реИред loop рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗseqрдХреЗ рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХрд╛ рдпреЛрдЧ рдирд┐рдХрд╛рд▓реЗрдВред рд╣рд░ iteration рдореЗрдВ,valueрдХреЛsumрдореЗрдВ рдЬреЛрдбрд╝реЗрдВ, рдлрд┐рд░sumрдХреЛ рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВредрдЕрдЧрд░ рдпрд╣ рд╕рдордЭ рдореЗрдВ рдЖрддрд╛ рд╣реИ рддреЛ рдЕрдЧрд▓реЗ рдЕрднреНрдпрд╛рд╕ рдкрд░ рдмрдврд╝реЗрдВ! рдпрджрд┐ рдирд╣реАрдВ, рддреЛ рдпрд╣рд╛рдБ рдПрдХ рдУрд╡рд░рд╡реНрдпреВ рд╡реАрдбрд┐рдпреЛ рд╣реИред
R рдореЗрдВ For Loops рдкрд░ рдУрд╡рд░рд╡реНрдпреВ рд╡реАрдбрд┐рдпреЛ
Data Frame рдХреА Rows рдкрд░ Loop рдЪрд▓рд╛рдПрдБ
рдорд╛рди рд▓реЗрдВ рдХрд┐ рдЖрдк рдЙрди рджрд┐рдиреЛрдВ рдореЗрдВ рд░реБрдЪрд┐ рд░рдЦрддреЗ рд╣реИрдВ рдЬрдм Apple рдХрд╛ рд╕реНрдЯреЙрдХ рдореВрд▓реНрдп
117рд╕реЗ рдКрдкрд░ рдЪрд▓рд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрджрд┐ рдпрд╣ рдЗрд╕ рдорд╛рди рд╕реЗ рдКрдкрд░ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рдЖрдк рд╡рд░реНрддрдорд╛рди рддрд┐рдерд┐ рдФрд░ рд╕реНрдЯреЙрдХ рдореВрд▓реНрдп рдкреНрд░рд┐рдВрдЯ рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред рдпрджрд┐ рдЖрдкрдХреЗ рдкрд╛рд╕dateрдФрд░appleprice рдХреЙрд▓рдо рд╡рд╛рд▓рд╛stockрдирд╛рдо рдХрд╛ data frame рд╣реИ, рддреЛ рдХреНрдпрд╛ рдЖрдк рдпрд╣ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП data frame рдХреА rows рдкрд░ loop рдЪрд▓рд╛ рд╕рдХрддреЗ рд╣реИрдВ? рдмрд┐рд▓рдХреБрд▓ рдЪрд▓рд╛ рд╕рдХрддреЗ рд╣реИрдВ!рдРрд╕рд╛ рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ, рдзреНрдпрд╛рди рджреЗрдВ рдХрд┐ рдЖрдк рдЕрдкрдиреЗ data frame рдореЗрдВ rows рдХреА рд╕рдВрдЦреНрдпрд╛
nrow(stock)рд╕реЗ рдкреНрд░рд╛рдкреНрдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдлрд┐рд░, рдЖрдк1:nrow(stock)рд╕реЗ loop рдЪрд▓рд╛рдиреЗ рдХреЗ рд▓рд┐рдП sequence рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВредрдЗрд╕рдореЗрдВ рдЕрдм рддрдХ рд╕реАрдЦреА рд╣реБрдИ рдХрдИ рдмрд╛рддреЗрдВ рд╢рд╛рдорд┐рд▓ рд╣реИрдВтАФif statements, vectors рдХрд╛ subsetting, conditionals, рдФрд░ loops! рдЗрддрдирд╛ рдХреБрдЫ рд╕реАрдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдмрдзрд╛рдИ!
рдирд┐рд░реНрджреЗрд╢
stockрдЖрдкрдХреЗ workspace рдореЗрдВ рд╣реИредfor loop рдореЗрдВ рд░рд┐рдХреНрдд рд╕реНрдерд╛рди рднрд░реЗрдВ рддрд╛рдХрд┐ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рд╕рд╣реА рд╣реЛ:
priceрдореЗрдВ рдЙрд╕ iteration рдХрд╛ price рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдПdateрдореЗрдВ рдЙрд╕ iteration рдХреА date рд╣реЛрдиреА рдЪрд╛рд╣рд┐рдПapple116рд╕реЗ рдКрдкрд░ рдЬрд╛рддрд╛ рд╣реИ рдпрд╛ рдирд╣реАрдВредdateрдФрд░priceрдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВред116рд╕реЗ рдХрдо рдерд╛, рддреЛdateрдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВ рдФрд░ рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВ рдХрд┐ рдпрд╣ рдХреЛрдИ рдорд╣рддреНрд╡рдкреВрд░реНрдг рджрд┐рди рдирд╣реАрдВ рдерд╛!Matrix рдХреЗ рддрддреНрд╡реЛрдВ рдкрд░ Loop рдЪрд▓рд╛рдПрдБ
рдЕрдм рддрдХ, рдЖрдк рдПрдХ-рдЖрдпрд╛рдореА рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░реЛрдВ рдкрд░ loop рдЪрд▓рд╛рддреЗ рд░рд╣реЗ рд╣реИрдВред рдпрджрд┐ рдЖрдк рдХрд┐рд╕реА matrix (рдХреЙрд▓рдо рдФрд░ row) рдХреЗ рддрддреНрд╡реЛрдВ рдкрд░ loop рдЪрд▓рд╛рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рддреЛ рдЖрдкрдХреЛ nested loops рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред рдЖрдк рдЗрд╕реА рд╡рд┐рдЪрд╛рд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рддреАрди рд╕реНрдЯреЙрдХреНрд╕ рдХреЗ рдмреАрдЪ correlations рдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВрдЧреЗред
рдЗрд╕реЗ рд╕рдордЭрдиреЗ рдХрд╛ рд╕рдмрд╕реЗ рдЖрд╕рд╛рди рддрд░реАрдХрд╛ рдпрд╣ рд╣реИ рдХрд┐ рдЖрдк row1 рд╕реЗ рд╢реБрд░реВ рдХрд░рддреЗ рд╣реИрдВ рдФрд░ рджрд╛рдИрдВ рдУрд░ рдмрдврд╝рддреЗ рд╣реИрдВтАФcol1, col2, ...тАФрдЬрдм рддрдХ row1 рдХрд╛ рдЖрдЦрд┐рд░реА рдХреЙрд▓рдо рдирд╣реАрдВ рдЖ рдЬрд╛рддрд╛ред рдлрд┐рд░, рдЖрдк row2 рдкрд░ рдиреАрдЪреЗ рдЖрддреЗ рд╣реИрдВ рдФрд░ рд╡рд╣реА рдкреНрд░рдХреНрд░рд┐рдпрд╛ рджреЛрд╣рд░рд╛рддреЗ рд╣реИрдВред
рдирд┐рд░реНрджреЗрд╢
correlation matrix,
corr, рдЖрдкрдХреЗ workspace рдореЗрдВ рд╣реИредcorrрдкреНрд░рд┐рдВрдЯ рдХрд░реЗрдВредcorrрдХреАrows рдкрд░ рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдПредcorrрдХреАcols рдкрд░ рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдПредрд╣рдорд╛рд░рд╛ A Loops in R Tutorial рднреА рджреЗрдЦреЗрдВред