y = c(1, 1)
A1 = matrix(c(
c(1, 0),
c(0, 1)),
byrow = TRUE,
nrow = 2)
A2 = matrix(c(
c(-1, 0),
c(0, 1)),
byrow = TRUE,
nrow = 2)
A3 = matrix(c(
c(-1, 0),
c(0, -1)),
byrow = TRUE,
nrow = 2)
plot((A1 %*% y) ~ c(0.5, 1.5),
xlim = c(0, 4),
ylim = c(-2, 2),
xlab = "", ylab = "",
type = "l",
col = "blue",
lty = "solid",
lwd = 5)
points((A2 %*% y) ~ c(1, 1),
type = "l",
col = "blue",
lty = "solid",
lwd = 5)
points((A3 %*% y) ~ c(0.5, 1),
type = "l",
col = "blue",
lty = "solid",
lwd = 5)
B5 = matrix(c(
c(1, 0),
c(0, -1)),
byrow = TRUE,
nrow = 2)
B6 = matrix(c(
c(-1, 0),
c(0, 1)),
byrow = TRUE,
nrow = 2)
points((B5 %*% y) ~ c(2.5, 3.5),
type = "l",
col = "blue",
lty = "solid",
lwd = 5)
points((B6 %*% y) ~ c(3.5, 3.5),
type = "l",
col = "blue",
lty = "solid",
lwd = 5)
y = c(1, 1)
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
summary(cars)
## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.