風中一匹狼

以下是盤尼西林兩個品系對某個細菌生長抑制的效果(百分比):

將上述的資料輸入成data.frame的 data type

> line<- c(1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2) #品系一有11個數值於是輸入11個1，品系二相同方式輸入

> affect<- c(41.4, 48.3, 51.2, 30.3, 56.8, 45.7, 51.7, 62.4, 36.8, 57.3, 47.6, 30.7, 36.3, 47.2, 38.7, 41.9,33.2, 35.1, 28.3, 45.6, 43.1) #按照順序輸入效果百分比的數值

> bacteria<-data.frame(line,affect) #兩個vector以直行合併

> print(bacteria)

   line affect

1     1   41.4

2     1   48.3

3     1   51.2

4     1   30.3

5     1   56.8

6     1   45.7

7     1   51.7

8     1   62.4

9     1   36.8

10    1   57.3

11    1   47.6

12    2   30.7

13    2   36.3

14    2   47.2

15    2   38.7

16    2   41.9

17    2   33.2

18    2   35.1

19    2   28.3

20    2   45.6

21    2   43.1

> write.table(bacteria, file = "bacteria.CSV", sep = ",")

> write.table(bacteria, file = "bacteria.txt", sep = ",")