linguistics

Size: px

Start display at page:

Download "linguistics"

あかりさどひら
5 years ago
Views:

1 linguistics 2007/08/24 ( ) linguistics 2007/08/24 1 / 24

2 1 2 R 3 R 4 5 ( ) linguistics 2007/08/24 2 / 24

3 R R: ( ) linguistics 2007/08/24 3 / 24

4 R Life is short. Use the command line. (Crawley 2002: 11) R Commander ( ) linguistics 2007/08/24 4 / 24

5 R Stefan Evert Stefan Gries (to appear). Quantitative corpus linguistics with R: a practical introduction. New York: Routledge. Harald Baayen (to appear). Analyzing Linguistic Data. A Practical Introduction to Statistics. Cambridge: Cambridge University Press. ( ) ( ) linguistics 2007/08/24 5 / 24

6 R R > > 3+5 [1] 8 > 22/7 [1] > 1+2*3 [1] 7 > sqrt(49) [1] 7 ( ) linguistics 2007/08/24 6 / 24

7 R > x <- 33 > y <- 6*7 > y [1] 42 > x+y [1] 75 ( ) linguistics 2007/08/24 7 / 24

8 R :c > myvector <- c(1,5,4,3,8,6) > myvector [1] > mean(myvector) [1] 4.5 > sd(myvector) [1] ( ) linguistics 2007/08/24 8 / 24

9 R > help(sd) >?sd sum() max() rev() length() sort() summary() ( ) linguistics 2007/08/24 9 / 24

10 R > mymatrix <- matrix(1:9, nrow=3) 1:9 c(1,2,3,4,5,6,7,8,9) > mymatrix [,1] [,2] [,3] [1,] [2,] [3,] Excel > fix(mymatrix) ( ) linguistics 2007/08/24 10 / 24

11 I give that to her. I give her that. Recipient ( ) linguistics 2007/08/24 11 / 24

12 read.delim() read.csv() (csv) Excel 1 Excel verbs.txt 2 3 R > verbs <- read.delim("clipboard") > verbs <- read.delim(choose.files()) ( ) linguistics 2007/08/24 12 / 24

13 > head(verbs) xtabs > mydata <- xtabs ( + Recipient, data=verbs) > mydata NP PP ( ) linguistics 2007/08/24 13 / 24

14 NP PP > barplot(mydata) > barplot(mydata, beside=t, legend=t) 1 2 Microsoft Word ( ) linguistics 2007/08/24 14 / 24

15 NP PP > chisq.test(mydata) > fisher.test(mydata) ( ) linguistics 2007/08/24 15 / 24

16 > fisher.test(mydata) Fisher s Exact Test for Count Data data: y p-value = alternative hypothesis: true odds ratio is not equal to 1 95 percent confidence interval: sample estimates: odds ratio p < ( ) linguistics 2007/08/24 16 / 24

17 R > mysentence <- "This is a pen" > mysentence [1] "This is a pen" > mywords <- unlist(strsplit(mysentence, " ")) [1] "This" "is" "a" "pen" > grep("is", mywords) [1] 1 2 > grep("is", mywords, value=t) [1] "This" "is" ( ) linguistics 2007/08/24 17 / 24

18 -ness P ness = n 1 N n 1 : -ness 1 N: -ness ( ) linguistics 2007/08/24 18 / 24

19 > alice.text <- scan(choose.files(), what="char", sep="\n") alice.txt > alice.text <- tolower(alice.text) > alice.words <- unlist(strsplit(alice.text, "\\W")) -ing > ing.words <- grep("ing$", alice.words, value=t) ( ) linguistics 2007/08/24 19 / 24

20 > ing.freqlist <- table(ing.words) > ing.freqlist.sorted <- sort(ing.freqlist, decreasing=t) (N) > ing.token.freq <- sum(ing.freqlist.sorted) (n 1 ) > ing.hapax <- length(ing.freqlist.sorted[ing.freqlist.sorted==1]) > ing.hapax / ing.token.freq ( ) linguistics 2007/08/24 20 / 24

21 > source(choose.files()) productivity.r > alice.text <- scan(choose.files(), what="char", sep="\n") alice.txt ( ) linguistics 2007/08/24 21 / 24

22 freq.list(), type.freq(), token.freq(), hapax(), productivity() > freq.list("oo", alice.text) > productivity("ity$", alice.text) ( ) linguistics 2007/08/24 22 / 24

23 R R wiki ( ) linguistics 2007/08/24 23 / 24

24 ( ) linguistics 2007/08/24 24 / 24

1 R Windows R 1.1 R The R project web R web Download [CRAN] CRAN Mirrors Japan Download and Install R [Windows 9

1 R Windows R 1.1 R The R project web R web Download [CRAN] CRAN Mirrors Japan Download and Install R [Windows 9 1 R 2007 8 19 1 Windows R 1.1 R The R project web http://www.r-project.org/ R web Download [CRAN] CRAN Mirrors Japan Download and Install R [Windows 95 and later ] [base] 2.5.1 R - 2.5.1 for Windows R