ได้เวลาช่วยเหลืออีกครั้ง ดูเหมือนว่าswitch
โดยทั่วไปจะเร็วกว่าif
งบ ดังนั้นและความจริงที่ว่ารหัสนั้นสั้นกว่า / ใกล้เคียงกับswitch
คำสั่งโน้มน้าวswitch
:
# Simplified to only measure the overhead of switch vs if
test1 <- function(type) {
switch(type,
mean = 1,
median = 2,
trimmed = 3)
}
test2 <- function(type) {
if (type == "mean") 1
else if (type == "median") 2
else if (type == "trimmed") 3
}
system.time( for(i in 1:1e6) test1('mean') ) # 0.89 secs
system.time( for(i in 1:1e6) test2('mean') ) # 1.13 secs
system.time( for(i in 1:1e6) test1('trimmed') ) # 0.89 secs
system.time( for(i in 1:1e6) test2('trimmed') ) # 2.28 secs
อัปเดตด้วยความคิดเห็นของ Joshua ฉันจึงลองใช้วิธีอื่นในการเปรียบเทียบ ไมโครเบนช์มาร์กดูเหมือนดีที่สุด ... และแสดงเวลาที่คล้ายกัน:
> library(microbenchmark)
> microbenchmark(test1('mean'), test2('mean'), times=1e6)
Unit: nanoseconds
expr min lq median uq max
1 test1("mean") 709 771 864 951 16122411
2 test2("mean") 1007 1073 1147 1223 8012202
> microbenchmark(test1('trimmed'), test2('trimmed'), times=1e6)
Unit: nanoseconds
expr min lq median uq max
1 test1("trimmed") 733 792 843 944 60440833
2 test2("trimmed") 2022 2133 2203 2309 60814430
การอัปเดตขั้นสุดท้ายต่อไปนี้แสดงให้เห็นว่ามีความหลากหลายเพียงswitch
ใด:
switch(type, case1=1, case2=, case3=2.5, 99)
แผนที่นี้case2
และcase3
ไป2.5
และ (ไม่มีชื่อ) 99
ที่จะเริ่มต้น สำหรับข้อมูลเพิ่มเติมลอง?switch