Nothing
A <-
rbind(
w1 / vlength(w1)^2,
w2 / vlength(w2)^2)
A %*% y
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.