smooth_diff: Compute the Difference Between Initial and Smoothed Treatment

In smoothy: Automatic Estimation of the Most Likely Drug Combination using Smooth Algorithm

Compute the Difference Between Initial and Smoothed Treatment

Description

This function computes the differences between the initial treatment and the treatment when it's smoothed.

Usage

smooth_diff(treatment, smoothed_treatment)

Arguments

treatment	a character vector containing the original treatment data..
smoothed_treatment	a character vector containing the smoothed treatment return by smooth_algorithm function.

Value

A data.frame with three columns: diff_type , diff, change and treatment:

type

A character vector representing indicating the type of difference computed.

days_changed

The number of different items.

proportion_of_change

The proportion of difference computed as number of diferent rows over number of rows.

treatment

A character vector representing the type of treatment given to each patient.

Examples

library(smoothy)
library(dplyr)

data(drugstreatment)

my_data <- filter(drugstreatment, id == "01f13c15-d9f1-4106-a04f-976c457edd0a")

structured_df <- smooth_parse(
  id = my_data$id,
  start_date = my_data$start_date,
  end_date = my_data$end_date,
  drug = my_data$drug,
  study_from = "1970-01-01",
  study_to = "1975-01-01"
)

head(structured_df)

id = structured_df$id
treatment = structured_df$treatment
day = structured_df$day
N = structured_df$N
width = 61

smoothed <- smooth_algorithm(id = id, treatment = treatment, day = day, N = N, width = width)

head(smoothed)

smooth_diff(treatment = smoothed$treatment, smoothed_treatment = smoothed$smoothed_treatment)

smoothy documentation built on Aug. 11, 2023, 9:06 a.m.