Skip to content

Instantly share code, notes, and snippets.

View akabaoglu's full-sized avatar

Abdullah Kabaoğlu akabaoglu

  • The University of Illinois at Urbana-Champaign
  • Urbana, IL
  • X @aykabaoglu
View GitHub Profile
library(ggplot2); theme_set(theme_bw())
library(patchwork)
## SÜREKLİ DAĞILIMLAR
# Uniform Dağılım
ggplot() +
stat_function(fun = dunif, args = list(min = 0, max = 1)) +
labs(x = "Uniform Dağılım (a = 0, b = 1)")
ggplot() +
library(ggplot2); theme_set(theme_bw())
library(patchwork)
## AYRIK DAĞILIMLAR
p1 <- ggplot() +
stat_function(fun = dbinom, args = list(size = 1, prob = .6), geom = 'bar') +
labs(x = "Militao (p = .60)") +
ylim(0, 1)
############################################
##### R’A GİRİŞ KILAVUZU. #####
##### Abdullah Kabaoglu #####
##### U. of Illinois Urbana-Champaign #####
##### Date Created: 12.02.2025 #####
##### Last Revision: 12.02.2025 #####
############################################
### 1. TEMEL VERİ TİPLERİ
# Tam sayı (integer)
# install.packages("tidyverse")
library(tidyverse); theme_set(theme_bw())
set.seed(34680)
## MERKEZİ LİMİT TEORİSİ
# Part 1: Bir veriden çekilen örneklemlerden üzerinden hesaplanan ortalama normal dağılıma sahiptir.
male_heights <- round(rnorm(250, 175, 7.5))
female_heights <- round(rnorm(250, 155, 7.5))
# ============================================================
# İSTATİSTİK KONSEPTLERI — Örnekli R Rehberi
# Hazırlayan: Abdullah Kabaoğlu | KÜME Vakfı
# ============================================================
# ============================================================
# 0. PAKET VE VERİ HAZIRLIĞI
# ============================================================
#install.packages("tidyverse")
#install.packages("nycflights")
# Scripti ilk kez çalıştırdığınızda yukarıdaki kısmı baştaki kareleri kaldırıp bir kez çalıştırın
library(tidyverse); theme_set(theme_bw())
library(nycflights13)
set.seed(1)
### Örneklemden Popülasyon Ortalamasını Tahminleme/Hesaplama
@akabaoglu
akabaoglu / 05.04.R
Created May 8, 2023 06:18
Creating 3D Scatter Plots in R
library(tidyverse)
library(scatterplot3d)
library(RColorBrewer)
set.seed(61801)
dat <- tibble(x = rnorm(10),
y = rnorm(10),
z = rpois(10, 3))