# NOT RUN {
# Data assignment
data1<-c(16.34, 10.76, 11.84, 13.55, 15.85, 18.20, 7.51, 10.22, 12.52, 14.68, 16.08,
19.43,8.12, 11.20, 12.95, 14.77, 16.83, 19.80, 8.55, 11.58, 12.10, 15.02, 16.83,
16.98, 19.92, 9.47, 11.68, 13.41, 15.35, 19.11)
# display "KS" which indicates the type of subfunction (nKS) called by the master function nPolyk
# KS:[1] -1.44706
nPolyk(c(3),data1, TRUE)
# Produce
# [1] -1.44706 (without indication of the employed subfunction)
nPolyk(c(3),data1, FALSE)
# Return the estimate of k[2]*k[1] with the indication of the employed subfunction
# PS:[1] 177.4233
nPolyk( list( c(2), c(1) ),data1,TRUE)
# Data assignment
data2<-list(c(5.31,11.16),c(3.26,3.26),c(2.35,2.35),c(8.32,14.34),c(13.48,49.45),
c(6.25,15.05),c(7.01,7.01),c(8.52,8.52),c(0.45,0.45),c(12.08,12.08),c(19.39,10.42))
# Return the estimate of k[2,1] with the indication of the employed subfunction
# KM:[1] -23.7379
nPolyk(c(2,1),data2,TRUE)
# Return the estimate of k[2,1]*k[1,0] with the indication of the employed subfunction
# PM:[1] 48.43243
nPolyk( list( c(2,1), c(1,0) ),data2,TRUE)
# }
Run the code above in your browser using DataLab