Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: anasrana/stamm
base: 0d8f29598f
...
head fork: anasrana/stamm
compare: 3268d98ea9
Checking mergeability… Don't worry, you can still create the pull request.
  • 2 commits
  • 1 file changed
  • 0 commit comments
  • 1 contributor
Showing with 6 additions and 3 deletions.
  1. +6 −3 example_code.r
View
9 example_code.r
@@ -14,7 +14,10 @@ m.cl <- 12:20
fit.K <- StammMSEcv.K(g.dat, t.dat, k.states=k.stt, hat.m=13, n.core=50, l.pen=0, return.all=TRUE)
fit.m <- StammMSEcv.m(g.dat, t.dat, m.cl=m.cl, k.states=k.stt, n.core=50, l.pen=0)
-StammMSEcvK.plot(fit.K$mse.cv, k.states=1:5)
-StammStab.plot(fit.m$fit, m.v=m.cl, m.init=2, k.states=k.stt)
+MSE.cv <- StammMSEcvK.plot(fit.K$mse.cv, k.states=k.stt)
+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)
-StammStabPen.plot(fit.K$fit, fit.K$fit.cv[[i.k]], t.dat)
+Stab.l <- StammStabPen.plot(fit.K$fit, fit.K$fit.cv[[i.k]], t.dat)
+print(Stab.l)

No commit comments for this range

Something went wrong with that request. Please try again.