Nothing
## ----setup, include = FALSE----------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ---- eval=FALSE---------------------------------------------------------
# install.packages("igate")
# library(igate)
## ---- include=FALSE------------------------------------------------------
library(igate)
## ------------------------------------------------------------------------
set.seed(123)
n <- nrow(iris)*2/3
rows <- sample(1:nrow(iris), n)
df <- iris[rows, ]
results <- igate(df, target = "Sepal.Length", good_end = "high", savePlots = TRUE)
results
## ------------------------------------------------------------------------
igate.regressions(df, target = "Sepal.Length", ssv = results$Causes, savePlots = TRUE)
## ------------------------------------------------------------------------
validation_df <- iris[-rows,]
val <- validate(iris, target = "Sepal.Length", causes = results$Causes, results_df = results)
## ------------------------------------------------------------------------
head(val[[1]])
## ------------------------------------------------------------------------
val[[2]]
## ------------------------------------------------------------------------
val[[3]]
## ---- eval=FALSE---------------------------------------------------------
# validatedObs <- val[[1]]
# validationCounts <- val[[2]]
# validationSummary <- val[[3]]
#
# # choose a directory you want to save the plot into.
# output_dir <- "YOUR_DIRECTORY"
#
# report(df = df,
# target = "Sepal.Length",
# type = "continuous",
# good_outcome = "high",
# results_path = "results",
# validation = TRUE,
# validation_path = "validatedObs",
# validation_counts = "validationCounts",
# validation_summary = "validationSummary",
# output_name = "testing_igate",
# output_directory = output_dir)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.