Changes made in revision 7 of KalmanEM.r

--- /tmp/cvx_aJ3TiK	2012-02-07 19:38:58.000000000 -0800
+++ /tmp/cvx_vWfApY	2012-02-07 19:38:58.000000000 -0800
@@ -565,7 +565,7 @@
 rownames(kf$xtT) =  state.names
 
 return(list(states=kf$xtT,states.se=states.se,A=A,B=B,Q=Q,R=R,U=U,Z=Z,x00=x00,V00=V00,V0T=kf$V0T,Kt=kf$Kt,Innov=kf$Innov,Sigma=kf$Sigma,m=m, n=n, 
-numYrs=numYrs,iter=iter,loglike=loglike, AIC=AICval, AICc=AICc, iter.record=iter.record, 
+numYrs=numYrs,iter=iter,loglike=as.vector(loglike), AIC=as.vector(AICval), AICc=as.vector(AICc), K=as.vector(K), iter.record=iter.record, 
 whichPop=whichPop, R.groups=R.groups, Q.groups=Q.groups, U.groups=U.groups, varcov.R=varcov.R, varcov.Q=varcov.Q, 
 estInteractions=estInteractions, x00prior=x00prior, data=orig.data, kf.data=y, include=include, version=vers))