{"action":"opened","issue":{"url":"https://api.github.com/repos/nutterb/HydeNet/issues/92","labels_url":"https://api.github.com/repos/nutterb/HydeNet/issues/92/labels{/name}","comments_url":"https://api.github.com/repos/nutterb/HydeNet/issues/92/comments","events_url":"https://api.github.com/repos/nutterb/HydeNet/issues/92/events","html_url":"https://github.com/nutterb/HydeNet/issues/92","id":108388116,"number":92,"title":"Adding observed nodes to compileDecisionModel()","user":{"login":"jarrod-dalton","id":11472793,"avatar_url":"https://avatars.githubusercontent.com/u/11472793?v=3","gravatar_id":"","url":"https://api.github.com/users/jarrod-dalton","html_url":"https://github.com/jarrod-dalton","followers_url":"https://api.github.com/users/jarrod-dalton/followers","following_url":"https://api.github.com/users/jarrod-dalton/following{/other_user}","gists_url":"https://api.github.com/users/jarrod-dalton/gists{/gist_id}","starred_url":"https://api.github.com/users/jarrod-dalton/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/jarrod-dalton/subscriptions","organizations_url":"https://api.github.com/users/jarrod-dalton/orgs","repos_url":"https://api.github.com/users/jarrod-dalton/repos","events_url":"https://api.github.com/users/jarrod-dalton/events{/privacy}","received_events_url":"https://api.github.com/users/jarrod-dalton/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2015-09-25T18:59:38Z","updated_at":"2015-09-25T18:59:38Z","closed_at":null,"body":"Right now, `compileDecisionModel()` forbids adding a `data` argument as is done in `compileJagsModel()` when nodes are observed.\r\n\r\n```\r\n  g <- HydeNetwork(~ CAD | Age * Sex * ChestPainType\r\n                   + stressTestResult | do.stressTest * CAD\r\n                   + ekgResult        | do.ekg * CAD\r\n                   + echoResult       | do.echo * CAD\r\n                   + ctaResult        | do.cta * CAD\r\n                   + testCosts | do.stressTest * do.ekg\r\n                                 * do.echo * do.cta)\r\n \r\n<< setNode, etc... >>>\r\n\r\n  cg <- compileDecisionModel(g, data=list(Age=71, Sex=\"Male\", ChestPainType=\"Typical\"))\r\n```\r\n\r\n```\r\nError: \r\nmakePolicyMatrix(network, policyMatrix, Check)\r\n1: 'data' is not an accepted argument in 'compileDecisionModel'\r\n```"}}