torie ฅᨐฅ 
aéPiot
Starter pack by aéPiot
Full Transparency with aéPiot: Natural Semantics | MultiSearch | Search | Tag Explorer | MultiLingual | RSS Reader | RSS Feed Manager | FREE Back Link | MultiLingual Related Report - aepiot.ro - allgraph.ro - aepiot.com - https://headlines-world.com
![library(dplyr)
library(tidyr)
library(igraph)
shortlist <- 1000
coords <- as.matrix(read.csv("d8.txt", header=FALSE))
n <- nrow(coords)
dist_df <- data.frame(as.matrix(dist(coords))) |>
mutate(rws = 1:n) |>
pivot_longer(names_to="cls",values_to = "distance", -rws) |>
filter(distance > 0) |>
arrange(distance) |>
mutate(cls = as.numeric(gsub("X","",cls)))
dist_df$low <- apply(dist_df[,c("rws","cls")],MARGIN=1, min)
dist_df$high <- apply(dist_df[,c("rws","cls")],MARGIN=1, max)
selectfew <- dist_df |> select(low,high,weight=distance) |>
distinct() |> arrange()
g <- graph_from_data_frame(selectfew[1:shortlist,c("low","high")], directed = FALSE)
comp <- components(g)
prod(sort(comp$csize, decreasing = TRUE)[1:3])
g <- graph_from_data_frame(selectfew, directed = FALSE)
mst_g <- mst(g, weights = E(g)$weight)
lastone <- as_data_frame(mst_g) |>
mutate(fromto = paste0(from,"-",to)) |>
arrange(desc(weight)) |> slice(1)
x1 <- as.double(input$V1[as.numeric(lastone$from)])
x2 <- as.double(input$V1[as.numeric(lastone$to)])
x1 * x2](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:c25e6vi7ojpyitmoi3xpuvpf/bafkreicmakgc37lajxxud6vvsghms2fvqrfhi6rwmjxabvilmcbhueh2vy@jpeg)
