FPCA scores are wrong

[fabian-s]

library(refunder)
data(chf_df)

str(
  refund::fpca.face(as.matrix(chf_df$activity[1:20]), npc = 4)$scores
  )
#>  num [1:20, 1:4] -74.8 -15.8 -77 -10.7 -71.4 ...

chf_fpca <- rfr_fpca(chf_df$activity[1:20], npc = 4)
str(chf_fpca$scores)
#>  num [1:99] 1 1 1 1 1 1 1 1 1 1 ...

^{Created on 2019-10-10 by the reprex package (v0.3.0)}