R ile statistik-fakülte dersi

18.10.2019

vektör oluşturma

veri<- c (1,5,6,6,7,8,9,3,23,45,6,776,34,56)

veri[2:6]
[1] 5 6 6 7 8
2. ile 6. değerleri ve arasındakileri verdi

install.packages (gplot) veya install.packages(ggplot2) sonra load da yapmak gerekiyormuş da ben yapmadım sanırım nasıl oldu tam bilmiyorum

histogram için

hist(veri)

scatter

—

duration=faithful$eruptions
> stem(duration)
Stem-And-Leaf Plots dal yaprak grafiği

> duration=faithful$eruptions
> waiting=faithful$waiting
> plot(duration,waiting)

>yas<-runif(15, min = 5,max=90)
>arabakazasi<-runif(15,min=1,max=70)
runif rassal sayı oluşturdu

yas.kaza<-data.frame(yas1=yas,kaza1=arabakazasi)
data.frame matris oluşturuyor

> yas.kaza
       yas1    kaza1
1  28.55884 31.32735
2  15.34492 40.30755
3  15.71833 42.58864
4  10.10913 50.61104
5  35.08461 43.03643
6  13.15438 24.61900
7  85.01972 52.49178
8  28.78632 28.21837
9  21.27910 16.30472
10 39.91121 59.41520
11 24.41736 46.88826
12 74.75166 60.06130
13 67.54499 24.48233
14 40.44887 55.42961
15 89.52256 37.78001

yaskazanoktagrafiği<-ggplot2(data=yas.kaza,aes(x=yas1,y=kaza1))+geom_point()
ggplot() ggplot projesi oluşturuyorsun, BUNUNLA OLUŞTUR
aes  Aesthetic (estetik)
geom_point() BUNUNLA YAZDIR

boxplot(duration,horizontal = TRUE)
vertical ya da TRUE yerine false yazınca sağdaki şekil çıkıyor

library(MASS) MASS kütüphanesini çektik
head(painters) painters verisini aldık
okul=painters$School painters tan School u çek ve okul değişkenine tanımla
okul.freq=table(okul)

cbind(x1,x2) iki matrisi birleştiriyor

A  B  C  D  E  F  G  H 
10  6  6 10  7  4  7  4 
cbind(okul.freq) acaba yukarıdakileri küçük matris-vektör olarak mı ele alıyor
A        10
B         6
C         6
D        10
E         7
F         4
G         7
H         4

duration=faithful$eruptions   
faithful dan eruptions ı çek, duration değişkenine tanımla
max(duration)-min(duration)  maksimum değer-min değer
IQR(duration)  kartiller
var(duration)  varyans
sd(duration)  standart sapma

mtcars$mpg
mtcars$am

L=mtcars$am==0  hipotez oluşturuyoruz  DİKKAT 0 YERİNE 1 = KOYARSAN DEĞİŞKENİN İÇERİĞİNİ DEĞİŞTİRİRSİN
mpg.auto=mtcars[L,]$mpg burada mtcars da am ı 0 olan mpgleri 
     mpg.auto olarak tanımladık

mpg.manual=mtcars[!L,]$mpg  burada mtcars da am ı 0 olmayan mgleri 
    mpg.manual olarak tanımladık
mpg.manual

t.test(mpg.auto,mpg.manual)

06.12.2019

chisq.test(tablename)  ki kare testi

This image has an empty alt attribute; its file name is screenshot_1-2.png

M<-as.table(rbind(c(100,130,20),c(100,300,175),c(25,50,100))) #kodu ile yukarıdaki tablo elde ediliyor 9x3 lük gibi dursa da 3 e 3lük var1 ve var2 ye dikkat edersen

dimnames(Q)<-list(yasgrubu=c("30un altı","30-40arası","50veüstü"),birincihaberkaynaği=c("radyo","tv","gazete"))   
#burada dinames ile yukarıdaki table satır ve sütunlarına ad veriyoruz, list sayesinde  sıraladık c ile birleştirdik, mezvu aşağıdaki resimde daha iyi anlaşılır