expected <- c(93*46/141, 93*45/141, 93*50/141, 48*46/141, 48*45/141, 48*50/141); expected
X.squared <- sum ((observed - expected)^2 / expected) ; X.squared
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.