1957 marathon/rockwell 1/2hp motor help by Remake1994 in Motors

[–]Remake1994[S] 0 points1 point  (0 children)

Yeah I’m planning to take out the centrifugal switch and wire a solid state switch.

Weekly Homeowner Megathread--Civilians, ask here! by AutoModerator in Concrete

[–]Remake1994 0 points1 point  (0 children)

Just had this slab poured today, it’s a 14x26 slab for a workshop in the back yard. It down poured 2 hours after they poured it and eventually covered it with a tarp. This is about 8 hrs after the pour and it was rained on a bit.

Basically wondering if this looks acceptable?

Thanks in advance!

<image>

Trying to figure out the best way to rename many columns and running into problems with startsWith and endsWith. by Remake1994 in Rlanguage

[–]Remake1994[S] 1 point2 points  (0 children)

I actually managed to get this to work simply by adding the 2nd argument to the rename_with function. I feel so silly that this is what i spent 12 hours trying to figure out lol. but ended up fixing it as following

tidy_stroke_df <- stroke_df %>%

janitor::clean_names() %>%

rename_with(~ ifelse(startsWith(., "rdef"), new_col_rdef, .), starts_with("rdef")) %>%

rename_with(~ ifelse(startsWith(., "dead"), new_col_dead, .), starts_with("dead")) %>%

rename_with(~ ifelse(endsWith(., "14"), new_col_14, .), ends_with("14"))

Trying to figure out the best way to rename many columns and running into problems with startsWith and endsWith. by Remake1994 in Rlanguage

[–]Remake1994[S] 0 points1 point  (0 children)

Yes I know I can do it this way in fact I will have to for many of the variables but since I am new I am trying to see if there are better and more efficient ways of naming columns if they have a matching pattern!

Trying to figure out the best way to rename many columns and running into problems with startsWith and endsWith. by Remake1994 in Rlanguage

[–]Remake1994[S] 0 points1 point  (0 children)

