{
  "id": 20904,
  "title": "Exploratory analysis: 3d scatterplot",
  "url": "/competitions/facebook-v-predicting-check-ins/discussion/20904",
  "author_name": "Anton Shilkin",
  "post_date": "2016-05-12T13:45:02.847000",
  "votes": 7,
  "comment_count": 0,
  "views": 626,
  "content": "<p>Hi, I've extracted sample data of four place_ids and plotted x, y, accuracy:</p>\n\n<pre><code>four&lt;-train[place_id %in% c(&quot;8523065625&quot;,&quot;1757726713&quot;,&quot;1137537235&quot;,&quot;6567393236&quot;),]\nfour$color&lt;-ifelse(four$place_id==&quot;8523065625&quot;,&quot;red&quot;,ifelse(four$place_id==&quot;1757726713&quot;,&quot;blue&quot;,ifelse(four$place_id==&quot;1137537235&quot;,&quot;green&quot;,&quot;black&quot;)))\nlibrary(rgl)\nplot3d(four$x,four$y,four$accuracy,col=four$color)\n</code></pre>\n\n<p>It looks like the higher accuracy is, the lower variation over x we have.</p>\n\n<p>Also interesting observation is that the plot of accuracy seems like mixture of four Weibull distribution, which is used &quot;To model fading channels in wireless communications, as the Weibull fading model seems to exhibit good fit to experimental fading channel measurements&quot; according to wiki.</p>",
  "messages": [
    {
      "id": 119724,
      "postDate": "2016-05-12T13:45:02.847Z",
      "content": "<p>Hi, I've extracted sample data of four place_ids and plotted x, y, accuracy:</p>\n\n<pre><code>four&lt;-train[place_id %in% c(&quot;8523065625&quot;,&quot;1757726713&quot;,&quot;1137537235&quot;,&quot;6567393236&quot;),]\nfour$color&lt;-ifelse(four$place_id==&quot;8523065625&quot;,&quot;red&quot;,ifelse(four$place_id==&quot;1757726713&quot;,&quot;blue&quot;,ifelse(four$place_id==&quot;1137537235&quot;,&quot;green&quot;,&quot;black&quot;)))\nlibrary(rgl)\nplot3d(four$x,four$y,four$accuracy,col=four$color)\n</code></pre>\n\n<p>It looks like the higher accuracy is, the lower variation over x we have.</p>\n\n<p>Also interesting observation is that the plot of accuracy seems like mixture of four Weibull distribution, which is used &quot;To model fading channels in wireless communications, as the Weibull fading model seems to exhibit good fit to experimental fading channel measurements&quot; according to wiki.</p>",
      "rawMarkdown": "Hi, I've extracted sample data of four place_ids and plotted x, y, accuracy:\r\n\r\n    four<-train[place_id %in% c(\"8523065625\",\"1757726713\",\"1137537235\",\"6567393236\"),]\r\n    four$color<-ifelse(four$place_id==\"8523065625\",\"red\",ifelse(four$place_id==\"1757726713\",\"blue\",ifelse(four$place_id==\"1137537235\",\"green\",\"black\")))\r\n    library(rgl)\r\n    plot3d(four$x,four$y,four$accuracy,col=four$color)\r\n\r\nIt looks like the higher accuracy is, the lower variation over x we have.\r\n\r\nAlso interesting observation is that the plot of accuracy seems like mixture of four Weibull distribution, which is used \"To model fading channels in wireless communications, as the Weibull fading model seems to exhibit good fit to experimental fading channel measurements\" according to wiki.\r\n",
      "votes": 7
    }
  ],
  "comments": [],
  "raw_markdown_by_id": {
    "119724": "Hi, I've extracted sample data of four place_ids and plotted x, y, accuracy:\r\n\r\n    four<-train[place_id %in% c(\"8523065625\",\"1757726713\",\"1137537235\",\"6567393236\"),]\r\n    four$color<-ifelse(four$place_id==\"8523065625\",\"red\",ifelse(four$place_id==\"1757726713\",\"blue\",ifelse(four$place_id==\"1137537235\",\"green\",\"black\")))\r\n    library(rgl)\r\n    plot3d(four$x,four$y,four$accuracy,col=four$color)\r\n\r\nIt looks like the higher accuracy is, the lower variation over x we have.\r\n\r\nAlso interesting observation is that the plot of accuracy seems like mixture of four Weibull distribution, which is used \"To model fading channels in wireless communications, as the Weibull fading model seems to exhibit good fit to experimental fading channel measurements\" according to wiki.\r\n"
  }
}