# NOT RUN {
A = matrix(c(0,-3,-2,2,-2,1,-1,2,-1), 3,3)
#Normalize rows to sum to 1
A = solve(diag(rowSums(A))) %*% A
B = S = Q_seq = R_seq = diag(3)
CS = control_scheme_DLI_freestate(100, A, B, S, Q_seq, R_seq)
# }
Run the code above in your browser using DataLab