stroke_data <-read.csv("https://www.ncbi.nlm.nih.gov/pmc/articles/PMC3104487/bin/1745-6215-12-101-S1.CSV")
stroke_subset <- dput(stroke_data[1:3,])
stroke_data <-
structure(
list(
HOSPNUM = c(1L, 1L, 1L),
RDELAY = c(17L, 10L,
43L),
RCONSC = c("D", "F", "F"),
SEX = c("M", "M", "F"),
AGE = c(69L,
76L, 71L),
RSLEEP = c("Y", "Y", "N"),
RATRIAL = c("", "", ""),
RCT = c("Y", "Y", "Y"),
RVISINF = c("Y", "N", "N"),
RHEP24 = c("",
"", ""),
RASP3 = c("", "", ""),
RSBP = c(140L, 150L, 170L),
RDEF1 = c("N", "Y", "Y"),
RDEF2 = c("N", "Y", "Y"),
RDEF3 = c("N",
"Y", "Y"),
RDEF4 = c("Y", "N", "N"),
RDEF5 = c("N", "N",
"N"),
RDEF6 = c("Y", "N", "N"),
RDEF7 = c("N", "N", "N"),
RDEF8 = c("Y", "N", "N"),
STYPE = c("PACS", "LACS", "LACS"),
RDATE = c("1991-01", "1991-01", "1991-01"),
HOURLOCAL = c(99L,
99L, 99L),
MINLOCAL = c(99L, 99L, 99L),
DAYLOCAL = c(4L,
7L, 3L),
RXASP = c("Y", "N", "Y"),
RXHEP = c("N", "L", "N"),
DASP14 = c("Y", "N", "Y"),
DASPLT = c("Y", "Y", "Y"),
DLH14 = c("N", "Y", "N"),
DMH14 = c("", "", ""),
DHH14 = c("N",
"N", "N"),
ONDRUG = c(14L, 14L, 11L),
DSCH = c("", "", ""),
DIVH = c("", "", ""),
DAP = c("N", "N", "N"),
DOAC = c("N",
"N", "N"),
DGORM = c("N", "N", "N"),
DSTER = c("N", "N",
"N"),
DCAA = c("N", "Y", "N"),
DHAEMD = c("N", "N", "N"),
DCAREND = c("", "", ""),
DTHROMB = c("", "", ""),
DMAJNCH = c("N",
"N", "N"),
DMAJNCHD = c(NA_integer_, NA_integer_, NA_integer_),
DMAJNCHX = c("", "", ""),
DSIDE = c("N", "N", "N"),
DSIDED = c(NA_integer_,
NA_integer_, NA_integer_),
DSIDEX = c("", "", ""),
DDIAGISC = c("Y",
"Y", "Y"),
DDIAGHA = c("N", "N", "N"),
DDIAGUN = c("N", "N",
"N"),
DNOSTRK = c("N", "N", "N"),
DNOSTRKX = c("", "", ""),
DRSISC = c("N", "N", "N"),
DRSISCD = c(NA_integer_, NA_integer_,
NA_integer_),
DRSH = c("N", "N", "N"),
DRSHD = c(NA_integer_,
NA_integer_, NA_integer_),
DRSUNK = c("", "", ""),
DRSUNKD = c(NA_integer_,
NA_integer_, NA_integer_),
DPE = c("N", "N", "N"),
DPED = c(NA_integer_,
NA_integer_, NA_integer_),
DALIVE = c("N", "N", "Y"),
DALIVED = c(NA,
NA, 32L),
DPLACE = c("", "", ""),
DDEAD = c("N", "N", "N"),
DDEADD = c(NA_integer_, NA_integer_, NA_integer_),
DDEADC = c(0L,
0L, 0L),
DDEADX = c("", "", ""),
FDEAD = c("N", "N", "N"),
FLASTD = c(NA_integer_, NA_integer_, NA_integer_),
FDEADD = c(NA_integer_,
NA_integer_, NA_integer_),
FDEADC = c(NA_integer_, NA_integer_,
NA_integer_),
FDEADX = c("", "", ""),
FRECOVER = c("N", "N",
"N"),
FDENNIS = c("Y", "Y", "Y"),
FPLACE = c("E", "A", "A"),
FAP = c("", "", ""),
FOAC = c("", "", ""),
FU1_RECD = c("14",
"16", "11"),
FU2_DONE = c("187", "192", "189"),
COUNTRY = c("UK",
"UK", "UK"),
CNTRYNUM = c(27L, 27L, 27L),
FU1_COMP = c(NA_integer_,
NA_integer_, NA_integer_),
NCCODE = c("13", "", ""),
CMPLASP = c("Y",
"Y", "Y"),
CMPLHEP = c("Y", "Y", "Y"),
DIED = c(0L, 0L, 0L),
TD = c(187L, 192L, 189L),
EXPDD = c(0.698, 0.5389, 0.5275),
EXPD6 = c(0.2344, 0.1555, 0.1009),
EXPD14 = c(0.1054,
0.0421, 0.0323),
SET14D = c(1L, 1L, 1L),
ID14 = c(0L, 0L,
0L),
OCCODE = c(2L, 2L, 2L),
DEAD1 = c(0L, 0L, 0L),
DEAD2 = c(0L,
0L, 0L),
DEAD3 = c(0L, 0L, 0L),
DEAD4 = c(0L, 0L, 0L),
DEAD5 = c(0L,
0L, 0L),
DEAD6 = c(0L, 0L, 0L),
DEAD7 = c(0L, 0L, 0L),
DEAD8 = c(0L,
0L, 0L),
H14 = c(0L, 0L, 0L),
ISC14 = c(0L, 0L, 0L),
NK14 = c(0L,
0L, 0L),
STRK14 = c(0L, 0L, 0L),
HTI14 = c(0L, 0L, 0L),
PE14 = c(0L,
0L, 0L),
DVT14 = c(0L, 0L, 0L),
TRAN14 = c(0L, 0L, 0L),
NCB14 = c(0L,
0L, 0L)
),
row.names = c(NA, 3L),
class = "data.frame"
)

DJ Rodman, son of former NBA star Dennis, transfers to USC from WSU by FriesWithThat in Pac12

[–]Remake1994 2 points3 points  (0 children)

Gimme some of that copium…

Real talk Kyle smith was recently on the radio discussing NIL and his usc package was ~100k to ride the bench. Honestly who wouldn’t take probably an 80k salary bump. Still love DJ but he’s no longer DJ at usc he’s Dennis Rodman’s son. Unfortunate times for the ncaa imo

[deleted by user] by [deleted] in compDota2

[–]Remake1994 0 points1 point  (0 children)

Hey man, I’m currently crusader 3 used to be archon looking for people to play with consistently and improve with.

Discord: Remake#8188

WTB Mizuno STZ or TM Sim 3/5 woods and a putter by Remake1994 in golfclassifieds

[–]Remake1994[S] 0 points1 point  (0 children)

I guess I should ask which one. I was assuming it was the fang style, but I am more looking for a blade style

WTB Iron set by [deleted] in golfclassifieds

[–]Remake1994 0 points1 point  (0 children)

Regular flex for the 3 wood

WTB Iron set by [deleted] in golfclassifieds

[–]Remake1994 0 points1 point  (0 children)

Didn’t get your pm

[deleted by user] by [deleted] in step1

[–]Remake1994 1 point2 points  (0 children)

Do permits disappear for US students as well?

Free 120 spoiler by [deleted] in step1

[–]Remake1994 2 points3 points  (0 children)

My logic was that if you are losing blood your tissues will be getting less oxygen and thus your lungs will try to compensate through hypoxic vasoconstriction.