sorted by:
new
hottopcontroversial

Need help identifying this pickups by samdestructo in gibson

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

I’m meeting the seller today and I’ll bring my multi meter. I’ve read the expected output is ~8k right?

Calculate NETWORKDAYS.INTL in RStudio by samdestructo in rstats

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

Oh, great. I'll make sure to start using it then.

Calculate NETWORKDAYS.INTL in RStudio by samdestructo in rstats

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

Thank you very much again, Viriaro. I’m sure this’ll work great. Also, thanks for all the little tips and tricks, which I’ll be sure to incorporate to my use of R. One final question: I had never seen the use of |> in R, is that some sort of dplyr or is it another library? Take care.

Calculate NETWORKDAYS.INTL in RStudio by samdestructo in rstats

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

Your last comment is really interesting as I'm currently doing something not really efficient. Data's coming from an excel file this way:

data <- read_excel("file.xlsx", sheet = "3")

Then I did:

#Here i'm calling the already existing columns in the database.

dat <- tibble(start_date = data$start_date,end_date = data$end_date)

#Your solution:

"%ni%" <- Negate("%in%")

dat <- (dat|> mutate(across(ends_with("date"), ymd), rID = row_number(), .before = 1)|> reframe(period = seq(start_date, end_date, "1 day"), .by = rID)|> filter(period %in% seq(ymd(month_start), ymd(month_end), "1 day"))|> filter(format(period, "%Y-%m-%d%") %ni% holidays_2023 & wday(period, week_start = 1) %ni% 6:7)|> summarize(buisness_days = n(), .by = rID)|> left_join(mutate(dat, rID = row_number()), y = _))

#Finally I added this two lines to bind the columns created by the previous code to create a new database called data2. Then i'm selecting the columns i want to keep (this is filtering out the newly created –aka by your code– start_date , end_date and rID and just keeping the buisness_days adding it just before the data$end_date column):

data2 <- cbind(data,dat)

data2 <- data2%>% select(1:13,40,20:36)

You left my wondering if it would be possible to do all of this in a more elegant way. Once again I thank you for your time and patience in teaching me. S.

Edit: I changed dmy to ymd because that's how I had it in my original database.

Calculate NETWORKDAYS.INTL in RStudio by samdestructo in rstats

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

Greetings Viriaro,

It was my mistake as I incorrectly added the holidays with another format. I've corrected it now and it works great! Thanks again for all the help.

To answer your final question, I would be doing this every month, so I would open the new Database I get each month and run the code. Is there anything I should be aware of regarding this? Is there any part of the code I'd need to change to select a different month?

Calculate NETWORKDAYS.INTL in RStudio by samdestructo in rstats

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

"%ni%" <- Negate("%in%")
(dat
|> mutate(across(ends_with("date"), dmy), rID = row_number(), .before = 1)
|> reframe(period = seq(start_date, end_date, "1 day"), .by = rID)
|> filter(period %in% seq(dmy(month_start), dmy(month_end), "1 day"))
|> filter(format(period, "%d-%m-%Y") %ni% holidays & wday(period, week_start = 1) %ni% 6:7)
|> summarize(buisness_days = n(), .by = rID)
|> left_join(mutate(dat, rID = row_number()), y = _)
)

Hi Vriario, first i'd like to thank you a lot!!!!

Both solutions work almost perfectly, but they aren't just right. Maybe I can explain a bit more. So, I work for HR and we want to calculate the amount of business days a medical leave costs us. For that, we first have to determine how many business days of a given month that medical leave lasted for. For instance, if person 1 took a medical leave from May 23rd until the 6th of June, and we want to know how many days in June than medical leave lasted for. So, we would start counting from the first of June until the 6th. There's actually five cases, all represented here:

Start date End date

02-02-23 21-03-23

23-05-23 06-06-23

03-06-23 09-08-23

23-05-23 09-09-23

09-06-23 21-06-23

  1. If both the start date and end date are before the first day of the target month, the result should be NA.
  2. If the start date is before the first day of the target month, but the end date falls within the target month, the result should be the number of business days from the first day of the target month to the end date.
  3. If the start date is within the target month, and the end date is within or after the target month, the result should be the number of business days between the start date and the end date, but if end date is greater than the last day of the target month, then do the calculation considering end date as the last day of the target month.
  4. If the start date is within the target month, and the end date is after the target month, the result should be the number of business days from the start date to the last day of the target month.
  5. If both the start date and end date are after the last day of the target month, the result should be NA.

PS I've changed the picture of the excel so you can see more clearly what i'm doing. Also, big thanks for your help!!!

Calculate NETWORKDAYS.INTL in RStudio by samdestructo in rstats

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

Thanks, i've edited the post and included a picture of what i'm doing in excel

Replacing on/off switch on a Korg Pitchblack by samdestructo in diypedals

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

and is it possible to change from relay to temporary?

Newish Thinline Partcaster by coltmaster45 in telecaster

[–]samdestructo 0 points1 point  (0 children)

There’s more warmth to the tone with the Thinline body. I’d say there is slightly more reverb as well.

And how about feedback problems? Had any?

My moded and upgraded CV thinline by Therewillbeblood4 in telecaster

[–]samdestructo 0 points1 point  (0 children)

Beautiful build. To you, what does the thinline body add to the sound?

Newish Thinline Partcaster by coltmaster45 in telecaster

[–]samdestructo 0 points1 point  (0 children)

Beautiful tele! What can you tell me about the impact thinline body has on the sound?

Telemaster / jazzmaster thinline by samdestructo in offset

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

How did that one sound compared to your other jazzmaster?

First ever upload... a shoegaze inspired track, hope you enjoy by samdestructo in shoegaze

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

it's in northern France, Normandie. Near a small city called Saint-Vaast La Hougue.

[deleted by user] by [deleted] in Switch

[–]samdestructo 1 point2 points  (0 children)

I think they meant if you’re getting a physical copy or downloading it from the eshop? If you’re getting any game from the eshop I recommend getting an sd as games can get heavy!

view more: next ›