#Rcode
LightNews LightNews
momo1206.bsky.social
收到魔儲爸爸的邀請o(｀ω´*)o
大家玩遊戲課金的時候也可以遠端支持毛毛了~
毛毛的專屬註冊連結:
www.mepay.com.tw/auth?rcode=m...

#魔儲 #vtuber #台灣vtuber
May 6, 2025 at 9:16 AM
ober2023.bsky.social
あとこのふたつもまた頼む
https://iherb.co/xmMr6bYb?rcode=KDL596&utm_medium=appshare https://iherb.co/kUDtpahY?rcode=KDL596&utm_medium=appshare
May 26, 2025 at 8:15 AM
skluzacek.bsky.social
Bezier curves, why won't you love me? #RCode #FontDesign #ComputationalLinearAlgebra
November 23, 2024 at 6:11 AM
mainoko.jp
これ使うと風味が１段グレードアップするのでオススメ(•̀ω•́ )

https://jp.iherb.com/pr/frontier-co-op-organic-all-purpose-seasoning-2-5-oz-70-g/46813?rcode=AXG2464&utm_medium=appshare

【成分表】
有機オレンジ、有機ニンニク、有機ニンジン、有機ピーマン（有機黒コショウ、有機パセリ、有機マスタード、有機コリアンダー、有機クミン）、有機オレンジピール、有機トマト、有機天然レモンフレーバー（有機マルトデキストリン、有機ガムアカシア、天然フレーバー）、クエン酸、有機レモン精油。
July 27, 2023 at 9:07 AM
spsanderson.com
Next up on the list for my RandomWalker package is random_uniform_walk() which uses the runif() as it's base.

#R #RStats #RandomWalker #RandomWalks #tidy #ggplot2 #RProgramming #RCode
library(RandomWalker) library(ggplot2) library(dplyr) set.seed(123) unsampled_dat <- random_uniform_walk( .dimensions = 2, .num_walks = 1, .samp = FALSE ) set.seed(123) sampled_dat <- random_uniform_walk( .dimensions = 2, .num_walks = 1, .samp = TRUE ) # row_bind data and mutate a column called samp_ind that is set to sampled for # sampled data and unsampled for unsampled data dat <- unsampled_dat |> mutate(samp_ind = "unsampled") |> rbind( sampled_dat |> mutate(samp_ind = "sampled") ) dat |> ggplot(aes(x = x, y = y)) + facet_wrap(~ samp_ind, scales = "free") + geom_path(aes(color = step_number)) + geom_point(data = dat |> group_by(samp_ind) |> filter( step_number == min(step_number) | step_number == max(step_number) ), aes(color = step_number), size = 3) + scale_color_viridis_c(option = "plasma") + labs(title = "2D Random Uniform Walk", x = "X Position", y = "Y Position") + theme_minimal() + theme(legend.position = "none") + theme( axis.text.x = element_blank(), axis.ticks.y = element_blank(), axis.text.y = element_blank(), axis.ticks.x = element_blank() ) library(RandomWalker) library(ggplot2) library(dplyr) set.seed(123) unsampled_dat <- random_uniform_walk( .dimensions = 2, .num_walks = 1, .samp = FALSE ) set.seed(123) sampled_dat <- random_uniform_walk( .dimensions = 2, .num_walks = 1, .samp = TRUE ) # row_bind data and mutate a column called samp_ind that is set to sampled for # sampled data and unsampled for unsampled data dat <- unsampled_dat |> mutate(samp_ind = "unsampled") |> rbind( sampled_dat |> mutate(samp_ind = "sampled") ) dat |> ggplot(aes(x = x, y = y)) + facet_wrap(~ samp_ind, scales = "free") + geom_path(aes(color = step_number)) + geom_point(data = dat |> group_by(samp_ind) |> filter( step_number == min(step_number) | step_number == max(step_number) ), aes(color = step_number), size = 3) + scale_color_viridis_c(option = "plasma") + labs(title = "2D Random Uniform Walk", x = "X Position", y = "Y Position") + theme_minimal() + theme(legend.position = "none") + theme( axis.text.x = element_blank(), axis.ticks.y = element_blank(), axis.text.y = element_blank(), axis.ticks.x = element_blank() )
July 12, 2025 at 12:12 PM
fujoshimama.bsky.social
簡大廚大連結無效了重發

easychefresh.com.tw/?rcode=225QY7WU

推薦碼：225QY7WU（讓我得積分）
我會回購的有和牛禮盒、牛腱牛筋、醬燒牛骨
但家有小朋友的我推薦芝心豬（連友人也說帶便當很方便，她是天天幫小孩帶便當的媽媽）
January 29, 2024 at 4:52 AM
kucoinportuguese.bsky.social
Carregue o poder das criptos em suas mãos!

