R 正弦曲线拟合

我正试图用正弦曲线拟合线性数据，如下示例所示， ，但我得到了一个有趣的图形，就像我代码下面的图形一样。我想要的只是一条正弦曲线来拟合我的数据

Data <- mrns[[1]]
Time <- Data$time
HR <- Data$raw.HR

xc <- cos(2*pi*Time/366)
xs <- sin(2*pi*Time/366)
fit.lm <- lm(HR ~ xc+xs)

pred <- predict(fit.lm, newdata=data.frame(Time=Time))

plot(HR ~ Time, data=Data, xlim=c(0, 2359))
lines(Time, pred, col="blue")

---

我不确定在这一点上还有什么可以尝试的。有人有什么建议吗？

只是开玩笑而已。我把周期改为2359，这是最大的时间间隔，曲线很好地适合我所有的绘图。谢谢@Dason提供的信息

Data <- mrns[[3]]
Time <- Data$time
HR <- Data$raw.HR

xc <- cos(2*pi*Time/2359)
xs <- sin(2*pi*Time/2359)
fit.lm <- lm(HR ~ xc+xs)

pred <- predict(fit.lm, newdata=data.frame(Time=Time))

plot(HR ~ Time, data=Data, xlim=c(0, 2359))
lines(Time, pred, col="blue")

---

数据问题在于代码中的型号。你的线性模型的周期是366谢谢@Dason！显然我是个新手。我不确定如何为我的数据选择一个好的周期，我只使用了366，因为它在另一个示例中。有什么建议吗？您的
dput（…）
只有六行。其余的数据在哪里？@jlhoward它只有6行，因为我在dput中使用了“head”。如果有必要，我可以发布完整的dput。好吧，仅使用您提供的数据是不可能拟合此模型的。
Data <- mrns[[3]]
Time <- Data$time
HR <- Data$raw.HR

xc <- cos(2*pi*Time/2359)
xs <- sin(2*pi*Time/2359)
fit.lm <- lm(HR ~ xc+xs)

pred <- predict(fit.lm, newdata=data.frame(Time=Time))

plot(HR ~ Time, data=Data, xlim=c(0, 2359))
lines(Time, pred, col="blue")