# Section - 7 Predictive Modeling

We finally have everything we need to start making predictive models now that the data has been cleaned and we have come up with a gameplan to understand the efficacy of the models.

## 7.1 Example Simple Model

We can start by making a simple **linear regression** model:

```
##
## Call:
## lm(formula = target_price_24h ~ ., data = cryptodata)
##
## Coefficients:
## (Intercept) symbolABBC symbolADA symbolALCX
## -2931.071972984 -2.023768936 0.045974199 8.443474269
## symbolALPACA symbolARDR symbolATOM symbolAVA
## -2.015418386 0.011227288 -0.534116329 0.049911443
## symbolBAL symbolBAT symbolBICO symbolBNT
## 0.675234838 0.019994623 -0.535961817 0.115037643
## symbolBRD symbolBSV symbolBTC symbolBTG
## -0.376600036 4.000958777 1626.892548288 1.226760448
## symbolBTRST symbolC20 symbolCELR symbolCHZ
## 0.315376432 -1.899785117 0.014768939 0.011325102
## symbolCKB symbolCND symbolCOCOS symbolCROOLD
## -0.365017425 0.377545442 0.029148162 0.020589916
## symbolCRPT symbolDASH symbolDCR symbolDGB
## 0.550095800 3.642217788 3.144736242 0.717829498
## symbolDODO symbolDYDX symbolELF symbolENJ
## 0.003570268 -1.808972704 0.135778053 0.080951995
## symbolEOS symbolETC symbolETH symbolFIDA
## 0.099915296 -0.197220102 127.567355158 -1.984751588
## symbolGODS symbolHT symbolICP symbolINJ
## -1.920336747 0.390615194 0.863551918 0.308097663
## symbolIOST symbolIOTA symbolJST symbolKMD
## -2.028271647 -2.052110629 0.005299144 0.007898325
## symbolKNC symbolKRRX symbolLAZIO symbolLEO
## 0.377272842 -0.751734799 -1.233258331 0.244682242
## symbolLTC symbolMAID symbolMANA symbolMC
## 4.542186010 0.836666073 0.121349795 -0.469283095
## symbolMTLX symbolNAV symbolNCT symbolNEAR
## -1.973343667 0.176390128 0.014801610 0.586165585
## symbolNEXO symbolRCN symbolRGT symbolRIF
## 0.086523990 0.003703111 0.016031417 -2.024562721
## symbolSNX symbolSPI symbolSTORJ symbolSXP
## -1.706530864 -1.391458718 -1.654125363 0.155517426
## symbolTOMO symbolTRX symbolTXA symbolVGX
## -2.029782841 0.005899206 0.133919361 -1.962466620
## symbolVIB symbolWAXP symbolXCH symbolXEM
## 0.682852209 0.070288358 3.169671094 0.007532595
## symbolXMR symbolZEC symbolZRX symbolZYN
## 6.860526296 4.749932547 0.074432537 0.036653118
## date_time_utc date price_usd lagged_price_1h
## 0.000003617 -0.156347691 0.473589436 0.223709420
## lagged_price_2h lagged_price_3h lagged_price_6h lagged_price_12h
## 0.095960281 0.049824278 -0.001877275 0.030384021
## lagged_price_24h lagged_price_3d trainingtest trainingtrain
## -0.000064063 0.086193197 -31.034012898 -15.233047353
## split
## -5.754685586
```

We defined the **formula** for the model as ** target_price_24h ~ .**, which means that we are want to make predictions for the

**target_price_24h**field, and use (

**) every other column found in the data (**

`~`

**). In other words, we specified a model that uses the**

`.`

**target_price_24h**field as the dependent variable, and all other columns (

**) as the independent variables. Meaning, we are looking to predict the**

`.`

**target_price_24h**, which is the only column that refers to the future, and use all the information available at the time the rest of the data was collected in order to infer statistical relationships that can help us forecast the future values of the

**target_price_24h**field when it is still unknown on new data that we want to make new predictions for.

In the example above we used the **cryptodata** object which contained all the non-nested data, and was a big oversimplification of the process we will actually use.

### 7.1.1 Using Functional Programming

From this point forward, we will deal with the new dataset **cryptodata_nested**, review the previous section where it was created if you missed it. Here is a preview of the data again:

