Untitled

Install and load required packages

library(lubridate)

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

library(ggplot2)
library(caret)

## Loading required package: lattice

library(e1071)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(vcd)

## Loading required package: grid

library(dplyr)
library(stringr)

Import data

bg <- read.csv("/home/martin/Documents/fid_files/archive/BG_with_webscan.csv")
fi <- read.csv("/home/martin/Documents/fid_files/archive/FI_with_webscan.csv")
ni <- read.csv("/home/martin/Documents/fid_files/archive/NI_with_webscan.csv")
sk <- read.csv("/home/martin/Documents/fid_files/archive/SK_with_webscan.csv")

Convert traveller_rating_4 column to character

bg$traveller_rating_4 <- as.character(bg$traveller_rating_4)
fi$traveller_rating_4 <- as.character(fi$traveller_rating_4)
ni$traveller_rating_4 <- as.character(ni$traveller_rating_4)
sk$traveller_rating_4 <- as.character(sk$traveller_rating_4)

Combine datasets

print("======================================")

## [1] "======================================"