notiz

disc_lab<-read.csv("C:/Master/3. Semester/R/Dataset/disc_lab_lencha2.csv", header = TRUE, sep = ",")

disc_lab$P8_1 =as.character(disc_lab$P8_1)
disc_lab$P8_1A =as.character(disc_lab$P8_1A)
disc_lab$P9_1 =as.character(disc_lab$P9_1)

disc_lab$P11_4_1=as.character(disc_lab$P11_4_1)
disc_lab$P11_4_2=as.character(disc_lab$P11_4_2)
disc_lab$P11_4_3=as.character(disc_lab$P11_4_3)
disc_lab$P11_4_4=as.character(disc_lab$P11_4_4)
disc_lab$P11_4_5=as.character(disc_lab$P11_4_5)
disc_lab$P11_5_7=as.character(disc_lab$P11_5_7)

disc_lab$P11_6_11=as.character(disc_lab$P11_6_11)
disc_lab$P11_8_1=as.character(disc_lab$P11_8_1)
disc_lab$P11_8_2=as.character(disc_lab$P11_8_2)
disc_lab$P11_8_3=as.character(disc_lab$P11_8_3)
disc_lab$P11_8_4=as.character(disc_lab$P11_8_4)
disc_lab$P11_8_5=as.character(disc_lab$P11_8_5)



disc_lab$P8_1 =as.numeric(disc_lab$P8_1)
disc_lab$P8_1A =as.numeric(disc_lab$P8_1A)
disc_lab$P9_1 =as.numeric(disc_lab$P9_1)

disc_lab$P11_4_1=as.numeric(disc_lab$P11_4_1)
disc_lab$P11_4_2=as.numeric(disc_lab$P11_4_2)
disc_lab$P11_4_3=as.numeric(disc_lab$P11_4_3)
disc_lab$P11_4_4=as.numeric(disc_lab$P11_4_4)
disc_lab$P11_4_5=as.numeric(disc_lab$P11_4_5)

disc_lab$P11_5_7=as.numeric(disc_lab$P11_5_7)


disc_lab$P11_6_11=as.numeric(disc_lab$P11_6_11)
disc_lab$P11_8_1=as.numeric(disc_lab$P11_8_1)
disc_lab$P11_8_2=as.numeric(disc_lab$P11_8_2)
disc_lab$P11_8_3=as.numeric(disc_lab$P11_8_3)
disc_lab$P11_8_4=as.numeric(disc_lab$P11_8_4)
disc_lab$P11_8_5=as.numeric(disc_lab$P11_8_5)

table(disc_lab$P8_1)

## 
##     1     2     3     4     5     6 
##   242   688  1130 22849 19170   110

table(disc_lab$P11_4_1)

## 
##     1     2     3 
##  2331 20884  1041

table(disc_lab$P11_4_2)

## 
##     1     2     3 
##  1093 20705  2458

table(disc_lab$P11_4_3)

## 
##     1     2     3 
##  1436 21807  1013

table(disc_lab$P11_4_4)

## 
##     1     2     3 
##  2438 18727  3091

table(disc_lab$P11_4_5)

## 
##     1     2     3 
##   644 22518  1094

table(disc_lab$P11_5_7)

## 
##     1     2     3     9 
##  1741 25531  6009   145

table(disc_lab$P8_1A)

## 
##    1    2    3    4 
##  241  599 1107  223

table(disc_lab$P8_1)

## 
##     1     2     3     4     5     6 
##   242   688  1130 22849 19170   110

table(disc_lab$P11_6_11)

## 
##     1     2     9 
##    42 44146     1

table(disc_lab$P11_8_1)

## 
##    1    2 
##   64 6569

table(disc_lab$P11_8_2)

## 
##    1    2 
##  187 6446

table(disc_lab$P11_8_3)

## 
##    1    2 
##  701 5932

table(disc_lab$P11_8_4)

## 
##    1    2 
##   74 6559

table(disc_lab$P11_8_5)

## 
##    1    2 
## 5616 1017