%vtlpc.m
function [lpcoef]=vtlpc(S,FS,r)
%lpc model for every 30ms speech segment after endpointdetection
%S is the speech signal, FS is the sampling frequency
%r is the order of the filter.
[res1,res2,S,utforste,ltforste,ltforzcr]=endpointdetection(S,FS);
nos=fix(length(S)/(FS*30*10^(-3)));
S=S(1:1:nos*FS*30*10^(-3));
[lpccoef]=blkproc(S,[1 FS*30*10^(-3)],'lpc1(x,P1)',r-1);