рдХреНрдпрд╛ рдкреНрд░рдЧрддрд┐ рдкреИрдХреЗрдЬ рдбреАрдУрдПрдорд╕реА рдкреИрдХреЗрдЬ рдХреЗ рд▓рд┐рдП рднреА рдЙрдкрдпреБрдХреНрдд рд╣реИ?
рдпрд╛ рд╕рдорд╛рдирд╛рдВрддрд░ рдкреИрдХреЗрдЬ? рдпрджрд┐ рдирд╣реАрдВ, рддреЛ рдЗрд╕ рд╕реБрд╡рд┐рдзрд╛ рдХреЗ рд▓рд┐рдП +1 рдХрд░реЗрдВред
рдореБрдЭреЗ рдпрдХреАрди рдирд╣реАрдВ рд╣реИ рдХрд┐ рдЗрд╕реЗ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдИрдорд╛рдирджрд╛рд░ рд╣реЛрдиреЗ рдХреЗ рд▓рд┐рдП рдХреНрдпрд╛ рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП рд╕рдорд╛рдирд╛рдВрддрд░ рдХреЗ рд▓рд┐рдП, рдХрд┐рд╕реА рдХреЛ рд╡рд╛рдкрд╕ рд╕рдВрд╡рд╛рдж рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╕рдорд╛рдирд╛рдВрддрд░ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛрдЧреА, рдХрд┐рддрдирд╛ рдХрд╛рдо рдкрд╣рд▓реЗ рд╣реА рдХрд┐рдпрд╛ рдЬрд╛ рдЪреБрдХрд╛ рд╣реИред рдХреНрдпрд╛ рдпрд╣ рд╕рдВрднрд╡ рднреА рд╣реИ?
@gaborcsardi рдореИрдВрдиреЗ рдХреБрдЫ рдЦреЛрдЬ рдХреА рд╣реИ рдФрд░ рдЬреЛ рдореИрдВрдиреЗ рдкрд╛рдпрд╛ рд╣реИ рд╡рд╣ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рд╣реИ:
library("foreach")
library("doParallel")
library("progress")
registerDoParallel(parallel::makeCluster(7, outfile = ""))
pb <- progress_bar$new(
format = " [:bar] :percent in :elapsed",
total = 30, clear = FALSE, width = 80, force = T)
a <- foreach (i = 1:30) %dopar% {
pb$tick()
Sys.sleep(0.5)
}
pb <- txtProgressBar(title = "Iterative training", min = 0, max = 30, style = 3)
foreach (i = 1:30) %dopar% {
setTxtProgressBar(pb, i)
Sys.sleep(0.5)
}
stopCluster(cl)
txtProgressBar
рдХреЗрд╡рд▓ рддрднреА рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ рдЬрдм рдЯрд╛рдЗрдк 2 рдпрд╛ 3 рд╣реЛред рдлрд╝рдВрдХреНрд╢рди рдХреЗ рдореИрдиреБрдЕрд▓ рдХреЗ рдЕрдиреБрд╕рд╛рд░:
рд╢реИрд▓реА = 1 рдФрд░ рд╢реИрд▓реА = 2 рдХреЗрд╡рд▓ рдЪрд╛рд░ рдХреА рдПрдХ рдкрдВрдХреНрддрд┐ рджрд┐рдЦрд╛рддрд╛ рд╣реИред рд╡реЗ рдЙрд╕ рд╢реИрд▓реА рдореЗрдВ рднрд┐рдиреНрди рд╣реЛрддреЗ рд╣реИрдВ = 2 рд╣рд░ рдмрд╛рд░ рд░реЗрдЦрд╛ рдХреЛ рдлрд┐рд░ рд╕реЗ рдЦреАрдВрдЪрддрд╛ рд╣реИ, рдЬреЛ рдЙрдкрдпреЛрдЧреА рд╣реЛрддрд╛ рд╣реИ рдпрджрд┐ рдЕрдиреНрдп рдХреЛрдб R рдХрдВрд╕реЛрд▓ рдкрд░ рд▓рд┐рдЦ рд░рд╣реЗ рд╣реЛрдВред рд╢реИрд▓реА = 3 рджреНрд╡рд╛рд░рд╛ рд╢реНрд░реЗрдгреА рдХреЗ рдЕрдВрдд рдХреЛ рдЪрд┐рд╣реНрдирд┐рдд рдХрд░рддрд╛ рд╣реИ | рдФрд░ рдмрд╛рд░ рдХреЗ рджрд╛рдпреАрдВ рдУрд░ рдкреНрд░рддрд┐рд╢рдд рджреЗрддрд╛ рд╣реИред
рдореБрдЭреЗ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ txtProgressBar
рдХрд╛рдо рдХрд░рдиреЗ рдХрд╛ рдХрд╛рд░рдг рдпрд╣ рд╣реИ рдХрд┐ рдХреНрд▓рд╕реНрдЯрд░ рдмрдирд╛рддреЗ рд╕рдордп outfile = ""
рдореМрдЬреВрдж рд╣реИред
рдореБрдЭреЗ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рд╕реНрдЯрд╛рдЗрд▓ 2 рдХреЗ рд▓рд┐рдП txtProgressBar
рдирдХрд▓ рдХрд░рдиреЗ рд╕реЗ рдпрд╣ рд╣рд▓ рд╣реЛ рдЬрд╛рдПрдЧрд╛ред
рд╕рдмрд╕реЗ рдЙрдкрдпреЛрдЧреА рдЯрд┐рдкреНрдкрдгреА
рдпрд╛ рд╕рдорд╛рдирд╛рдВрддрд░ рдкреИрдХреЗрдЬ? рдпрджрд┐ рдирд╣реАрдВ, рддреЛ рдЗрд╕ рд╕реБрд╡рд┐рдзрд╛ рдХреЗ рд▓рд┐рдП +1 рдХрд░реЗрдВред