问R:应用pclm函数

EN

pclm(x, y, nlast,control = list())

-x: vector of the cumulative sum points of the sequence in y.
-y: vector of values to be ungrouped.
-nlast: Length of the last interval.
-control: List with additional parameters.

data<-data.frame(
  GEOID= c(1,2),
  name= c("A","B"),
  "Under 5 years"= c(17,20),
  "5-9 years"= c(82,90),
  "10-14 years"= c(18, 22),
  "15-19 years"= c(90,88),
  "20-24 years"= c(98, 100), 
  check.names=FALSE)

#generating a data.frame storing the fitted values from the pclm for the first row: GEOID=1.

#using the values directly
syoa <- data.frame(fitted(pclm(x=c(0, 5, 10, 15, 20), y=c(17,82,18,90,98), nlast=5, control = list(lambda = .1, deg = 3, kr = 1))))

#or referring to the vector by its rows and columns
syoa <- data.frame(fitted(pclm(x=c(0, 5, 10, 15, 20), y=c(data[1,3:7]), nlast=5, control = list(lambda = .1, deg = 3, kr = 1))))

apply(data[3:7], 1, pclm(x=c(0, 5, 10, 15, 20), y=c(data[,3:7]), nlast=5, control = list(lambda = .1, deg = 3, kr = 1))) 

Error in eval(substitute(expr), data, enclos = parent.frame()) : 
  (list) object cannot be coerced to type 'double'