Publications by Suschevskiy Vsevolod
Essay1
library(exams) exams_skeleton(markup = "markdown", encoding = "UTF-8", writer = c("exams2html", "exams2pdf", "exams2moodle")) options(scipen=999) Question You just graduated from university with a BA diploma in Business Analytics. You were searching for Data Scientist positions and found 2 options. One of them is in another country, but more p...
2316 sym R (146 sym/2 pcs)
cluster1
HW2 Cluster Suschevskiy Vsevolod 2020-03-10 1 Cluster Analysis 1.1 Important Characteristics of Our Data - 0.6 points library(readr) library(ggplot2) library(dplyr) library(rvest) library(stringr) library(tidytext) library(tidyr) library(ggwordcloud) library(psych) library(knitr) library(kableExtra) library(factoextra) library(cluster) datafor...
3014 sym R (13579 sym/44 pcs) 49 img 2 tbl
logreg
hw1 Suschevskiy Vsevolod 2020-02-15 library(readr) survey_results_public <- read_csv("survey_results_public.csv") library(dplyr) df = survey_results_public cols = c(2:12, 17:23, 25) df[,cols] %>% lapply(function(x) as.factor(x)) -> df[,cols] df$YearsCode = ifelse(df$YearsCode == "Less than 1 year", 0, df$YearsCode) df$YearsCode = ifelse(df$Ye...
5648 sym R (34527 sym/57 pcs) 9 img 1 tbl
Radar Plot
# write_csv(churn_r, "churn_r.csv") churn_r <- read_csv("~/datanal/BA/churn_r.csv") ## Parsed with column specification: ## cols( ## Group.1 = col_character(), ## gender = col_double(), ## SeniorCitizen = col_double(), ## Partner = col_double(), ## Dependents = col_double(), ## tenure = col_double(), ## Contract = col_double(), ## ...
6 sym R (2853 sym/6 pcs)
FK You egor!
library(ggraph) ## Loading required package: ggplot2 library(igraph) ## ## Attaching package: 'igraph' ## The following objects are masked from 'package:stats': ## ## decompose, spectrum ## The following object is masked from 'package:base': ## ## union library(tidygraph) ## ## Attaching package: 'tidygraph' ## The following object is...
7 sym R (1052 sym/15 pcs) 2 img