Skip to content

Instantly share code, notes, and snippets.

# Postupujeme vicemen podle tohoto blogpostu: https://bnosac.github.io/udpipe/docs/doc5.html
setwd("~/R/snmupdpipe")
library(udpipe)
udmodel_czech <- udpipe_load_model(file = "czech-ud-2.0-170801.udpipe")
page <- read.csv("page_298789466930469_2018_05_02_10_38_53.tab", sep="\t", encoding = "UTF-8")
korpus.raw <- as.vector(page$post_message)
x <- udpipe_annotate(udmodel_czech, x = korpus.raw)
x <- as.data.frame(x)
setwd("~/R/snmupdpipe")
library(udpipe)
udmodel_czech <- udpipe_load_model(file = "czech-ud-2.0-170801.udpipe")
page <- read.csv("page_179497582061065_2018_04_25_14_18_33.tab", sep="\t", encoding = "UTF-8")
korpus.raw <- as.vector(page$post_message)
x <- udpipe_annotate(udmodel_czech, x = korpus.raw)
x <- as.data.frame(x)
View(x)
stats <- subset(x, upos %in% "NOUN")
View(stats)
@tomastitera
tomastitera / havlobot.ino
Last active June 17, 2018 15:50
Naše země nevzkvétá
//Project uses the following Arduino libraries: TaskScheduler, TinkerKit, Wire, LiquidCrystal_I2C and Servo.
#include <TaskScheduler.h>
#include <TinkerKit.h>
#include <Wire.h>
#include <LiquidCrystal_I2C.h>
#include <Servo.h>
//Set the LCD address to 0x27 for a 16 chars and 2 line display.
LiquidCrystal_I2C lcd(0x27, 16, 2);