선형 회귀 (R)가있는 다중 사인파 맞추기

Question

R에서 lm 함수를 사용하여 여러 개의 사인파 (정확한 3 개)를 데이터에 맞추려고합니다. 결과는 얻을 수 있지만 멀리 보입니다. 그것이 있어야로

녹색 선이 좀 휘청이지만, 단 하나의 사인 (포물선 추가로)을 것 같다, 아주 잘 데이터와 일치하지 않습니다 수정합니다. 내가 도대체 ​​뭘 잘못하고있는 겁니까?

I가 사용되는 코드 (.. 그들은 저 주어진대로 기간, 하드 있고, timetopdh은 시간 (초), 특정 시점에서 heightdh 수위가)

plot(timetopdh,heightopdh,xlim=topvector, ylim = c(0,270)) 

period1 <- 545 
period2 <- 205 
period3 <- 85 

sin11 <- sin(2*pi/period1*timetopdh) 
sin12 <- cos(2*pi/period1*timetopdh) 

sin21 <- sin(2*pi/period2*timetopdh) 
sin22 <- cos(2*pi/period2*timetopdh) 

sin31 <- sin(2*pi/period3*timetopdh) 
sin32 <- cos(2*pi/period3*timetopdh) 

lmsinus <- lm(heightopdh ~ poly(timetopdh,2) + sin11 + sin12 + sin21 + sin22 + sin31 + sin32) 

fitted_for_lines <- fitted(lmsinus) 
pred <- predict(lmsinus, newdata=data.frame(timetopdh = timetopdh)) 
lines(timetopdh, pred, col=3, lwd=3) 

Answer 1

그것은 꽤 잘 일치하고, 정확하게 데이터를 따라 가면 안됩니다. 선형 모델은 가능한 한 Y의 변화를 줄일 수있는 (직선의) 가장 적합한 것을 만들어야합니다. 초록색 선은 정확히 똑같지 만 (직선은 아님)

한 줄만 입력했기 때문에 한 줄만 있습니다. 시간과 높이는 점에 저장되고 목록에 전달 된 목록의 순서에 따라 점마다 점으로 표시되었습니다.

제공된 데이터를 사용하여 예측에서 선이 그려 지지만 점은 다른 두 세트에서 그려집니다. timetopdh,heightopdh. 부비동 파가 인쇄되기를 원한다면 적절한 그래프 방법을 사용하여 각각의 이름을 묻는 것이 좋습니다. 일반적으로 선 그래프입니다.