```
## # A tibble: 380 x 5
## # Groups: symbol, split [380]
## symbol split train_data test_data holdout_data
## <chr> <dbl> <list> <list> <list>
## 1 BTC 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 2 ETH 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 3 EOS 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 4 LTC 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 5 ADA 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 6 BSV 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 7 ZEC 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 8 TRX 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 9 HT 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [75 x 11]>
## 10 XMR 1 <tibble [208 x 11]> <tibble [72 x 11]> <tibble [72 x 11]>
## # ... with 370 more rows
```

Because we are now dealing with a **nested dataframe**, performing operations on the individual nested datasets is not as straightforward. We could extract the individual elements out of the data using **indexing**, for example we can return the first element of the column **train_data** by running this code:

```
## # A tibble: 208 x 11
## date_time_utc date price_usd target_price_24h lagged_price_1h
## <dttm> <date> <dbl> <dbl> <dbl>
## 1 2021-11-23 00:00:01 2021-11-23 56261. 57545. 56696.
## 2 2021-11-23 01:00:05 2021-11-23 56600. 57500. 56261.
## 3 2021-11-23 02:00:01 2021-11-23 56878. 57047. 56600.
## 4 2021-11-23 03:00:02 2021-11-23 56911. 56247. 56878.
## 5 2021-11-23 04:00:01 2021-11-23 56948. 56409. 56911.
## 6 2021-11-23 05:00:01 2021-11-23 56797. 56570. 56948.
## 7 2021-11-23 06:00:01 2021-11-23 56550. 56595. 56797.
## 8 2021-11-23 07:00:01 2021-11-23 56377. 56607. 56550.
## 9 2021-11-23 08:00:01 2021-11-23 56012. 56520. 56377.
## 10 2021-11-23 09:00:01 2021-11-23 56272. 56856. 56012.
## # ... with 198 more rows, and 6 more variables: lagged_price_2h <dbl>,
## # lagged_price_3h <dbl>, lagged_price_6h <dbl>, lagged_price_12h <dbl>,
## # lagged_price_24h <dbl>, lagged_price_3d <dbl>
```

remove STORJ to resolve weird problem that arose March 3rd, 2021:

As we already saw dataframes are really flexible as a data structure. We can create a new column in the data to store the models themselves that are associated with each row of the data. There are several ways that we could go about doing this (this tutorial itself was written to execute the same commands using three fundamentally different methodologies), but in this tutorial we will take a **functional programming** approach. This means we will focus the operations we will perform on the actions we want to take themselves, which can be contrasted to a **for loop** which emphasizes the objects more using a similar structure that we used in the example above showing the first element of the **train_data** column.

When using a **functional programming** approach, we first need to create functions for the operations we want to perform. Let’s wrap the **lm()** function we used as an example earlier and create a new custom function called **linear_model**, which takes a dataframe as an input (the **train_data** we will provide for each row of the nested dataset), and generates a linear regression model:

We can now use the **map()** function from the **purrr** package in conjunction with the **mutate()** function from **dplyr** to create a new column in the data which contains an individual linear regression model for each row of **train_data**:

```
## # A tibble: 375 x 6
## # Groups: symbol, split [375]
## symbol split train_data test_data holdout_data lm_model
## <chr> <dbl> <list> <list> <list> <list>
## 1 BTC 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 2 ETH 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 3 EOS 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 4 LTC 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 5 ADA 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 6 BSV 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 7 ZEC 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 8 TRX 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 9 HT 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [75 x 11~ <lm>
## 10 XMR 1 <tibble [208 x 11]> <tibble [72 x 11~ <tibble [72 x 11~ <lm>
## # ... with 365 more rows
```

Awesome! Now we can use the same tools we learned in the high-level version to make a wider variety of predictive models to test

## 7.2 Caret

Refer back to the high-level version of the tutorial for an explanation of the caret package, or consult this document: https://topepo.github.io/caret/index.html

### 7.2.1 Parallel Processing

R is a ** single thredded** application, meaning it only uses one CPU at a time when performing operations. The step below is optional and uses the

**parallel**and

**doParallel**packages to allow R to use more than a single CPU when creating the predictive models, which will speed up the process considerably:

### 7.2.2 More Functional Programming

