R 中的 gam 函数出错

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 =”来控制节数。