メモメモ。
学習時間の計測。
start <- Sys.time() finish <- Sys.time() finish - start
本日やった分の個数のカウント。
apply(tango.cp[1:nrow(tango.cp),][c("num_of_right","num_of_right","complete")] - tango[1:nrow(tango),][c("num_of_right","num_of_right","complete")],2,sum)
メモメモ。
学習時間の計測。
start <- Sys.time() finish <- Sys.time() finish - start
本日やった分の個数のカウント。
apply(tango.cp[1:nrow(tango.cp),][c("num_of_right","num_of_right","complete")] - tango[1:nrow(tango),][c("num_of_right","num_of_right","complete")],2,sum)