Now we can repeat the process we used earlier to create a column with the linear regression models to create **the exact same models**, but this time using the **caret** package.

```
linear_model_caret <- function(df){
train(target_price_24h ~ . -date_time_utc -date, data = df,
method = 'lm',
trControl=trainControl(method="none"))
}
```

*We specified the method as *

`lm`

for linear regression. See the high-level version for a refresher on how to use different methods to make different models: https://cryptocurrencyresearch.org/high-level/#/method-options. the trControl argument tells the caret package to avoid additional resampling of the data. As a default behavior caret will do re-sampling on the data and do hyperparameter tuning to select values to use for the paramters to get the best results, but we will avoid this discussion for this tutorial. See the official caret documentation for more details.Here is the full list of models that we can make using the **caret** package and the steps described the high-level version of the tutorial:

We can now use the new function we created **linear_model_caret** in conjunction with **map()** and **mutate()** to create a new column in the **cryptodata_nested** dataset called **lm_model** with the trained linear regression model for each split of the data (by cryptocurrency **symbol** and **split**):

We can see the new column called **lm_model** with the nested dataframe grouping variables:

```
## # A tibble: 375 x 3
## # Groups: symbol, split [375]
## symbol split lm_model
## <chr> <dbl> <list>
## 1 BTC 1 <train>
## 2 ETH 1 <train>
## 3 EOS 1 <train>
## 4 LTC 1 <train>
## 5 ADA 1 <train>
## 6 BSV 1 <train>
## 7 ZEC 1 <train>
## 8 TRX 1 <train>
## 9 HT 1 <train>
## 10 XMR 1 <train>
## # ... with 365 more rows
```

And we can view the summarized contents of the first trained model:

```
## Linear Regression
##
## 208 samples
## 10 predictor
##
## No pre-processing
## Resampling: None
```

### 7.2.3 Generalize the Function

We can adapt the function we built earlier for the linear regression models using caret, and add a parameter that allows us to specify the **method** we want to use (as in what predictive model):

### 7.2.4 XGBoost Models

Now we can do the same thing we did earlier for the linear regression models, but use the new function called **model_caret** using the **map2()** function to also specify the model as **xgbLinear** to create an **XGBoost** model:

```
cryptodata_nested <- mutate(cryptodata_nested,
xgb_model = map2(train_data, "xgbLinear", model_caret))
```

We won’t dive into the specifics of each individual model as the correct one to use may depend on a lot of factors and that is a discussion outside the scope of this tutorial. We chose to use the **XGBoost** model as an example because it has recently gained a lot of popularity as a very effective framework for a variety of problems, and is an essential model for any data scientist to have at their disposal.

There are several possible configurations for XGBoost models, you can find the official documentation here: https://xgboost.readthedocs.io/en/latest/parameter.html

### 7.2.5 Neural Network Models

We can keep adding models. As we saw, caret allows for the usage of over 200 predictive models. Let’s make another set of models, this time setting the **method** to to create

`dnn`

**deep neural networks**:

*Again, we will not dive into the specifics of the individual models, but a quick Google search will return a myriad of information on the subject.*

### 7.2.6 Random Forest Models

Next let’s use create Random Forest models using the **method** `ctree`

### 7.2.7 Principal Component Regression

For one last set of models, let’s make Principal Component Regression models using the **method** `pcr`

### 7.2.8 Caret Options

Caret offers some additional options to help pre-process the data as well. We outlined an example of this in the high-level version of the tutorial when showing how to make a **Support Vector Machine** model, which requires the data to be **centered** and **scaled** to avoid running into problems (which we won’t discuss further here).

## 7.3 Make Predictions

Awesome! We have trained the predictive models, and we want to start getting a better understanding of how accurate the models are on data they have never seen before. In order to make these comparisons, we will want to make predictions on the test and holdout datasets, and compare those predictions to what actually ended up happening.

In order to make predictions, we can use the **prediict()** function, here is an example on the first elements of the nested dataframe:

```
predict(object = cryptodata_nested$lm_model[[1]],
newdata = cryptodata_nested$test_data[[1]],
na.action = na.pass)
```

