data("datasetCanada")
m_data <- as.matrix(datasetCanada$m_data)
m_coord <- as.matrix(datasetCanada$m_coord[, 1:2])
p <- ceiling(1 + log2(nrow(m_data)))
m_coef <- sapply(seq_len(nrow(m_coord)), function(i) {
coef_fourier(m_data[, i], p)
})
log_lik_rf(m_coef, m_coord)
Run the code above in your browser using DataLab