delete redundant files

Fundamentals of statistics part 2/R tasks/Task 01.r

@@ -0,0 +1,3 @@
+NA_position <- function(x, y){
+    all(is.na(x) == is.na(y))
+}

Fundamentals of statistics part 2/R tasks/Task 02.r

@@ -0,0 +1,9 @@
+smart_test <-  function(x){
+  t <- table(x)
+  if (min(t) >= 5){
+    chi <- chisq.test(t)
+    print(c(chi$statistic, chi$parameter, chi$p.value))
+  }else {
+    fisher.test(t)[1]
+  }
+}

Fundamentals of statistics part 2/R tasks/Task 03.r

@@ -0,0 +1,5 @@
+most_significant <-  function(x){
+  vec <- as.vector(x)
+  sap <- sapply(vec,  function(vec) chisq.test(table(vec))$p.value)
+  return(names(sap[sap==min(sap)]))
+}

Fundamentals of statistics part 2/R tasks/Task 04.r

@@ -0,0 +1,5 @@
+dat <- iris[, 1:4]
+means <-colMeans(dat)
+t_f <- t(t(dat)>means)
+rowss <- rowSums(t_f)
+iris$important_cases <- factor(ifelse(rowss>=3,"Yes","No"))

Fundamentals of statistics part 2/R tasks/Task 05.r

@@ -0,0 +1,7 @@
+get_important_cases <- function(x){
+means <- colMeans(x)
+t_f <- t(t(x)>means)
+rowss <- rowSums(t_f)
+x$important_cases <- factor(ifelse(rowss>=ncol(x)%/%2+1,"Yes","No"))
+return(x)
+}

Fundamentals of statistics part 2/R tasks/Task 06.r

@@ -0,0 +1,4 @@
+stat_mode <- function(x){
+  tablo <- table(x)
+  return(as.numeric(names(tablo[tablo == max(tablo)])))
+}

Fundamentals of statistics part 2/R tasks/Task 07.r

@@ -0,0 +1,5 @@
+max_resid <- function(x){
+  chi_t <- chisq.test(table(x))$stdres
+  ind <-  which(chi_t == max(chi_t), arr.ind = T)
+  return(c(rownames(ind), rownames(t(chi_t))[ind[2]]))
+}

Fundamentals of statistics part 2/R tasks/Task 08.r

@@ -0,0 +1,3 @@
+library("ggplot2")
+obj <- ggplot(diamonds,aes(x = color, fill = cut))+
+ geom_bar(position = "dodge")

Fundamentals of statistics part 2/R tasks/Task 09.r

@@ -0,0 +1,3 @@
+get_coefficients <- function(dataset){
+  return(exp(glm(y~x,data = dataset,family = "binomial")$coef))
+}

Fundamentals of statistics part 2/R tasks/Task 10.r

@@ -0,0 +1,6 @@
+centered <- function(test_data, var_names){
+means <- colMeans(test_data[var_names])
+ transp <- t(t(test_data[var_names])-means)
+ test_data[var_names] <- transp
+ return(test_data)
+}