https://lms.onnocenter.or.id/wiki/index.php?action=history&feed=atom&title=R%3A_evaluasi_twit R: evaluasi twit - Revision history 2026-04-20T23:50:32Z Revision history for this page on the wiki MediaWiki 1.45.1 https://lms.onnocenter.or.id/wiki/index.php?title=R:_evaluasi_twit&diff=52406&oldid=prev Onnowpurbo: Created page with " maruti_tweets = userTimeline("Maruti_suzuki", n=1000,cainfo="cacert.pem") hyundai_tweets = userTimeline("HyundaiIndia", n=1000,cainfo="cacert.pem") tata_tweets = userTimeli..." 2018-11-01T03:04:23Z <p>Created page with &quot; maruti_tweets = userTimeline(&quot;Maruti_suzuki&quot;, n=1000,cainfo=&quot;cacert.pem&quot;) hyundai_tweets = userTimeline(&quot;HyundaiIndia&quot;, n=1000,cainfo=&quot;cacert.pem&quot;) tata_tweets = userTimeli...&quot;</p> <p><b>New page</b></p><div> maruti_tweets = userTimeline(&quot;Maruti_suzuki&quot;, n=1000,cainfo=&quot;cacert.pem&quot;)<br /> hyundai_tweets = userTimeline(&quot;HyundaiIndia&quot;, n=1000,cainfo=&quot;cacert.pem&quot;)<br /> tata_tweets = userTimeline(&quot;TataMotors&quot;, n=1000,cainfo=&quot;cacert.pem&quot;)<br /> toyota_tweets = userTimeline(&quot;Toyota_India&quot;, n=1000,cainfo=&quot;cacert.pem&quot;)<br /> <br /> # get text<br /> maruti_txt = sapply(maruti_tweets, function(x) x$getText())<br /> hyundai_txt = sapply(hyundai_tweets, function(x) x$getText())<br /> tata_txt = sapply(tata_tweets, function(x) x$getText())<br /> toyota_txt = sapply(toyota_tweets, function(x) x$getText())<br /> <br /> clean.text = function(x)<br /> {<br /> # tolower<br /> x = tolower(x)<br /> # remove rt<br /> x = gsub(&quot;rt&quot;, &quot;&quot;, x)<br /> # remove at<br /> x = gsub(&quot;@\\w+&quot;, &quot;&quot;, x)<br /> # remove punctuation<br /> x = gsub(&quot;[[:punct:]]&quot;, &quot;&quot;, x)<br /> # remove numbers<br /> x = gsub(&quot;[[:digit:]]&quot;, &quot;&quot;, x)<br /> # remove links http<br /> x = gsub(&quot;http\\w+&quot;, &quot;&quot;, x)<br /> # remove tabs<br /> x = gsub(&quot;[ |\t]{2,}&quot;, &quot;&quot;, x)<br /> # remove blank spaces at the beginning<br /> x = gsub(&quot;^ &quot;, &quot;&quot;, x)<br /> # remove blank spaces at the end<br /> x = gsub(&quot; $&quot;, &quot;&quot;, x)<br /> return(x)<br /> }<br /> <br /> # clean texts<br /> maruti_clean = clean.text(maruti_txt)<br /> hyundai_clean = clean.text(hyundai_txt)<br /> tata_clean = clean.text(tata_txt)<br /> toyota_clean = clean.text(toyota_txt)<br /> maruti = paste(maruti_clean, collapse=&quot; &quot;)<br /> <br /> <br /> <br /> ==Pranala Menarik==<br /> <br /> * [[R]]</div> Onnowpurbo