```
## 1 2 3 4 5 6 7 8
## NA 56337.07 56640.10 56509.77 56737.98 56607.62 NA 56545.82
## 9 10 11 12 13 14 15 16
## 56766.93 56572.76 56603.71 56605.87 56418.54 56458.85 56312.72 56440.87
## 17 18 19 20 21 22 23 24
## 56360.62 56329.97 NA 56064.21 56528.13 56655.01 56496.61 56795.20
## 25 26 27 28 29 30 31 32
## 56696.13 56623.90 56404.54 56492.84 56404.30 56419.11 56532.94 56610.12
## 33 34 35 36 37 38 39 40
## 56435.37 56532.55 56422.14 56408.28 56564.77 56644.84 56769.04 56671.01
## 41 42 43 44 45 46 47 48
## 56793.08 56419.34 56343.54 56039.93 56197.15 56362.83 55898.74 55759.70
## 49 50 51 52 53 54 55 56
## 55944.11 55933.88 56069.44 55919.53 55891.13 56047.02 55607.26 54894.44
## 57 58 59 60 61 62 63 64
## 54063.99 54463.72 54543.04 54657.55 54662.77 54586.50 54383.80 54683.44
## 65 66 67 68 69 70 71 72
## 54866.08 55250.15 NA 55156.40 55076.83 55224.91 55467.20 55374.08
```

Now we can create a new custom function called **make_predictions** that wraps this functionality in a way that we can use with **map()** to iterate through all options of the nested dataframe:

```
make_predictions <- function(model, test){
predict(object = model, newdata = test, na.action = na.pass)
}
```

Now we can create the new columns **lm_test_predictions** and **lm_holdout_predictions** with the predictions:

```
cryptodata_nested <- mutate(cryptodata_nested,
lm_test_predictions = map2(lm_model,
test_data,
make_predictions),
lm_holdout_predictions = map2(lm_model,
holdout_data,
make_predictions))
```

The predictions were made using the models that had only seen the **training data**, and we can start assessing how good the model is on data it has not seen before in the **test** and **holdout** sets. Let’s view the results from the previous step:

```
## # A tibble: 375 x 4
## # Groups: symbol, split [375]
## symbol split lm_test_predictions lm_holdout_predictions
## <chr> <dbl> <list> <list>
## 1 BTC 1 <dbl [72]> <dbl [75]>
## 2 ETH 1 <dbl [72]> <dbl [75]>
## 3 EOS 1 <dbl [72]> <dbl [75]>
## 4 LTC 1 <dbl [72]> <dbl [75]>
## 5 ADA 1 <dbl [72]> <dbl [75]>
## 6 BSV 1 <dbl [72]> <dbl [75]>
## 7 ZEC 1 <dbl [72]> <dbl [75]>
## 8 TRX 1 <dbl [72]> <dbl [75]>
## 9 HT 1 <dbl [72]> <dbl [75]>
## 10 XMR 1 <dbl [72]> <dbl [72]>
## # ... with 365 more rows
```

Now we can do the same for the rest of the models:

```
cryptodata_nested <- mutate(cryptodata_nested,
# XGBoost:
xgb_test_predictions = map2(xgb_model,
test_data,
make_predictions),
# holdout
xgb_holdout_predictions = map2(xgb_model,
holdout_data,
make_predictions),
# Neural Network:
nnet_test_predictions = map2(nnet_model,
test_data,
make_predictions),
# holdout
nnet_holdout_predictions = map2(nnet_model,
holdout_data,
make_predictions),
# Random Forest:
rf_test_predictions = map2(rf_model,
test_data,
make_predictions),
# holdout
rf_holdout_predictions = map2(rf_model,
holdout_data,
make_predictions),
# PCR:
pcr_test_predictions = map2(pcr_model,
test_data,
make_predictions),
# holdout
pcr_holdout_predictions = map2(pcr_model,
holdout_data,
make_predictions))
```

We are done using the **caret** package and can stop the parallel processing cluster:

## 7.4 Timeseries

Because this tutorial is already very dense, we will just focus on the models we created above. When creating predictive models on timeseries data there are some other excellent options which consider when the information was collected in similar but more intricate ways to the way we did when creating the lagged variables.

For more information on using excellent tools for ARIMA and ETS models, consult the high-level version of this tutorial where they were discussed.

Move on to the next section ➡️ to assess the accuracy of the models as described in the previous section.