7 Kasım 2021

Soru #1

Çalışma dizinize kayıtlı olan”ornek1.txt” dosyasını read.table() fonksiyonunu kullanarak R ortamında okutunuz. Veriyi “ornek1” nesnesine kaydederek, nesnenin yapısını inceleyiniz.

setwd("~burcakaydin/OLC750/Kitap-master/BOLUM4/Alistirmalar")
read.table("ornek1.txt", skip=2,header=TRUE)
##    id group m1 m2 m3 m4 m5
## 1 id1     B  C  B  D  B  A
## 2 id2     B  C  B  D  B  A
## 3 id3     A  B  D  C  A  E
## 4 id4     A  E  D  C  E  E
## 5 id5     A  B  D  C  A  E

Soru #1 Devam

ornek1 <- read.table("ornek1.txt",skip=2,header=TRUE)
ornek1
##    id group m1 m2 m3 m4 m5
## 1 id1     B  C  B  D  B  A
## 2 id2     B  C  B  D  B  A
## 3 id3     A  B  D  C  A  E
## 4 id4     A  E  D  C  E  E
## 5 id5     A  B  D  C  A  E

Soru #1 Devam

str(ornek1)
## 'data.frame':    5 obs. of  7 variables:
##  $ id   : chr  "id1" "id2" "id3" "id4" ...
##  $ group: chr  "B" "B" "A" "A" ...
##  $ m1   : chr  "C" "C" "B" "E" ...
##  $ m2   : chr  "B" "B" "D" "D" ...
##  $ m3   : chr  "D" "D" "C" "C" ...
##  $ m4   : chr  "B" "B" "A" "E" ...
##  $ m5   : chr  "A" "A" "E" "E" ...

Soru #1 Devam

ornek1$id <- as.character(ornek1$id)
ornek1$id 
## [1] "id1" "id2" "id3" "id4" "id5"

Soru #2

https://vincentarelbundock.github.io/Rdatasets/datasets.html” adresinde yer alan “psych” paketindeki ability dosyasını “ability.csv” olarak çalışma dizinine indirerek read.csv fonksiyonuyla R ortamında okutunuz. Veriyi “ability” nesnesine kaydederek, nesnenin yapısını inceleyiniz.

Soru #2 Devam

ability <- read.csv("ability.csv")
str(ability)
## 'data.frame':    1525 obs. of  17 variables:
##  $ X        : int  5 6 7 8 9 10 11 12 13 14 ...
##  $ reason.4 : int  0 0 0 1 NA 1 1 0 1 1 ...
##  $ reason.16: int  0 0 1 NA 1 1 1 1 1 1 ...
##  $ reason.17: int  0 1 1 0 1 1 1 0 0 1 ...
##  $ reason.19: int  0 0 0 0 0 1 1 0 1 1 ...
##  $ letter.7 : int  0 1 1 0 0 1 1 0 0 0 ...
##  $ letter.33: int  1 0 0 0 1 1 1 0 1 0 ...
##  $ letter.34: int  0 1 0 1 0 1 1 0 1 1 ...
##  $ letter.58: int  0 0 0 0 NA 1 1 0 1 0 ...
##  $ matrix.45: int  0 0 1 0 1 1 1 0 1 1 ...
##  $ matrix.46: int  0 0 1 NA 1 1 1 1 0 1 ...
##  $ matrix.47: int  0 0 0 0 0 1 1 1 0 0 ...
##  $ matrix.55: int  1 0 0 0 0 0 0 0 0 0 ...
##  $ rotate.3 : int  0 0 0 0 0 1 1 0 0 0 ...
##  $ rotate.4 : int  0 0 0 0 0 1 1 1 0 NA ...
##  $ rotate.6 : int  0 1 0 0 0 1 1 0 0 0 ...
##  $ rotate.8 : int  0 0 0 0 0 0 1 0 0 0 ...

Soru #3

10 öğrencinin “R Yazılımına Giriş” dersi ara sınav notları “arasinav.txt” dosyasında kayıtlıdır. Bu 10 öğrenciye ilişkin veriyi “ad” ve “not” olmak üzere iki değişkenli 10 gözlemli bir veriseti olarak kaydetmek istediğinizde kullanmanız gereken komut satırı nedir?

arasinav <-read.table("arasinav.txt",skip=3,header=TRUE)
arasinav
##          Ad Not
## 1       Can  90
## 2     Damla  92
## 3     Ceren  88
## 4  Neslihan  79
## 5      Sude  84
## 6     Hakan  88
## 7     Sevgi  89
## 8     Melek  88
## 9     Sinem  85
## 10    Cansu  90

Soru #4

10 öğrencinin “R Yazılımına Giriş” dersi ara sınav notları “arasinav2.txt” dosyasında kayıtlıdır. Bu 10 öğrencinin sadece notlarını içerek bir liste oluşturmak istediğinizde kullanmanız gereken komut satırı nedir?

arasinav2.not <-read.table("arasinav2.txt",skip=4,sep="\\")[,2]
arasinav2.not
##  [1] 90 92 88 79 84 88 89 88 85 90