#SaiaComAKuCoin

Não tem conta na #KuCoin? Registre-se aqui 👉https://www.kucoin.com/ucenter/signup?rcode=8Kw4H1&utm_source=Po60r3!
September 12, 2024 at 5:44 PM
kiirsti.bsky.social
One exciting thing about starting a new project is the opportunity to start fresh and have super clean, tidy, well-annotated #Rcode 🙃 @rstudiotips @rstudio @RLadiesGlobal #Rstudio #R

Tell me youR tips! 👇
January 28, 2025 at 2:05 AM
yukichan1102.bsky.social
✨《永恆輪迴 x 魔儲》S8 賽季開跑啦～！🎲
新賽季新氣象，小雪最期待的活動也同步登場囉 💖

現在只要到【魔儲賣場】登入帳號、消費或應援，就能開骰子拿獎勵～🎁
✨骰一骰就有機會抽中超可愛的週邊＋免費 NP！

🎖而且前三名的應援榜還有特別豪華大禮，太心動了吧！

不只這樣～還有實況主們陪你一起玩
📺看直播還能拿禮包碼，小雪也會開台跟大家一起玩喔！

趕快一起參加～錯過就要等下次囉～❣️

#MEPay魔儲 #魔競娛樂 #官方儲值
#永恆輪迴 #EternalReturn #S8賽季 #小雪推薦中

快點擊下方連結註冊拿好禮
www.mepay.com.tw/auth?rcode=y...
July 18, 2025 at 8:15 AM
hilaryrosed.bsky.social
🧪🌾🌎
Includes helpful #RCode packages for #biodiversity data!
bjenquist.bsky.social Brian J. Enquist @bjenquist.bsky.social · May 22
Using biodiversity data? 🌿 BIEN offers a modular workflow for cleaning, standardizing & integrating your data. Open, reproducible & ready for you! Explore biendata.org our BIEN API, & R packages. #BiodiversityScience #OpenData
tnrs.biendata.org  gnrs.biendata.org 
nsr.biendata.org
biendata.org
May 22, 2024 at 3:20 AM
yueluoying.bsky.social
成為魔儲的合作夥伴啦!✨

【MEPay魔儲】是安全的代儲網站，每筆交易皆有開立發票及完整售後，且有多元的付款方式。提供多款熱門遊戲如原神、星穹鐵道、英雄聯盟、VALORANT、APEX和其他遊戲的代儲服務

註冊時輸入推薦碼【Luoying】就能領取200元的專屬折價卷，還不馬上註冊!

課金用魔儲，月底不吃土!

快速註冊: www.mepay.com.tw/auth?rcode=L...
November 2, 2024 at 5:09 PM
spsanderson.com
Now I have added the t-distribution as well.

