นโยบายการจัดการความรู้ มหาวิทยาลัยสงขลานครินทร์ 1.ให้ใช้เครื่องมือการจัดการความรู้ผลักดัน คุณภาพคน และกระบวนทำงาน 2.ส่งเสริมการแลกเปลี่ยนประสบการณ์การทำงาน จากหน้างาน 3.ส่งเสริมให้มีเวทีเรียนรู้ร่วมกัน

Our Shangri-La
Ico64
Kittisakdi Choomalee

ภาควิชาเวชศาสตร์ชุมชน คณะแพทยศาสตร์ มหาวิทยาลัยสงขลานครินทร์
เครือข่าย
สมาชิก · ติดตาม: 0 · ผู้ติดตาม: 16

อ่าน: 1152
ความเห็น: 2

ก้าวย่างทางเดิน ลืมเลือนคืนวัน ดั้นด้นไป: เดินไปเดินมา ๓ วัน กับ R # ๑๔ [C]

เงื่อนไขที่ทำให้ต้องเดินไปเดินมา

บันทึกที่เกี่ยวข้อง

 

ข้อเท็จจริงเกี่ยวกับข้อมูลที่ใช้เป็นตัวอย่างในบันทึกชุดนี้คือ ข้อมูลทั้งหมดเป็นข้อมูลที่ถูกสร้างขึ้นมาแบบสุ่ม โดยเครื่องคอมพิวเตอร์ ดังนั้นข้อมูลที่ใช้เป็นตัวอย่างนี้จึงไม่ตรง/ เหมือนกับข้อมูลในชีวิตจริง

 

ความเดิมตอนที่แล้ว

 

ตอนที่แล้วเราจัดการดึงค่า factor มาจากตารางความสัมพันธ์ระหว่างค่า TG และค่า Non HDL โดยใช้วิธีการผสมผสานระหว่างลูกทุ่งกับลูกกรุง ซึ่งจะพบข้อจำกัดอยู่ที่จำนวนข้อมูลต้องมีไม่มากเกิน ๔๐,๐๐๐ ระเบียนต่อ ๑ ชุดข้อมูล เนื่องจากเราจัดการข้อมูลผ่านทาง matrix ซึ่งมีข้อจำกัดที่ขนาดของ matrix

 

ความต่อ

 

ครั้งนี้เรามาใช้วิธีแบบเด็กแนวกันนะครับ

 

อย่างที่กล่าวไปแล้วว่า วิธีการแก้ปัญหาเรื่องนี้วิธีที่ง่ายที่สุดก็คงเป็นเรื่องของการเขียน loop คำสั่งสำหรับให้ทำงานซ้ำ ๆ ในการดึงข้อมูลค่า factor จากตารางความสัมพันธ์ระหว่างค่า TG และค่า Non HDL มา

 

แต่ก่อนที่จะใช้วิธีเด็กแนวแบบนี้เราก็ต้องคิดหาทางอื่นดูว่า ยังมีทางอื่นที่พอจะทำได้ไหม โดยที่ไม่ต้องเขียน loop คำสั่ง

 

เมื่อสำเร็จเสร็จตามที่หมาย ได้เรื่องได้ราวมาพอสมควรแล้ว เรามาเขียน loop คำสั่งสำหรับการจัดการปัญหานี้กันนะครับ

 

เรื่องการเขียน loop คงจะจัดการกับปัญหาเรื่องขนาดของ matrix ไปได้ เพราะเราจะใช้การจัดการผ่านกรอบข้อมูล (data frame) โดยตรง โดยที่กรอบข้อมูลสามารถรองรับข้อมูลที่มีจำนวนมากได้  และเราไม่จำเป็นต้องสร้างข้อมูลชั่วคราวขึ้นมาก่อนอีกด้วย

 

ลุยกันเลยนะครับ

 

ค่า factor ที่ได้จากการดึงมาจากตารางความสัมพันธ์ระหว่าง TG และ Non HDl นั้นเราจะเก็บไว้ในตัวแปร (Variable) ชื่อ denofactor ในกรอบข้อมูล lipiddata

 

บรรทัดคำสั่ง

> lipiddata$denofactor <- NA
> for (i in 1:100){
   lipiddata$denofactor[i] <- tgnhdl[lipiddata$tgrow[i],lipiddata$nhdlcol[i]]
  }

 

ดูผลลัพธ์จากการประมวลผลของ loop คำสั่ง

> head(lipiddata)
   tg nhdl tgrow nhdlcol denofactor
1 612  321    17       5       11.3
2 414  398    10       6       17.3
3 220  115     4       1        4.9
4 312  364     7       6       10.2
5 771  226    22       3        2.6
6 538  240    14       3       14.8

 

เรียบร้อยโรงเรียนแชร์ครับ

 

สั้นและง่ายใช่ไหมครับ

 

อิอิอิ

 

เราเอง

 

เพลง: เพียงเริ่มทาง
ศิลปิน: ดอนผีบิน

 

 

หมวดหมู่บันทึก: เรื่องทั่วไป
สัญญาอนุญาต: ซีซี: แสดงที่มา-ไม่ใช้เพื่อการค้า-อนุญาตแบบเดียวกัน Cc-by-nc-sa
สร้าง: 07 มิถุนายน 2557 02:21 แก้ไข: 28 เมษายน 2563 17:31 [ แจ้งไม่เหมาะสม ]
ดอกไม้
สมาชิกที่ให้กำลังใจ: Ico24 คนธรรมดา, Ico24 ทดแทน, และ Ico24 โอ๋-อโณ.
สมาชิกที่ให้กำลังใจ
 
Facebook
Twitter
Google

บันทึกอื่นๆ

ความเห็น

ยิ่งอ่านยิ่งนึกถึงวิชาที่เรียนเกี่ยวกะ เมตริกซ์ อิอิอิ

matrix มี ๓ ภาคนะลุง

อย่าลืมดูล่ะ

อิอิอิ

เราเอง

คุณต้องทำการเข้าระบบก่อนแสดงความเห็น