1. Получение исторических данных биткоина с помощью функции getCryto()

Могу реализовать так, чтобы все исторические данные всех криптовалют получились - это медленно - но могу повысить производительность за счёт параллельного вычиссления

# getCryto(coin, start_date, end_date)
# Где:
#     coin: название криптовалют("bitcoin", "ethereum",...)
#     start_date: дата, с которой начнем собирать исторические данные
#     end_date: дата, с которой закочим собирать исторические данные
# Если не указать эти параметры то данные собираются автоматически по биткону (100 последних значений)

2. WriteMySQL - осуществляет написание данных, полученных функцией getCryto() на MySQL

3. Получение данных из MySQL

con <- dbConnect(MySQL(), user = 'root', dbname = 'r', host = 'localhost')
dbListTables(con)
[1] "coin"         "fora_year"    "history_coin"
myQuery <- "select * from history_coin;"
data<- dbGetQuery(con, myQuery)
head(data)
str(data)
'data.frame':   100 obs. of  8 variables:
 $ row_names : chr  "1" "2" "3" "4" ...
 $ Date      : chr  "Mar 27, 2018" "Mar 26, 2018" "Mar 25, 2018" "Mar 24, 2018" ...
 $ Open      : num  8200 8498 8613 8902 8736 ...
 $ High      : num  8233 8530 8682 8996 8880 ...
 $ Low       : num  7797 7921 8449 8666 8361 ...
 $ Close     : num  7833 8209 8496 8668 8880 ...
 $ Volume    : chr  "5,378,250,000" "5,921,040,000" "4,569,880,000" "5,664,600,000" ...
 $ Market Cap: chr  "138,919,000,000" "143,960,000,000" "145,882,000,000" "150,762,000,000" ...

4. График этих 100 последних значений биткоина

Если Мы получили большой набор данных биткоина то хорошо видны сезонность и тренд данных:

5. прогнозирование 90 знчений вперёд:

                    Point Forecast        Lo 80    Hi 80         Lo 95     Hi 95
