# NOT RUN {
A<-c(1000,900,1500);u<-c(-3,-5,0);sig<-c(30,40,75); k<-c(3,3,3)
##these four should have the same length
fg<-wgennls(A,u,sig,k)
##input formula for Gaussian decomposition
fgf<-fg$formula
###start values
fgs<-fg$start
# }
Run the code above in your browser using DataLab