// open needed namespaces
open Deedle
open RDotNet
open RProvider
open RProvider.``base``
open RProvider.Amelia
open RProvider.caret
open RProvider.datasets
open RProvider.graphics
open RProvider.neuralnet
/// helper function to evaluate a string in R
let eval (text:string) = R.eval(R.parse(namedParams ["text", text ]))
// load data
let rawdata = Frame.ReadCsv(__SOURCE_DIRECTORY__ + "/txt/train.csv")
let test = Frame.ReadCsv(__SOURCE_DIRECTORY__ + "/txt/test.csv")
let print = fun (printer:Deedle.Internal.IFsiFormattable) -> "\n" + (printer.Format())
R.getwd().Print()
val it : string = "[1] "C:/Github/ProjectEuler/notebooks" "
// visualize missing data
// visualize missing data
eval """jpeg("titanic_missing.jpg")"""
R.par(namedParams ["mfrow", [1;2] ])
R.missmap(rawdata, main = "train")
R.missmap(test, main = "test")
eval "dev.off()"
//Util.Html("<p>hello</p>") |> Display
//Util.Image "titanic_missing.jpg" |> Display
//Util("file:///C:/Github/ProjectEuler/notebooks/titanic_missing.jpg") |> Display
//Util.Image "titanic_missing.jpg" |> Display
val it : SymbolicExpression