2018-03-27 17:00:00     7719.08889   6737.79169 8700.386   6218.324339  9219.853
2018-03-28 17:00:00     7605.13778   6217.37398 8992.902   5482.736197  9727.539
2018-03-29 17:00:00     7491.18667   5791.53007 9190.843   4891.786216 10090.587
2018-03-30 17:00:00     7377.23556   5414.64117 9339.830   4375.706456 10378.765
2018-03-31 17:00:00     7263.28444   5069.03721 9457.532   3907.472893 10619.096
2018-04-01 17:00:00     7149.33333   4745.65592 9553.011   3473.225962 10825.441
2018-04-02 17:00:00     7035.38222   4439.11388 9631.651   3064.732447 11006.032
2018-04-03 17:00:00     6921.43111   4145.90351 9696.959   2676.627950 11166.234
2018-04-04 17:00:00     6807.48000   3863.58842 9751.372   2305.186350 11309.774
2018-04-05 17:00:00     6693.52889   3590.39469 9796.663   1947.694680 11439.363
2018-04-06 17:00:00     6579.57778   3324.98318 9834.172   1602.104867 11557.051
2018-04-07 17:00:00     6465.62667   3066.31347 9864.940   1266.825766 11664.428
2018-04-08 17:00:00     6351.67556   2813.55821 9889.793    940.592019 11762.759
2018-04-09 17:00:00     6237.72444   2566.04655 9909.402    622.377681 11853.071
2018-04-10 17:00:00     6123.77333   2323.22564 9924.321    311.337225 11936.209
2018-04-11 17:00:00     6009.82222   2084.63345 9935.011      6.764023 12012.880
2018-04-12 17:00:00     5895.87111   1849.87913 9941.863   -291.939647 12083.682
2018-04-13 17:00:00     5781.92000   1618.62860 9945.211   -585.284741 12149.125
2018-04-14 17:00:00     5667.96889   1390.59359 9945.344   -873.712122 12209.650
2018-04-15 17:00:00     5554.01778   1165.52331 9942.512  -1157.605326 12265.641
2018-04-16 17:00:00     5440.06667    943.19800 9936.935  -1437.300483 12317.434
2018-04-17 17:00:00     5326.11556    723.42373 9928.807  -1713.094141 12365.325
2018-04-18 17:00:00     5212.16444    506.02843 9918.300  -1985.249493 12409.578
2018-04-19 17:00:00     5098.21333    290.85851 9905.568  -2254.001409 12450.428
2018-04-20 17:00:00     4984.26222     77.77625 9890.748  -2519.560527 12488.085
2018-04-21 17:00:00     4870.31111   -133.34243 9873.965  -2782.116614 12522.739
2018-04-22 17:00:00     4756.36000   -342.60979 9855.330  -3041.841352 12554.561
2018-04-23 17:00:00     4642.40889   -550.12779 9834.946  -3298.890662 12583.708
2018-04-24 17:00:00     4528.45778   -755.98934 9812.905  -3553.406660 12610.322
2018-04-25 17:00:00     4414.50667   -960.27942 9789.293  -3805.519308 12634.533
2018-04-26 17:00:00     4300.55556  -1163.07599 9764.187  -4055.347822 12656.459
2018-04-27 17:00:00     4186.60444  -1364.45076 9737.660  -4303.001877 12676.211
2018-04-28 17:00:00     4072.65333  -1564.46987 9709.777  -4548.582641 12693.889
2018-04-29 17:00:00     3958.70222  -1763.19451 9680.599  -4792.183674 12709.588
2018-04-30 17:00:00     3844.75111  -1960.68138 9650.184  -5033.891702 12723.394
2018-05-01 17:00:00     3730.80000  -2156.98316 9618.583  -5273.787299 12735.387
2018-05-02 17:00:00     3616.84889  -2352.14891 9585.847  -5511.945482 12745.643
2018-05-03 17:00:00     3502.89778  -2546.22439 9552.020  -5748.436229 12754.232
2018-05-04 17:00:00     3388.94667  -2739.25235 9517.146  -5983.324943 12761.218
2018-05-05 17:00:00     3274.99556  -2931.27283 9481.264  -6216.672863 12766.664
2018-05-06 17:00:00     3161.04444  -3122.32340 9444.412  -6448.537419 12770.626
2018-05-07 17:00:00     3047.09333  -3312.43933 9406.626  -6678.972564 12773.159
2018-05-08 17:00:00     2933.14222  -3501.65380 9367.938  -6908.029053 12774.313
2018-05-09 17:00:00     2819.19111  -3689.99809 9328.380  -7135.754710 12774.137
2018-05-10 17:00:00     2705.24000  -3877.50170 9287.982  -7362.194655 12772.675
2018-05-11 17:00:00     2591.28889  -4064.19249 9246.770  -7587.391515 12769.969
2018-05-12 17:00:00     2477.33778  -4250.09684 9204.772  -7811.385613 12766.061
2018-05-13 17:00:00     2363.38667  -4435.23972 9162.013  -8034.215136 12760.988
2018-05-14 17:00:00     2249.43556  -4619.64480 9118.516  -8255.916294 12754.787
2018-05-15 17:00:00     2135.48444  -4803.33456 9074.303  -8476.523457 12747.492
2018-05-16 17:00:00     2021.53333  -4986.33034 9029.397  -8696.069288 12739.136
2018-05-17 17:00:00     1907.58222  -5168.65248 8983.817  -8914.584852 12729.749
2018-05-18 17:00:00     1793.63111  -5350.32030 8937.583  -9132.099730 12719.362
2018-05-19 17:00:00     1679.68000  -5531.35223 8890.712  -9348.642114 12708.002
2018-05-20 17:00:00     1565.72889  -5711.76588 8843.224  -9564.238895 12695.697
2018-05-21 17:00:00     1451.77778  -5891.57801 8795.134  -9778.915750 12682.471
2018-05-22 17:00:00     1337.82667  -6070.80468 8746.458  -9992.697211 12668.351
2018-05-23 17:00:00     1223.87556  -6249.46122 8697.212 -10205.606742 12653.358
2018-05-24 17:00:00     1109.92444  -6427.56232 8647.411 -10417.666796 12637.516
2018-05-25 17:00:00      995.97333  -6605.12205 8597.069 -10628.898883 12620.846
2018-05-26 17:00:00      882.02222  -6782.15387 8546.198 -10839.323617 12603.368
2018-05-27 17:00:00      768.07111  -6958.67072 8494.813 -11048.960772 12585.103
2018-05-28 17:00:00      654.12000  -7134.68501 8442.925 -11257.829326 12566.069
2018-05-29 17:00:00      540.16889  -7310.20866 8390.546 -11465.947510 12546.285
2018-05-30 17:00:00      426.21778  -7485.25313 8337.689 -11673.332843 12525.768
2018-05-31 17:00:00      312.26667  -7659.82942 8284.363 -11880.002173 12504.536
2018-06-01 17:00:00      198.31556  -7833.94815 8230.579 -12085.971713 12482.603
2018-06-02 17:00:00       84.36444  -8007.61952 8176.348 -12291.257072 12459.986
2018-06-03 17:00:00      -29.58667  -8180.85336 8121.680 -12495.873289 12436.700
2018-06-04 17:00:00     -143.53778  -8353.65914 8066.584 -12699.834859 12412.759
2018-06-05 17:00:00     -257.48889  -8526.04602 8011.068 -12903.155760 12388.178
2018-06-06 17:00:00     -371.44000  -8698.02280 7955.143 -13105.849482 12362.969
2018-06-07 17:00:00     -485.39111  -8869.59801 7898.816 -13307.929046 12337.147
2018-06-08 17:00:00     -599.34222  -9040.77987 7842.095 -13509.407029 12310.723
2018-06-09 17:00:00     -713.29333  -9211.57632 7784.990 -13710.295586 12283.709
2018-06-10 17:00:00     -827.24444  -9381.99505 7727.506 -13910.606466 12256.118
2018-06-11 17:00:00     -941.19556  -9552.04349 7669.652 -14110.351034 12227.960
2018-06-12 17:00:00    -1055.14667  -9721.72882 7611.435 -14309.540288 12199.247
2018-06-13 17:00:00    -1169.09778  -9891.05802 7552.862 -14508.184872 12169.989
2018-06-14 17:00:00    -1283.04889 -10060.03782 7493.940 -14706.295096 12140.197
2018-06-15 17:00:00    -1397.00000 -10228.67475 7434.675 -14903.880949 12109.881
2018-06-16 17:00:00    -1510.95111 -10396.97514 7375.073 -15100.952112 12079.050
2018-06-17 17:00:00    -1624.90222 -10564.94513 7315.141 -15297.517972 12047.714
2018-06-18 17:00:00    -1738.85333 -10732.59067 7254.884 -15493.587633 12015.881
2018-06-19 17:00:00    -1852.80444 -10899.91755 7194.309 -15689.169932 11983.561
2018-06-20 17:00:00    -1966.75556 -11066.93136 7133.420 -15884.273443 11950.762
2018-06-21 17:00:00    -2080.70667 -11233.63756 7072.224 -16078.906493 11917.493
2018-06-22 17:00:00    -2194.65778 -11400.04143 7010.726 -16273.077171 11883.762
2018-06-23 17:00:00    -2308.60889 -11566.14810 6948.930 -16466.793336 11849.576
2018-06-24 17:00:00    -2422.56000 -11731.96258 6886.843 -16660.062628 11814.943

