20240920 AI/LLMで Rパッケージを開発する

2024年9月20日 (金) 14:35～15:00
Bio"Pack"athon 2024 #9_1 Osaka Workshop
@大阪公立大学 健康科学イノベーションセンター
（パッケージング技術の基礎2 ）
AI/LLMで Rパッケージを開発する

久米 慧嗣 / @skume
連絡先: skume.bioinfo at gmail.com

アジェンダ
Rパッケージ開発中に遭遇する課題とは？
Rパッケージ開発の流れとLLM活用シーンと使用例
Rパッケージ開発に使えそうAI・LLMサービス
AI Agentの現状理解
AI Agentで、 Rパッケージ開発はどこまでできるか？
Open-interpreter / GPT-4oでのデモ（5 min）

Transcript

1. ٱถ ܛ࢚ 
   !TLVNF ࿈བྷઌ
   TLVNFCJPJOGP BU
   HNBJMDPN ೥݄೔ ۚ ʙ #JP1BDLBUIPO 
   @
   0TBLB
   8PSLTIPQ !େࡕެཱେֶ ݈߁ՊֶΠϊϕʔγϣϯηϯλʔ "*--.Ͱ ύοέʔδΛ։ൃ͢Δ ʢύοέʔδϯάٕज़ͷجૅ
   ʣ