#R #RStats #RProgramming #RandomWaker #RCode #ggplot2 #tidydata
library(RandomWalker) library(ggplot2) library(dplyr) set.seed(123) unsampled_dat <- random_t_walk( .dimensions = 2, .num_walks = 1, .samp = FALSE ) set.seed(123) sampled_dat <- random_t_walk( .dimensions = 2, .num_walks = 1, .samp = TRUE ) # row_bind data and mutate a column called samp_ind that is set to sampled for # sampled data and unsampled for unsampled data dat <- unsampled_dat |> mutate(samp_ind = "unsampled") |> rbind( sampled_dat |> mutate(samp_ind = "sampled") ) dat |> ggplot(aes(x = x, y = y)) + facet_wrap(~ samp_ind, scales = "free") + geom_path(aes(color = step_number)) + geom_point(data = dat |> group_by(samp_ind) |> filter( step_number == min(step_number) | step_number == max(step_number) ), aes(color = step_number), size = 3) + scale_color_viridis_c(option = "plasma") + labs(title = "2D Random t-distribution Walk", x = "X Position", y = "Y Position") + theme_minimal() + theme(legend.position = "none") + theme( axis.text.x = element_blank(), axis.ticks.y = element_blank(), axis.text.y = element_blank(), axis.ticks.x = element_blank() ) random_t_walk(.initial_value = 10) |> visualize_walks(.pluck = 2) library(RandomWalker) library(ggplot2) library(dplyr) set.seed(123) unsampled_dat <- random_t_walk( .dimensions = 2, .num_walks = 1, .samp = FALSE ) set.seed(123) sampled_dat <- random_t_walk( .dimensions = 2, .num_walks = 1, .samp = TRUE ) # row_bind data and mutate a column called samp_ind that is set to sampled for # sampled data and unsampled for unsampled data dat <- unsampled_dat |> mutate(samp_ind = "unsampled") |> rbind( sampled_dat |> mutate(samp_ind = "sampled") ) dat |> ggplot(aes(x = x, y = y)) + facet_wrap(~ samp_ind, scales = "free") + geom_path(aes(color = step_number)) + geom_point(data = dat |> group_by(samp_ind) |> filter( step_number == min(step_number) | step_number == max(step_number) ), aes(color = step_number), size = 3) + scale_color_viridis_c(option = "plasma") + labs(title = "2D Random t-distribution Walk", x = "X Position", y = "Y Position") + theme_minimal() + theme(legend.position = "none") + theme( axis.text.x = element_blank(), axis.ticks.y = element_blank(), axis.text.y = element_blank(), axis.ticks.x = element_blank() ) random_t_walk(.initial_value = 10) |> visualize_walks(.pluck = 2) library(RandomWalker) library(ggplot2) library(dplyr) set.seed(123) unsampled_dat <- random_t_walk( .dimensions = 2, .num_walks = 1, .samp = FALSE ) set.seed(123) sampled_dat <- random_t_walk( .dimensions = 2, .num_walks = 1, .samp = TRUE ) # row_bind data and mutate a column called samp_ind that is set to sampled for # sampled data and unsampled for unsampled data dat <- unsampled_dat |> mutate(samp_ind = "unsampled") |> rbind( sampled_dat |> mutate(samp_ind = "sampled") ) dat |> ggplot(aes(x = x, y = y)) + facet_wrap(~ samp_ind, scales = "free") + geom_path(aes(color = step_number)) + geom_point(data = dat |> group_by(samp_ind) |> filter( step_number == min(step_number) | step_number == max(step_number) ), aes(color = step_number), size = 3) + scale_color_viridis_c(option = "plasma") + labs(title = "2D Random t-distribution Walk", x = "X Position", y = "Y Position") + theme_minimal() + theme(legend.position = "none") + theme( axis.text.x = element_blank(), axis.ticks.y = element_blank(), axis.text.y = element_blank(), axis.ticks.x = element_blank() ) random_t_walk(.initial_value = 10) |> visualize_walks(.pluck = 2)
July 12, 2025 at 1:10 PM
miufafa.bsky.social
この間iHerbで買った物が今日届いた😎♥️リポソームビタミンCとビオチンは前頼んだのとは違う会社のものとリピしているレチノールボディクリームとビタミンDと新しくリポソームグルタチオンとビタミンCのフェイシャルミスト買ってみた♥️ iHerbはアメリカだけでなく日本からも買えるので是非♥️https://www.iherb.com?rcode=CLM5081
April 5, 2024 at 8:19 PM
yaneuve.ren
mildly amused that most ".singles" domains respond with records or NXDOMAIN as expected, but kraft.singles has special BRAND PROTECTION rules:

;; OPT PSEUDOSECTION:
; EDNS: version: 0, flags:; udp: 512
; EDE: 23 (Network Error): ([173.245.59.41] rcode=REFUSED for kraft.singles/all)
July 29, 2023 at 6:27 AM
erdilay.bsky.social
www.iherb.com?rcode=CHI9866
iHerb | Vitamins, Supplements, Natural Health Products
50,000+ top-rated health and wellness products from trusted brands. Get the best value with weekly deals, fast, affordable shipping, and customer rewards.
www.iherb.com
August 14, 2025 at 11:58 AM
segoleneguerin.bsky.social
Embrace the unexpected beauty in programming errors! 🤔🎨

#DataViz #RCode #AbstractArt #ProgrammingArt
October 24, 2023 at 7:34 AM
cateh.bsky.social
R coders: how do I make my “topright” legend not overlap the plot please?! See left: my output, vs right: the tutorial. My code is the same as theirs but 🤷🏻‍♀️

#rcode #learningR
January 11, 2024 at 4:27 PM
astartiel.substack.com
I got an email from iHerb, that I used over a decade ago once, telling me I earned $2.50 on my first referral.

Got logged into the account & it was true, but I'm pretty sure I haven't logged into this site since that order ten years ago.

www.iherb.com?rcode=JPB313
iHerb | Vitamins, Supplements, Natural Health Products
50,000+ top-rated health and wellness products from trusted brands. Get the best value with weekly deals, fast, affordable shipping, and customer rewards.
www.iherb.com
May 21, 2025 at 3:46 PM
layer8.bsky.social
1/ what type of RCODE is sent as a result of non support? NXDOMAIN is the only which won't create a client retry, but that's potentially not sufficient. It may be better to allow for retry and cache for NS records w/ a TTL.
July 21, 2025 at 8:57 AM
brucecoffman.bsky.social
Here's your new pharmacy if you don't/can't use Costco. Plus, new users get 10% off first order when you use my link. Yeah, I get a couple pennies, but it don't cost you anything. #brucecoffman loves you!

