Writing text to the clipboard
I just realized that this is really easy as there exists in R function writeClipboard() that copies character strings to the Windows clipboard!
writeClipboard("Hello")
writeClipboard(as.character(1:10))
writeClipboard(sprintf("%.2f degrees", 1:10))
For the reverse operation of reading from the clipboard, two functions are available getClipboardFormats() and readClipboard().
Test of significance of linear regression slope
The examples below are for the common cases of a null hypothesis of slope = 0 and slope = 1, but it should be clear how to test for for any arbitrary constant slope value expected a priori of examination of the data. The examples use a one-sided test, in many cases, a two-sided test should be used (e.g. if there is no a priori expectation of the deviation from the null hypothesis to be possible only in one direction). Source unknown, but certainly not of my authorship.
# cars data from R for this example
data(cars)
# linear regression fit
cars.lm <- lm(dist ~ speed, data = cars)
# extract slope estimate and its s.e. indexing by explanatory variable name
my.slope <- summary(cars.lm)$coef["speed", c("Estimate", "Std. Error")]
# extract degrees of freedom
my.df <- summary(cars.lm)$df[2]
# test against hypothesis of no response, i.e. slope = 0
t_value_zero <- my.slope["Estimate"] / my.slope["Std. Error"]
dt(t_value_zero, df = my.df) / 2 # one sided test
# test against hypothesis of 1:1 relationship, i.e. slope = 1
t_value_one <- (my.slope["Estimate"] - 1) / my.slope["Std. Error"]
dt(t_value_one, df = my.df) / 2 # one sided test
Share with