# Get and set k-gram model parameters
f <- kgram_freqs("a a b a b", 3)
param(f, "N")
parameters(f)
m <- language_model(f, "sbo", lambda = 0.2)
param(m, "V")
param(m, "lambda")
param(m, "N") <- 2
param(m, "lambda") <- 0.4
if (FALSE) {
param(m, "V") <- 5 # Error: dictionary size cannot be set.
}
if (FALSE) {
param(f, "N") <- 4 # Error: parameters of 'kgram_freqs' cannot be set
}
m1 <- m
param(m1, "lambda") <- 0.5
param(m, "lambda") # 0.5 ; param() modifies 'm' by reference!
m2 <- language_model(m) # This creates a true copy
param(m2, "lambda") <- 0.6
param(m, "lambda") # 0.5
Run the code above in your browser using DataLab