www.iherb.com?rcode=MDK2873
February 20, 2025 at 9:08 PM
spsanderson.com
Next up and last for today is the rweibull distribution from base R added to RandomWalker development.

#R #ggplot2 #TidyData #RandomWalker #RandomWalks #Random #Programming #Coding #RCode #RProgramming
library(RandomWalker) library(ggplot2) library(dplyr) set.seed(123) unsampled_dat <- random_weibull_walk( .dimensions = 2, .num_walks = 1, .samp = FALSE ) set.seed(123) sampled_dat <- random_weibull_walk( .dimensions = 2, .num_walks = 1, .samp = TRUE ) # row_bind data and mutate a column called samp_ind that is set to sampled for # sampled data and unsampled for unsampled data dat <- unsampled_dat |> mutate(samp_ind = "unsampled") |> rbind( sampled_dat |> mutate(samp_ind = "sampled") ) dat |> ggplot(aes(x = x, y = y)) + facet_wrap(~ samp_ind, scales = "free") + geom_path(aes(color = step_number)) + geom_point(data = dat |> group_by(samp_ind) |> filter( step_number == min(step_number) | step_number == max(step_number) ), aes(color = step_number), size = 3) + scale_color_viridis_c(option = "plasma") + labs(title = "2D Random Weibull Walk", x = "X Position", y = "Y Position") + theme_minimal() + theme(legend.position = "none") + theme( axis.text.x = element_blank(), axis.ticks.y = element_blank(), axis.text.y = element_blank(), axis.ticks.x = element_blank() ) library(RandomWalker) library(ggplot2) library(dplyr) set.seed(123) unsampled_dat <- random_weibull_walk( .dimensions = 2, .num_walks = 1, .samp = FALSE ) set.seed(123) sampled_dat <- random_weibull_walk( .dimensions = 2, .num_walks = 1, .samp = TRUE ) # row_bind data and mutate a column called samp_ind that is set to sampled for # sampled data and unsampled for unsampled data dat <- unsampled_dat |> mutate(samp_ind = "unsampled") |> rbind( sampled_dat |> mutate(samp_ind = "sampled") ) dat |> ggplot(aes(x = x, y = y)) + facet_wrap(~ samp_ind, scales = "free") + geom_path(aes(color = step_number)) + geom_point(data = dat |> group_by(samp_ind) |> filter( step_number == min(step_number) | step_number == max(step_number) ), aes(color = step_number), size = 3) + scale_color_viridis_c(option = "plasma") + labs(title = "2D Random Weibull Walk", x = "X Position", y = "Y Position") + theme_minimal() + theme(legend.position = "none") + theme( axis.text.x = element_blank(), axis.ticks.y = element_blank(), axis.text.y = element_blank(), axis.ticks.x = element_blank() )
July 10, 2025 at 3:15 PM
spsanderson.com
Another #Random #Stochastic #Walk added to my #R #Package #RandomWalker dev version, this time it is random_multinomial_walk() As of now you can only generate a single trial but I'll work on it in the future, for now, let's just get it and move down the list.

#RStats #Code #tidydata #ggplot2
Another #Random #Stochastic #Walk added to my #R #Package #RandomWalker dev version, this time it is random_multinomial_walk(). As of now you can only generate a single trial but I'll work on it in the future, for now, let's just gt it into dev and move down the list. #RCode #RStats #RProgramming #Code #tidydata #ggplot2 Another #Random #Stochastic #Walk added to my #R #Package #RandomWalker dev version, this time it is random_multinomial_walk(). As of now you can only generate a single trial but I'll work on it in the future, for now, let's just gt it into dev and move down the list. #RCode #RStats #RProgramming #Code #tidydata #ggplot2 Another #Random #Stochastic #Walk added to my #R #Package #RandomWalker dev version, this time it is random_multinomial_walk(). As of now you can only generate a single trial but I'll work on it in the future, for now, let's just gt it into dev and move down the list. #RCode #RStats #RProgramming #Code #tidydata #ggplot2 Another #Random #Stochastic #Walk added to my #R #Package #RandomWalker dev version, this time it is random_multinomial_walk(). As of now you can only generate a single trial but I'll work on it in the future, for now, let's just gt it into dev and move down the list. #RCode #RStats #RProgramming #Code #tidydata #ggplot2
July 17, 2025 at 12:24 PM
richard64.bsky.social
www.iherb.com?rcode=DDU4326
iHerb - Vitamins, Supplements, Natural Health Products
50,000+ top-rated health and wellness products from trusted brands. Get the best value with weekly deals, fast, affordable shipping, and customer rewards.
www.iherb.com
April 23, 2025 at 4:42 PM