2. ΞδΣϯμ • 3ύοέʔδ։ൃதʹૺ۰͢Δ՝୊ͱ͸ʁ • 3ύοέʔδ։ൃͷྲྀΕͱ--.׆༻γʔϯͱ࢖༻ྫ • 3ύοέʔδ։ൃʹ࢖͑ͦ͏"*ɾ--.αʔϏε • "*
   "HFOUͷݱঢ়ཧղ • "*
   "HFOUͰɺ 3ύοέʔδ։ൃ͸Ͳ͜·ͰͰ͖Δ͔ʁ • 0QFOJOUFSQSFUFS
   
   (15PͰͷσϞʢ
   NJOʣ ೥݄൛ --.৘ใ Ξοϓσʔτ
3. 3ύοέʔδ։ൃதʹૺ۰͢Δ՝୊ ೥݄࣌఺Ͱɺ໘౗ͳ͜ͱʹ͸ɺ --.Λੵۃతʹ׆༻͢Δ͜ͱͰɺ ΄΅ղܾͦ͠͏ͳঢ়گͰ͋Δ ࢲݟ ɻ <
   ୅දతͳ՝୊ > • 3ύοέʔδɾؔ਺ͷσβΠϯɾ࣮૷ • ίʔυՄಡੑ΁ͷ഑ྀ • 3Ϣʔβʔ͕ීஈग़ձΘͳ͍Τϥʔ΍ όά΁ͷରԠ 
   Ϣʔβʔͱ%FWଆͱͷน
   3ύοέʔδࠎ֨ .JO 3ؔ਺ 3υΩϡϝϯτ ύοέʔδͷఆٛϑΝΠϧ 3ಠࣗͷϚʔΫΞοϓ ݴޠͰهड़ɻ
4. 3ύοέʔδ։ൃͷྲྀΕͱ--.׆༻γʔϯ  ΞΠσΞग़͠ͱߏ૝ ৽͍͠ΞΠσΟΞ΍ղܾࡦͷఏҊΛิॿ  ύοέʔδͷઃܭͱΞʔΩςΫνϟͷઃܭ ύοέʔδͷશମతͳઃܭΛิॿ  3ؔ਺ͷ࡞੒
   ίʔυ࡞੒ͷิॿ  3ݴޠͷจ๏νΣοΫ جຊతͳจ๏ΤϥʔΛࢦఠ  3PYZHFOίϝϯτͷ෇༩ 3PYZHFOελΠϧͷίϝϯτͷੜ੒Λิॿ  ೔ຊޠ͔Βӳޠ΁ͷ຋༁ υΩϡϝϯςʔγϣϯ຋༁ͷิॿ  υΩϡϝϯςʔγϣϯͷ࡞੒ͱվળ  ࢖༻ྫ΍νϡʔτϦΞϧͷ࡞੒  σόοάɺόάͷमਖ਼ɺςετ όάͷಛఆ΍मਖ਼ɺςετέʔεͷ࡞੒Λิॿ  Ϣʔβʔ͔ΒͷϑΟʔυόοΫɾػೳ௥Ճ΁ͷରԠ  ؔ࿈ύοέʔδͷௐࠪ ؔ࿈͢Δύοέʔδ΍πʔϧʹ͍ͭͯ΢Σϒ৘ใఏڙ  จݙௐࠪɾཁ໿ 8FCεΫϨΠϐϯάɺ1%'ಡΈࠐΈ౳ͱͷ૊Έ߹ΘͤͰɺಛ ఆͷτϐοΫʹؔ͢Δௐࠪ΍ཁ໿Λఏڙ ։ൃલͷ ஈ֊ ؔ਺ͷ࡞੒ υΩϡϝϯτ ͷ࡞੒ ςετɺό άमਖ਼ͳͲ ݕࡧɾௐࠪ ɾཁ໿ ˞
   ԋऀ͸֤ʑͷྲྀΕΛ3ύοέʔδͷ࣮ߦؔ਺ͱ࣮ͯ͠૷தɻ
5. ࣮ߦ
   DIBU(15 (156*൛
   Y଎ <--.ॳڃ>
   όΠΦΠϯϑΥͷ֓೦ʹ͍ͭͯɺઐ໳Ոͪͬ͘ʹ ౴͍͑ͯͩ͘͞ɻ --.Ͱͷύοέʔδ։ൃͷࣄྫʹೖΔલʹɺɺɺ --.ͷ࣮ߦྫ (15
   6* 
   IUUQTZPVUVCFG%4U 8BU TJS'$/2HG 8VQ%CO
6. <--.ࣄྫ>
   3ؔ਺ͷυΩϡϝϯςʔγϣϯ SPYZHFOฤ ࣮ߦ
   (156*൛ SPYZHFOͱ͸3ύοέʔδͷͭͰɺ3ؔ਺ఆٛͷࠓ෩ͷॻ͖ํΛఏڙ͍ͯ͠Δɻ ௨ৗखॻ͖͢Δɻ SPYZHFOܗࣜ Λ3EϑΝΠϧ ʹม׵ --.ͰSPYZHFOܗࣜͷ࡞੒ 3PYZHFO
   (15
   6* 
   IUUQTZPVUVCFX5.;G-.9:) TJB77@ZW@U[;
7. 6*൛--.͸3ͬΆ͍--.࣮ߦͰ͸ແ͍ • ϓϩϯϓτ͕ࣗવݴޠͱ͸͍͑ɺ࣮ߦ͕৑௕ɻ • Ϣʔβʔଆ͕ಉ͡ϓϩϯϓτΛଧͬͯ͘ΕΔ อূ͕ͳ͍ 
   ࠶ݱੑͷ໰୊ ɻ • ͦ΋ͦ΋ɺ3Ͱ׬͍݁ͯ͠ͳ͍ɻ "1*Ͱɺ334UVEJP্Ͱ࢖͑ΔΑ͏ʹ࣮૷͠Α͏ͱ ͍͏͜ͱͰɺDIBU"*3ύοέʔδͷ࣮૷Λண૝ͨ͠ɻ
8. 3Ͱͷ׆༻ྫ 
   3ؔ਺΍࣮ߦΤϥʔΛௐ΂Δ<ௐࠪฤ> ࣮ߦ
   (15
   "1*
   3DIBU"*3
   Y 3ؔ਺Λௐ΂Δ ࣮ߦΤϥʔͷௐࠪ TFBSDI'VODUJPOؔ਺ DIFDL&SSPS%FUؔ਺ DIFDL&SSPS%FU@+1ؔ਺ 3TUVEJPͷ6*ػೳͰ࣮૷ "EEJOT࣮ߦͰબ୒෦෼ΫϦοϓ ϘʔυΛ3ؔ਺ͷೖྗʹ͢Δ ˞ؔ਺ܕͰ΋࢖͑Δ DIBU"*3
   EFNP
   IUUQTZPVUVCF02-.W%+V: TJ[D21;N8[%L+FEZN
9. 3Ͱͷ׆༻ྫ 
   3ύοέʔδ༻ͷؔ਺࡞੒σϞ ϓϩϯϓτೖྗ ΞΠσΟΞੜ੒αϙʔτ ཁ݅ఆٛͷ࡞੒ 3ؔ਺ͷ࡞੒ 3PYZHFO෦෼ͷ෇༩ ࣮ߦ
   (15
   "1*
   3DIBU"*3
   3EFFQ3TUVEJP Y ӳޠ ˠ ೔ຊޠ ӳޠ ˠ ೔ຊޠ DIBU"*3
   EFNP
   IUUQTZPVUVCFE*6L$R$45X TJY"QECW+*-VER6
10. --.ίʔσΟϯάͷΞΠσΟΞ ςΩετ $PEF ςΩετ ཁ݅ఆٛ $PEF $PEF $PEF $PEF $PEF ஫ऍ $PEF ςΩετ ςΩετ $PEF ཁ݅ఆٛ $PEF
11. ΞδΣϯμ • 3ύοέʔδ։ൃதʹૺ۰͢Δ՝୊ͱ͸ʁ • 3ύοέʔδ։ൃͷྲྀΕͱ--.׆༻γʔϯͱ࢖༻ྫ • 3ύοέʔδ։ൃʹ࢖͑ͦ͏"*ɾ--.αʔϏε • "*
    "HFOUͷݱঢ়ཧղ • "*
    "HFOUͰɺ 3ύοέʔδ։ൃ͸Ͳ͜·ͰͰ͖Δ͔ʁ • 0QFOJOUFSQSFUFS
    
    (15PͰͷσϞʢ
    NJOʣ ೥݄൛ --.৘ใ Ξοϓσʔτ
12. ։ൃʹ࢖͑ͦ͏"*ɾ--.αʔϏε 5IF
    5PQ
    
    (FO
    "*
    "QQT
    Š SE
    FEJUJPO 61%"5&%
    "6(645
     IUUQTB[DPNHFO BJBQQT
13. "*ɾ--. αʔϏε ఏڙݩ Ϟσϧ උߟ $IBU(15 P
    
    P ສೳϞσϧ PͰϓϩάϥϛϯά޲্ $MBVEF 
    4POOFU ίʔσΟϯά༻్ Ϛϧν -MBNB΍ը૾ੜ੒΋Մೳ 4IPU͝ͱʹϞσϧมߋՄ TJEFSBJ Ϛϧν 
    ೥ͷ͓ؾʹೖΓ $ISPNF
    ֦ுػೳͷτοϓ  Ϛϧν ಉ͕ࣾ։ൃͨ͠ݴޠॲཧϢχοτ ʢ-16ʣΛར༻ɻਪ࿦༻్ʹಛԽɺ Ұํֶश༻్ʹ͸ෆ޲͖ɻ ։ൃʹ࢖͑ͦ͏"*ɾ--.αʔϏε ˞
    Ұൠར༻ͷ༻్ɾແྉ࿮Ͱ࢖͑Δ--.
14. "*ɾ--. αʔϏε ఏڙݩ Ϟσϧ උߟ (PPHMF
    4FBSDI
    -BCT (PPHMFݕࡧ࣌ʹ࣌ʑදࣔ 1FSQMFYJUZ
    "* Ϛϧν (15΍$MBVEF
    ͳͲ HFOTQBSL (15 ಛผͳ΢Σϒϖʔδ ʢ4QBSLQBHFTʣΛੜ੒͢Δ "*ݕࡧαʔϏε ։ൃʹ࢖͑ͦ͏"*ݕࡧαʔϏε
15. (FOTQBSLΛ࢖ͬͨ"*ݕࡧͷσϞ IUUQTXXXHFOTQBSLBJ
16. ΞδΣϯμ • 3ύοέʔδ։ൃதʹૺ۰͢Δ՝୊ͱ͸ʁ • 3ύοέʔδ։ൃͷྲྀΕͱ--.׆༻γʔϯͱ࢖༻ྫ • 3ύοέʔδ։ൃʹ࢖͑ͦ͏"*ɾ--.αʔϏε • "*
    "HFOUͷݱঢ়ཧղ • "*
    "HFOUͰɺ 3ύοέʔδ։ൃ͸Ͳ͜·ͰͰ͖Δ͔ʁ • 0QFOJOUFSQSFUFS
    
    (15PͰͷσϞʢ
    NJOʣ ೥݄൛ --.৘ใ Ξοϓσʔτ
17. • Ϣʔβʔͷ୅ΘΓʹλεΫΛࣗ཯తʹ࣮ߦ͢Διϑτ ΢ΣΞͷ͜ͱΛࢦ͢ "*
    "HFOU
    
    "*ΤʔδΣϯτͱ͸ʁ ਤҾ༻ IUUQTMFEHFBJBSUJDMFT BCPVU@BJBHFOU
18. πʔϧ໊ (JU)VC 45"3 ಛ௃ "VUP(15 L #VJME
    
    6TF
    "*
    "HFOUT
    4JHOJGJDBOU(SBWJUBT"VUP(15 PQFOJOUFSQSFUFS L ࣗવݴޠͰࢦࣔ͢Δ͚ͩͰίʔυΛॻ͍࣮ͯߦ·Ͱͯ͘͠ΕΔɻ .FUB(15 L 5IF
    .VMUJ"HFOU
    'SBNFXPSL "HFOU(15 L BMMPXT
    ZPV
    UP
    DPOGJHVSF
    BOE
    EFQMPZ
    "VUPOPNPVT
    "*
    BHFOUT 0QFO)BOET L B
    QMBUGPSN
    GPS
    TPGUXBSF
    EFWFMPQNFOU
    BHFOUT
    QPXFSFE
    CZ
    "* BVUPHFO L BO
    PQFOTPVSDF
    QSPHSBNNJOH
    GSBNFXPSL
    GPS
    CVJMEJOH
    "*
    BHFOUT
    BOE
    GBDJMJUBUJOH
    DPPQFSBUJPO
    BNPOH
    NVMUJQMF
    BHFOUT
    UP
    TPMWF
    UBTLT CBCZBHJ L BO
    FYBNQMF
    PG
    BO
    "*QPXFSFE
    UBTL
    NBOBHFNFOU
    TZTUFN 4VQFS"(* L 0QFOTPVSDF
    GSBNFXPSL
    UP
    CVJME
    NBOBHF
    BOE
    SVO
    VTFGVM
    "VUPOPNPVT
    "*
    "HFOUT DBNFM L BO
    PQFOTPVSDF
    MJCSBSZ
    EFTJHOFE
    GPS
    UIF
    TUVEZ
    PG
    BVUPOPNPVT
    BOE
    DPNNVOJDBUJWF
    BHFOUT "*
    "HFOUͷ։ൃঢ়گ (JU)VCௐ΂ ˞೥݄೔࣌఺ FY
    MBOHDIBJO
    L
19. 0QFOJOUFSQSFUFSͱ͸ʁ • ࣗવݴޠͰࢦࣔΛ༩͑Δ͜ͱͰίʔυΛॻ͖ɺίϚϯ υ࣮ߦ·Ͱߦͬͯ͘ΕΔπʔϧʢίϚϯυΛҕͶΔʣɻ • ར఺
    ϩʔΧϧ؀ڥʹʢQJQʣΠϯετʔϧ͢Δ͜ͱͰɺ λʔϛφϧ্Ͱ--.͕ར༻ՄೳͱͳΔ఺ɻ • (15
    "1*Ωʔඞཁ ɺ-PDBM
    Ϟσϧ .JTUSBM
    # ͳ Ͳ͕࢖͑Δɻ IUUQTHJUIVCDPN0QFO*OUFSQSFUFSPQFOJOUFSQSFUFSCMPCNBJOEPDT3&"%.&@+"NE
20. ೥݄͔Βͷ--.৘ใΞοϓσʔλ IUUQTUPHPUWECDMTKQSFTVMUIUNM UZQFMFDUVSFQBHFRVFSZ&#&##&"&" ೥ʙ೥݄Ͱ τʔΫΛ5PHP57Խ
21. ೥݄͔Βͷ--.৘ใΞοϓσʔλ IUUQTUPHPUWECDMTKQSFTVMUIUNM UZQFMFDUVSFQBHFRVFSZ&#&##&"&" ೥ʙ೥݄Ͱ τʔΫΛ5PHP57Խ
22. <೥݄>
    0QFOJOUFSQSFUFSHQUͷڍಈ $IBU(15ͷݱঢ়ཧղͱ೥ ݄൛--.৘ใΞοϓσʔτ !
    #JPz1BDLzBUIPOΑΓ
23. <೥݄>
    0QFOJOUFSQSFUFSHQUPΛ࢖ͬͯɺ 3ύοέʔδ։ൃ͸Ͳ͜·ͰͰ͖Δ͔ʁ
24. ࠓճ࢖༻ͨ͠ϓϩϯϓτ ෮श༻ • 3ύοέʔδͷ։ൃ͕͍ͨ͠ • 3ύοέʔδ։ൃͷΞΠσΟΞΛ͍͔ͭ͘ग़ͯ͠ɻ • lσʔλॲཧύοέʔδzͷ3ύοέʔδΛ࡞੒͍ͨ͠ͷͰɺ·ͣ ͸ཁ݅ఆٛΛͯ͠ɺύοέʔδ࡞੒Λ։͍࢝ͯͩ͘͠͞ɻ • ࢭ·ͬͨݪҼΛΑ͘ߟ͑ͯɺղܾࡦͰߨͯ͡΍Γ௚ͯ͠ʂ • ଞͷؔ਺΋࡞੒ͯ͠ɻ <ଞͷ࣮ߦྫ> • SPYZHFOͷه๏ʹج͍ͮͯॻ͍͍ͯͩ͘͞ɻ • ֤ϑΝΠϧΛಡΈࠐΜͰɺίʔυΛσόοάͯ͠ɻ
25. ·ͱΊ • 3ύοέʔδ։ൃதͷ--.ར༻Λ֓આ • ೥݄൛--.৘ใΞοϓσʔτ • "*
    "HFOUͷݱঢ়ཧղͱݱࡏͷͲ͜·Ͱ ࢖͑ͦ͏͔ͷ࿩ɻ