Nothing
### R code from vignette source 'wordnet.Rnw'
###################################################
### code chunk number 1: wordnet.Rnw:15-16
###################################################
options(width = 75)
###################################################
### code chunk number 2: wordnet.Rnw:46-47
###################################################
library("wordnet")
###################################################
### code chunk number 3: wordnet.Rnw:66-67
###################################################
getFilterTypes()
###################################################
### code chunk number 4: wordnet.Rnw:77-80 (eval = FALSE)
###################################################
## filter <- getTermFilter("StartsWithFilter", "car", TRUE)
## terms <- getIndexTerms("NOUN", 5, filter)
## sapply(terms, getLemma)
###################################################
### code chunk number 5: wordnet.Rnw:91-94 (eval = FALSE)
###################################################
## filter <- getTermFilter("ExactMatchFilter", "company", TRUE)
## terms <- getIndexTerms("NOUN", 1, filter)
## getSynonyms(terms[[1]])
###################################################
### code chunk number 6: wordnet.Rnw:102-103 (eval = FALSE)
###################################################
## synonyms("company", "NOUN")
###################################################
### code chunk number 7: wordnet.Rnw:114-119 (eval = FALSE)
###################################################
## filter <- getTermFilter("ExactMatchFilter", "hot", TRUE)
## terms <- getIndexTerms("ADJECTIVE", 1, filter)
## synsets <- getSynsets(terms[[1]])
## related <- getRelatedSynsets(synsets[[1]], "!")
## sapply(related, getWord)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.