Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

updated example code

  • Loading branch information...
commit 3268d98ea956e4bf509eb4faa8a366798187a29f 1 parent 67d75e5
@anasrana authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  example_code.r
View
2  example_code.r
@@ -15,7 +15,7 @@ fit.K <- StammMSEcv.K(g.dat, t.dat, k.states=k.stt, hat.m=13, n.core=50, l.pen=0
fit.m <- StammMSEcv.m(g.dat, t.dat, m.cl=m.cl, k.states=k.stt, n.core=50, l.pen=0)
MSE.cv <- StammMSEcvK.plot(fit.K$mse.cv, k.states=k.stt)
-print(MSE.p)
+print(MSE.cv)
Stab.m <- StammStab.plot(fit.m$fit, m.v=m.cl, m.init=2, k.states=k.stt)
print(Stab.m)
i.k <- which(k.stt==fit.K$hat.K)
Please sign in to comment.
Something went wrong with that request. Please try again.