Ошибка в игровой функции в R

Question

У меня проблема с моим кодом R о множественной линейной регрессии. Сначала я пытаюсь использовать функцию gam, но это выдает ошибку. Вот код:

install.packages("nlme")
library("mgcv")
library("ggplot2")
#Import dataset
setwd("/Users/Sarah/Documents/Master T&O/Master 1/Statistics IV/Assignment 2 ")
weight_data = read.csv("WeightLossGroup190.csv", sep = "", dec = ".", header = TRUE)

#Name of used data
weight <- weight_data$weight  
date <- weight_data$date 
dayNr <- weight_data$dayNumber 
time <- weight_data$time 
#Check linearity 
gam1 <- gam(as.numeric(weight_data$weight) ~ s(as.numeric(weight_data$dayNumber)) + s(as.numeric(weight_data$time)))
summary(gam1)
plot.gam(gam1, se = FALSE, rug = TRUE, all.terms = TRUE)

Это дает мне следующую ошибку:

Error in smooth.construct.tp.smooth.spec(object, dk$data, dk$knots) : 
  A term has fewer unique covariate combinations than specified maximum degrees of freedom

У кого-нибудь есть представление о том, что я делаю не так?

Answer 1

Вы можете попробовать контролировать количество узлов с помощью "k = " в гамме.