zx8754
@zx8754.bsky.social
Analysis - Data - Analysis - Data - Volleyball - Father - #rstats #STEM #ProstateCancer
Stack Overflow has slowed down since AI, but every so often I still come across a brilliant gem of an answer you can learn a lot from.
November 4, 2025 at 7:34 AM
Stack Overflow has slowed down since AI, but every so often I still come across a brilliant gem of an answer you can learn a lot from.
"if" only handles scalars, "ifelse" handles vectors. If condition is longer than 1, comparing them doesn't make sense, right?
October 23, 2025 at 10:50 AM
"if" only handles scalars, "ifelse" handles vectors. If condition is longer than 1, comparing them doesn't make sense, right?
It had been gradually declining by about 5 million before the war, then dropped by another 5 million between 2022 and 2025.
October 8, 2025 at 9:22 AM
It had been gradually declining by about 5 million before the war, then dropped by another 5 million between 2022 and 2025.
Looks like it is real - www.adsoftheworld.com/campaigns/st...
I understand the awareness function, but I'd rather see humped crossings or traffic calming measures before the crossings. The issue isn't visibility, it's the driving culture of ignoring them that needs to change.
I understand the awareness function, but I'd rather see humped crossings or traffic calming measures before the crossings. The issue isn't visibility, it's the driving culture of ignoring them that needs to change.
Tuzla Municipality: Stop at the Crosswalk, Stop the Accidents • Ads of the World™ | Part of The Clio Network
What if a pedestrian crossing could tell the story of every accident that happened on it?
In Tuzla, Istanbul, the stripes of a crosswalk were transformed into a living accident chart. Each line visua...
www.adsoftheworld.com
October 1, 2025 at 11:10 AM
Looks like it is real - www.adsoftheworld.com/campaigns/st...
I understand the awareness function, but I'd rather see humped crossings or traffic calming measures before the crossings. The issue isn't visibility, it's the driving culture of ignoring them that needs to change.
I understand the awareness function, but I'd rather see humped crossings or traffic calming measures before the crossings. The issue isn't visibility, it's the driving culture of ignoring them that needs to change.
one day I will never master these
September 8, 2025 at 6:50 AM
one day I will never master these
September 5, 2025 at 7:58 AM
September 5, 2025 at 7:50 AM
I use Google as calculator, too. But recently discovered that the iPhone Notes app does the same:
September 4, 2025 at 8:08 PM
I use Google as calculator, too. But recently discovered that the iPhone Notes app does the same:
It’s from ggfun: cran.r-project.org/package=ggfun
ggfun: Miscellaneous Functions for 'ggplot2'
Useful functions and utilities for 'ggplot' object (e.g., geometric layers, themes, and utilities to edit the object).
cran.r-project.org
September 2, 2025 at 4:06 AM
It’s from ggfun: cran.r-project.org/package=ggfun
update: Searching GitHub R repos gives 1.5K hits. Looking at couple of pages, it looks like it is from ggfun - cran.r-project.org/web/packages...
September 1, 2025 at 1:30 PM
update: Searching GitHub R repos gives 1.5K hits. Looking at couple of pages, it looks like it is from ggfun - cran.r-project.org/web/packages...
Yes, checked the magrittr, too, nothing.
September 1, 2025 at 1:27 PM
Yes, checked the magrittr, too, nothing.
I'm afraid there’s no context, it comes from another user in a private group chat. I've asked for clarification and will provide an update once they respond with more info.
September 1, 2025 at 9:22 AM
I'm afraid there’s no context, it comes from another user in a private group chat. I've asked for clarification and will provide an update once they respond with more info.
They like to keep us floored.
August 18, 2025 at 12:15 PM
They like to keep us floored.
ggpairs for first 4 PCs would be interesting to see.
July 24, 2025 at 9:12 AM
ggpairs for first 4 PCs would be interesting to see.
![# for loop
f <- function(x, y){
out <- vector("integer", length(x))
yy <- y
for(i in seq_along(x)) {
mm <- match(x[ i ], yy)
out[ i ] <- mm
yy[ mm ] <- NA
}
out
}
# recursive version
fr <- function(x, y, out = integer(length(x)), i = 1) {
if (i > length(x)) return(out)
mm <- match(x[ i ], y)
out[ i ] <- mm
if (!is.na(mm)) y[ mm ] <- NA
fr(x, y, out, i + 1)
}
f(c("a", "b", "a"), c("a", "b", "c", "a"))
# [1] 1 2 4
fr(c("a", "b", "a"), c("a", "b", "c", "a"))
# [1] 1 2 4](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:uudl4famc7jqkejakihsxg5a/bafkreihxhap6zsbhughc7ia7v7ypisx55ioy6dz24d2loj7to62ebhoixq@jpeg)