lvc_identification.Rmd

---
title: "Assembling EuReCo for Contrastive Research"
subtitle: "The Polish Piece"
author:
    - name: Piotr Bański
    - name: Nils Diewald
    - name: Marc Kupietz
    - name: Beata Trawiński
affiliation:
    address: IDS Mannheim
column_numbers: 2
contact:
    name: Piotr Bański
    department: Digital Linguistics / Grammar
    email: banski@ids-mannheim.de
    website: "https://www.ids-mannheim.de/"
    qrlink: >
      `r posterdown::qrlink("https://korap.ids-mannheim.de/instance/nkjp1m-sgjp")`
output: 
  posterdown::posterdown_ids:
    self_contained: false
    keep_md: true

bibliography: references.bib
csl: "https://raw.githubusercontent.com/ICLC-10/Zotero/master/styles/ICLC-10.csl"
---

```{r setup, include=FALSE, echo=FALSE, message=FALSE, warning=FALSE}
knitr::opts_chunk$set(dev = 'svg', echo = FALSE, warning = FALSE)
source("common.R")
```
# Plain collocation analysis

without restriction to NN/subst

## da(wa)?ć

```{r dac_simple, echo=TRUE}
collocationAnalysis(
  nkjp,
      '[nkjp/l="da(wa)?ć"]',
      leftContextSize = 5,
      rightContextSize = 5,
      minOccur = 5
    ) %>%
  show_simple_table()
```

# Identification of Light Verb Constructions
using collocation analysis

## da(wa)?ć

```{r dac, echo=TRUE}
collocationAnalysis(
  nkjp,
      'focus({[nkjp/l="da(wa)?ć"] []{,5}} [nkjp/p=subst])',
      leftContextSize = 0,
      rightContextSize = 1, # relative to { ... } in focus(),
      minOccur = 5,
      addExamples = TRUE
    ) %>%
  show_table()
```

### (Z)robić

```{r robic, echo=TRUE}
collocationAnalysis(
  nkjp,
    'focus({[nkjp/l="z?robić"] []{,5}} [nkjp/p=subst])',
    leftContextSize = 0,
    rightContextSize = 1, # relative to { ... } in focus(),
    minOccur = 5,
    addExamples = TRUE
  ) %>%
  show_table()
```

```{r brac, echo=TRUE}
collocationAnalysis(
  nkjp,
      'focus({[nkjp/l="brać" | nkjp/l="wziąć"] []{,5}} [nkjp/p=subst])',
      leftContextSize = 0,
      rightContextSize = 1, # relative to { ... } in focus(),
      minOccur = 5,
      addExamples = TRUE
    ) %>%
  show_table()