Nothing
wc<-function(temp,vv){((35.74 + (0.6215 *(1.8*temp+32)-(35.75 *(vv*2.23)^0.16)+(0.4275 *(1.8*temp+32)*(vv*2.23)^0.16)))-32)/1.8}
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.