Tag: package

RLongLexTo แบ่งคำภาษาไทยใน R

จาก http://wp.me/p1rsA6-pn ผมเอา code ที่เขียนมาทำเป็น r-package แล้วเรียกมันว่า RLongLexTo (https://github.com/slphyx/RLongLexTo) ครับเผื่อว่าใครอยากเอาไปพัฒนาต่อ  เบื้องต้นนี้ผมทำเฉพาะสำหรับใช้งานบนวินโดว์ 10 เท่านั้น วิธีติดตั้ง *RLongLexTo ต้องการบางคำสั่งจาก package rJava ครับ ดังนั้นผู้ใช้ก็ต้องลง rJava ก่อนครับ library(devtools) install_github("slphyx/RLongLexTo") ##คำแนะนำสำหรับผู้ที่ลง rJava แล้วมีปัญหาใช้RLongLexToไม่ได้ ผมแนะนำให้ลง java JDK (http://www.oracle.com/technetwork/java/javase/downloads/index.html) หรือไม่ก็ลองดูเรื่อง PATH ของ Java ก่อนครับ ใน RLongLexTo นี้จะมีคำสั่งหลักคือ RLongLexToC ที่จะทำการรับข้อความภาษาไทยมาเพื่อทำการแบ่งคำ วิธีการใช้งาน RLongLexToC("ข้อความที่ต้องการแบ่งคำ") หากมีปัญหาเรื่องการแสดงผลภาษาไทยก็ให้ลองเซ็ตlocaleเป็นภาษาไทยก่อนใช้งานอีกทีครับ Sys.setlocale(locale="Thai") มีหลายคนเมล์มาสอบถามเรื่องการเอา RLongLexTo ไปใช้พร้อมกับถามเรื่องรายละเอียดของอัลกอรึทึ่มด้วย ซึ่งผมก็อยากบอกตรงนี้เลยนะครับว่าผมไม่รู้เรื่องหรอกครับ  ผมเพียงแต่เอา code ต้นฉบับมาดัดแปลงให้ใช้ใน R ตามที่มีคนถามมาและผมก็ว่างทำให้ดูเป็นตัวอย่างเท่านั้นครับ ส่วนตัวแล้วผมอยากจะบอกว่าคำสั่งสำหรับจัดการเรื่องข้อมูลประเภท string จาก package ชื่อ stringr

แบ่งคำภาษาไทยใน R ด้วย LexTo

มีคนส่งข้อความมาว่าให้ช่วยทำให้ดูหน่อยว่าจะเอาโปรแกรมตัดคำภาษาไทย http://www.sansarn.com/lexto/ ซึ่งเขียนด้วยภาษา Java โดย Choochart Haruechaiyasak มาใช้ใน R ได้อย่างไร ด้วยความที่เห็นว่าผู้ถามเป็นหญิง แถมส่งการ์ตูนมาด้วยว่าร้องไห้หนักมาก ไอ้เราก็เป็นคนใจอ่อนด้วยสิ เลยทำให้ดูแบบคร่าวๆตามนี้ครับ R สามารถที่เรียกโปรแกรมที่เขียนด้วย Java มาใช้ใน R หมายถึงมีการส่งผ่านค่าหรือรับค่าต่างๆจากโปรแกรมนั้นได้โดยใช้คำสั่งที่อยู่ในpackageอย่าง rJava ครับรายละเอียดก็ไปหาอ่านเอาเองนะครับ โปรแกรม LexTo ที่ให้โหลดกันนั้นจะมีfunction main อยู่ในไฟล์ LongLexTo.java ครับ ผมก็แก้ไขอะไรบางอย่าง(จำไม่ได้ ต้องเปิดดู) หลักๆก็วิธีที่เขียนผลลัพท์ออกมา แล้วก็คอมไพล์ใหม่ซึ่งเราก็จะได้เป็น .class มาครับ ส่วนอันนี้ก็เป็น code ที่เขียนเพื่อเรียกใช้ function main ของโปรแกรม LongLexTo ที่คอมไพล์แล้วครับ library(rJava) .jinit() .jaddClassPath(“D:\\works\\LongLexTo\\R”) # replace with the path to the folder containing

ติดตั้ง R package เพิ่มใน RLink

ใครที่ใช้ R ผ่าน RLink ของ Mathematica 9.0 บน Windows สามารถที่จะติดตั้ง R package ตัวที่ต้องการได้โดยเพียงพิมพ์ REvaluate[“install.packages(\” ชื่อ package ที่ต้องการ “\)”] มันจะมี windows อันหนึ่ง popup ขึ้นมาให้เราเลือก mirror host สำหรับ download ไฟล์ package เวลาเรียกใช้ก็เหมือนใน R เลยครับ เช่น REvaluate[“{ library(ชื่อ library) blah blah .. }”]   🙂      