NULL
LS0tDQp0aXRsZTogIkPRgtC10L/QtdC90Ywg0YDQtdCw0LvQuNC30LDRhtC40Lgg0L/RgNC+0LXQutGC0LAgLSDQn9GA0L7Qs9C90L7Qt9C40YDQvtCy0LDQvdC40LUg0YbQtdC90Ysg0LHQuNGC0LrQvtC40L3QsCINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCiMjIyMgMS4g0J/QvtC70YPRh9C10L3QuNC1INC40YHRgtC+0YDQuNGH0LXRgdC60LjRhSDQtNCw0L3QvdGL0YUg0LHQuNGC0LrQvtC40L3QsCDRgSDQv9C+0LzQvtGJ0YzRjiDRhNGD0L3QutGG0LjQuCAqZ2V0Q3J5dG8oKSogDQoNCtCc0L7Qs9GDINGA0LXQsNC70LjQt9C+0LLQsNGC0Ywg0YLQsNC6LCDRh9GC0L7QsdGLINCy0YHQtSDQuNGB0YLQvtGA0LjRh9C10YHQutC40LUg0LTQsNC90L3Ri9C1INCy0YHQtdGFINC60YDQuNC/0YLQvtCy0LDQu9GO0YIg0L/QvtC70YPRh9C40LvQuNGB0YwgLSDRjdGC0L4g0LzQtdC00LvQtdC90L3QviAtINC90L4g0LzQvtCz0YMg0L/QvtCy0YvRgdC40YLRjCDQv9GA0L7QuNC30LLQvtC00LjRgtC10LvRjNC90L7RgdGC0Ywg0LfQsCDRgdGH0ZHRgiDQv9Cw0YDQsNC70LvQtdC70YzQvdC+0LPQviDQstGL0YfQuNGB0YHQu9C10L3QuNGPDQoNCmBgYHtyfQ0KIyBnZXRDcnl0byhjb2luLCBzdGFydF9kYXRlLCBlbmRfZGF0ZSkNCiMg0JPQtNC1Og0KIyAgICAgY29pbjog0L3QsNC30LLQsNC90LjQtSDQutGA0LjQv9GC0L7QstCw0LvRjtGCKCJiaXRjb2luIiwgImV0aGVyZXVtIiwuLi4pDQojICAgICBzdGFydF9kYXRlOiDQtNCw0YLQsCwg0YEg0LrQvtGC0L7RgNC+0Lkg0L3QsNGH0L3QtdC8INGB0L7QsdC40YDQsNGC0Ywg0LjRgdGC0L7RgNC40YfQtdGB0LrQuNC1INC00LDQvdC90YvQtQ0KIyAgICAgZW5kX2RhdGU6INC00LDRgtCwLCDRgSDQutC+0YLQvtGA0L7QuSDQt9Cw0LrQvtGH0LjQvCDRgdC+0LHQuNGA0LDRgtGMINC40YHRgtC+0YDQuNGH0LXRgdC60LjQtSDQtNCw0L3QvdGL0LUNCiMg0JXRgdC70Lgg0L3QtSDRg9C60LDQt9Cw0YLRjCDRjdGC0Lgg0L/QsNGA0LDQvNC10YLRgNGLINGC0L4g0LTQsNC90L3Ri9C1INGB0L7QsdC40YDQsNGO0YLRgdGPINCw0LLRgtC+0LzQsNGC0LjRh9C10YHQutC4INC/0L4g0LHQuNGC0LrQvtC90YMgKDEwMCDQv9C+0YHQu9C10LTQvdC40YUg0LfQvdCw0YfQtdC90LjQuSkNCmBgYA0KDQojIyMjIDIuIFdyaXRlTXlTUUwgLSDQvtGB0YPRidC10YHRgtCy0LvRj9C10YIg0L3QsNC/0LjRgdCw0L3QuNC1INC00LDQvdC90YvRhSwg0L/QvtC70YPRh9C10L3QvdGL0YUg0YTRg9C90LrRhtC40LXQuSAqZ2V0Q3J5dG8oKSog0L3QsCBNeVNRTA0KDQohW10oMDEucG5nKQ0KDQojIyMjIDMuINCf0L7Qu9GD0YfQtdC90LjQtSDQtNCw0L3QvdGL0YUg0LjQtyBNeVNRTA0KDQpgYGB7cn0NCmNvbiA8LSBkYkNvbm5lY3QoTXlTUUwoKSwgdXNlciA9ICdyb290JywgZGJuYW1lID0gJ3InLCBob3N0ID0gJ2xvY2FsaG9zdCcpDQpkYkxpc3RUYWJsZXMoY29uKQ0KbXlRdWVyeSA8LSAic2VsZWN0ICogZnJvbSBoaXN0b3J5X2NvaW47Ig0KZGF0YTwtIGRiR2V0UXVlcnkoY29uLCBteVF1ZXJ5KQ0KaGVhZChkYXRhKQ0Kc3RyKGRhdGEpDQpgYGANCg0KIyMjIyA0LiDQk9GA0LDRhNC40Log0Y3RgtC40YUgMTAwINC/0L7RgdC70LXQtNC90LjRhSDQt9C90LDRh9C10L3QuNC5INCx0LjRgtC60L7QuNC90LANCg0KYGBge3IgZWNobz1GQUxTRSwgZmlnLmhlaWdodD03LCBmaWcud2lkdGg9MTB9DQp0cw0KYGBgDQoNCiMjIyMg0JXRgdC70Lgg0JzRiyDQv9C+0LvRg9GH0LjQu9C4INCx0L7Qu9GM0YjQvtC5INC90LDQsdC+0YAg0LTQsNC90L3Ri9GFINCx0LjRgtC60L7QuNC90LAg0YLQviDRhdC+0YDQvtGI0L4g0LLQuNC00L3RiyDRgdC10LfQvtC90L3QvtGB0YLRjCDQuCDRgtGA0LXQvdC0INC00LDQvdC90YvRhToNCg0KDQohW10oMDMucG5nKQ0KDQojIyMjIDUuINC/0YDQvtCz0L3QvtC30LjRgNC+0LLQsNC90LjQtSA5MCDQt9C90YfQtdC90LjQuSDQstC/0LXRgNGR0LQ6DQoNCmBgYHtyIGVjaG89RkFMU0V9DQptZm9yZWNhc3QNCmBgYA0KDQpgYGB7ciBlY2hvPUZBTFNFLCBmaWcuaGVpZ2h0PTcsIGZpZy53aWR0aD0xMH0NCnByaW50KGQpDQpgYGANCg0K