{"action":"opened","issue":{"url":"https://api.github.com/repos/rdpeng/ProgrammingAssignment2/issues/1714","repository_url":"https://api.github.com/repos/rdpeng/ProgrammingAssignment2","labels_url":"https://api.github.com/repos/rdpeng/ProgrammingAssignment2/issues/1714/labels{/name}","comments_url":"https://api.github.com/repos/rdpeng/ProgrammingAssignment2/issues/1714/comments","events_url":"https://api.github.com/repos/rdpeng/ProgrammingAssignment2/issues/1714/events","html_url":"https://github.com/rdpeng/ProgrammingAssignment2/issues/1714","id":133536814,"number":1714,"title":"assignment2 luyangyi","user":{"login":"luyangyi","id":14303268,"avatar_url":"https://avatars.githubusercontent.com/u/14303268?v=3","gravatar_id":"","url":"https://api.github.com/users/luyangyi","html_url":"https://github.com/luyangyi","followers_url":"https://api.github.com/users/luyangyi/followers","following_url":"https://api.github.com/users/luyangyi/following{/other_user}","gists_url":"https://api.github.com/users/luyangyi/gists{/gist_id}","starred_url":"https://api.github.com/users/luyangyi/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/luyangyi/subscriptions","organizations_url":"https://api.github.com/users/luyangyi/orgs","repos_url":"https://api.github.com/users/luyangyi/repos","events_url":"https://api.github.com/users/luyangyi/events{/privacy}","received_events_url":"https://api.github.com/users/luyangyi/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2016-02-14T12:55:28Z","updated_at":"2016-02-14T12:55:28Z","closed_at":null,"body":"makeMatrix<-function(x=numeric()){\r\n  m<-NULL\r\n  set<-function(y){\r\n    x<<-y\r\n    m<<-NULL\r\n  }\r\n  get<-function() x\r\n  setinverse<-function(inverse) m<<-inverse\r\n  getinverse<-function() m\r\n  list(set=set,get=get,setinverse=setinverse,getinverse=getinverse)\r\n}\r\ncashemean<-function(x,...){\r\n  m<-x$getinverse()\r\n  if(!is.null(m)){\r\n    message(\"getting cashed data\")\r\n    return(m)\r\n  }\r\n  data<-x$get()\r\n  m<-solve(data,...)\r\n  x$setinverse(m)\r\n  m\r\n}\r\n"}}