search for: nharm

...working with the fda package but when I call the function pca.fd I obtain a message error, which I cann't identify. The error say That : error in assihn(mname,def,where), is not possible to add links to a blockade enviroment. The orther that I'm writting is: > cp1 <- pca.fd(ind.fd1,nharm=3) and before it I can to plot the functional data object ind.fd1. ?Have anybody seen this error or any similar message?, ?Any idea? Thancks for your help -- View this message in context: http://www.nabble.com/Error-en-assign%28mname%2C-def%2C-where%29-tf3995432.html#a11346689 Sent from the R he...

...from discretized y? return(fdata1)}prediction.ffpe = function(fdata1){? n = ncol(fdata1$coef)? D = nrow(fdata1$coef)? #center the data? #mu = mean.fd(fdata1)? data = center.fd(fdata1)? #ffpe = fFPE(fdata1, Pmax=10)? #p.hat = ffpe[2] #order of the model? d.hat=23? p.hat=6? #fPCA? fpca = pca.fd(data,nharm=D, centerfns=TRUE)? scores = fpca$scores[,0:d.hat]? # to avoid warnings from vars predict function below? colnames(scores) <- as.character(seq(1:d.hat))? VAR.pre= predict(VAR(scores, p.hat), n.ahead=1, type="const")$fcst??} kindly guide me that how can i solve out my problem or what er...

...n(fdata1) } prediction.ffpe = function(fdata1){ ? n = ncol(fdata1$coef) ? D = nrow(fdata1$coef) ? #center the data ? #mu = mean.fd(fdata1) ? data = center.fd(fdata1) ? #ffpe = fFPE(fdata1, Pmax=10) ? #p.hat = ffpe[2] #order of the model ? d.hat=23 ? p.hat=6 ? #fPCA ? fpca = pca.fd(data,nharm=D, centerfns=TRUE) ? scores = fpca$scores[,0:d.hat] ? # to avoid warnings from vars predict function below ? colnames(scores) <- as.character(seq(1:d.hat)) ? VAR.pre= predict(VAR(scores, p.hat), n.ahead=1,type="const")$fcst ?? } ? kindly guide me that how can i solve out my pro...

...=t(mat),fbf) # functions generated from discretized y(2)?ffpe = fFPE(fdata1, Pmax=10)? d.hat = ffpe[1] #order of the model? p.hat = ffpe[2] #lag of the model (3) n = ncol(fdata1$coef)? D = nrow(fdata1$coef)? #center the data? mu = mean.fd(fdata1)? data = center.fd(fdata1)? #fPCA? fpca = pca.fd(data,nharm=D)? scores = fpca$scores[,1:d.hat](4)?# to avoid warnings from vars predict function below? ? ? colnames(scores) <- as.character(seq(1:d.hat))? ? ? VAR.pre= predict(VAR(scores, p.hat), n.ahead=1, type="const")$fcst after this I need help first how to transform this into original Functi...

...=t(mat),fbf) # functions generated from discretized y(2)?ffpe = fFPE(fdata1, Pmax=10)? d.hat = ffpe[1] #order of the model? p.hat = ffpe[2] #lag of the model (3) n = ncol(fdata1$coef)? D = nrow(fdata1$coef)? #center the data? mu = mean.fd(fdata1)? data = center.fd(fdata1)? #fPCA? fpca = pca.fd(data,nharm=D)? scores = fpca$scores[,1:d.hat](4)?# to avoid warnings from vars predict function below? ? ? colnames(scores) <- as.character(seq(1:d.hat))? ? ? VAR.pre= predict(VAR(scores, p.hat), n.ahead=1, type="const")$fcst after this iIneed help first how i transform this into original Functio...