## 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