ใช้ Mathematica ช่วยในการตรวจสลากกินแบ่งรัฐบาลครับ

วิธีการก็คือดึงเอาภาพจากเวบของกองสลากมาครับ dat = Import[“http://www.glo.or.th/detail.php?link=result_image”, {“Source”}]; date = StringCases[dat, “option” ~~ __ ~~ “select”]; datels = StringCases[date, “value” ~~ __ ~~ “.gif” ~~ __ ~~ “select”]; pics = (StringReplace[#, {“” -> “,”, “” -> “”}] & /@ StringSplit[datels[[1]], “\n”][[1]]); pics = pics[[2 ;; Length@pics – 1]]; filenamels = StringCases[#, __ ~~ “.gif”][[1]] & /@ pics; datethls

เข้ารหัสไฟล์

สำหรับคนที่เขียน Mathematica package และต้องการเผยแพร่แต่ไม่ต้องการให้คนเห็น codes ที่ตัวเองเขียนขึ้นมา จะด้วยเหตุผลอะไรก็ตาม สามารถใช้วิธีนี้ได้ครับ ซึ่งก็คือการเข้ารหัสด้วยการใช้คำสั่ง Encode เช่น ถ้าไฟล์ package ต้นฉบับชื่อ mysexy.m และต้องการสร้างไฟล์ที่เข้ารหัสใหม่ชื่อ newsexy.m สามารถพิมพ์ตามนี้ได้เลยครับ Encode[“mysexy.m”,”newsexy.m”] ซึ่งถ้าเปิดด้วยคำสั่ง FilePrint ก็จะเห็น codes ที่ถูกเข้ารหัสอย่างตามตัวอย่างนี้ครับ FilePrint[“newsexy.m”] (*1N!*)mcmj<hTJue’P+lKh]7t>X#r/N5>m^c0Q tvNP”8dgNdX!bm^)#ab5F5″L,r/b/rQA==`2L8#%,0)TEnnSa<,P_<“bKr)o.to:aE+huM_jty,B

เขียน Mathematica package แบบง่ายๆ

มาลองเขียน Mathematica package แบบง่ายๆกันครับ Mathematica package คืออะไร Mathematica package ก็คือชุดคำสั่งหรือโปรแกรมที่ถูกเขียนขึ้นเพื่อใช้ในการคำนวณเฉพาะด้าน ซึ่งจะมีสกุล .m โดยถ้าเปิดไฟล์ .m ด้วย text editor อย่างเช่น notepad หรือ Mathematica เองเราจะเห็น code ข้างในมีคำสั่งหลักๆดังนี้ เช่น BeginPackage[ “ชื่อpackage`”] คำสั่ง1::usage = “คำสั่ง1[ x] คำอธิบายการใช้คำสั่ง1” Begin[ “Private`”] คำสั่ง1[ x_] :=  …. End EndPackage การเรียกใช้งาน package ใน Mathematica เพียงใช้คำสั่ง Get หรือเครื่องหมาย << เช่น ถ้าpackage เราชื่อ MyPackage ก็เพียงพิมพ์ Get[MyPackage`] หรือ

การติดตั้ง package ของ R เพิ่ม

การติดตั้ง package ของ R เพิ่ม สำหรับบน Linux ครับ 1. ติดตั้งจาก source source ที่พูดถึงก็เป็นพวกไฟล์ package ที่มีสกุล tar.gz ที่สามารถ download ได้จากเวบ http://www.r-project.org/ หรือ http://cran.r-project.org/mirrors.html  หลังจากที่ download มาแล้วเก็บไว้ที่ เช่น /home/MyAccount/Rlib ก็สามารถพิมพ์คำสั่งนี้ได้เลย $ R CMD INSTALL ชื่อไฟล์.tar.gz -l /home/MyAccount/Rlib/ 2. ติดตั้งจากเวบ CRAN โดยตรง พิมพ์คำสั่งนี้ใน R console สำหรับติดตั้ง package ที่ต้องการไว้ที่ /home/MyAccount/Rlib > install.packages(“ชื่อ package”, lib=”/home/MyAccount/Rlib/”) หลังจากติดตั้งแล้วจะเรียกใช้ก็ให้พิมพ์ใน R console คำสั่ง นี้ครับ